读取Excel的数据

 

例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

转载于:https://www.cnblogs.com/izzie/archive/2011/09/28/2194222.html