vbs- Set ExcelApp = CreateObject("Excel.Application")
- ExcelApp.Visible = True
- Set objBook = ExcelApp.Workbooks.Open("C:\Users\Administrator\Desktop\文件列表\测试.xls")
- ExcelApp.WorkSheets(1).Activate
- rowcount =objBook.ActiveSheet.UsedRange.Rows.Count
- s=""
- For i=1 to rowcount
- d = objBook.ActiveSheet.Cells(i, 4).value
- e = UBound(split(objBook.ActiveSheet.Cells(i, 5).value, ","))+1
- If d <> e Then s=s&"第"&i&"行:D列"&d&" E列"&e&vbCrLf
- Next
- Msgbox s
- objBook.Close
- ExcelApp.Quit
复制代码
|