例1. 把Excel表格中特定的单元格数据读取出来,脚本如下:
Dim Excel,ExcelSheet,fs
Set Excel=CreateObject("Excel.Application") '创建Excel的对象
fs="C:\Users\oushuxian\Desktop\Test .xlsx" 'fs表示Excel文档Test 的路径
Excel.Workbooks.Open(fs) '打开该Excel文档
Set new1=Excel.WorkSheets("new1")
Dim i,sum(3)
Do while i<2
i=i+1
MsgBox i & "=" & new1.Cells(8,i) '使用Cells方法读取第8行第i列单元格的数据
MsgBox i & "=" & new1.Range("A" & i) '使用Range方法读取第8行第i列单元格的数据
Loop
Excel.Quit