摘要： Set ExcelApp=CreateObject("Excel.Application") Set ExcelWorkbook=ExcelApp.Workbooks.Open(FilePath) Set ExcelSheet=ExcelWor.Worksheets(SheetName).UsedRange rowcount=ExcelSheet.Rows.count ‘计算使用的单元格行数columncount=ExcelSheet.Columns.count ... 阅读全文

摘要： Set myList=CreateObject("System.Collections.ArrayList")With myList .Add("001") .Add("002") .Add("007") .Add("004") .Add("003") .Add("009")End Withmsgbox myList.Item(2)For i=0 to myList.count-1 msgbox myList.Item(i)NextmyList.Remov 阅读全文

摘要： Set dic=CreateObject("Scripting.Dictionary")dic.Add "a",1dic.Add "b",2dic.Add "c",3If dic.Exists("b") Then msgbox dic("b")End If 阅读全文