VB 讀取Excel的內容

'引用Microsoft Excel 12.0 Object Library

'Excel文件放於D盤目錄下，名稱為：my.xls

Private Sub Command1_Click()

Dim A(101) As String

Dim i As Integer

Dim xlsApp As Excel.Application

Dim xlsWorkbook As Excel.Workbook

Dim xlssheet As Excel.Worksheet

Set xlsApp = CreateObject("Excel.Application")

Set xlsWorkbook = xlsApp.Workbooks.Open("D:\my.xls")

xlsApp.Visible = True

xlsApp.Range("A1").Select

For i = 1 To 100

A(i) = xlsApp.ActiveCell.Offset(0, i - 1).Value

Print i;

Print " ";

Print A(i)

Next i

Set xlssheet = Nothing

Set xlsWorkbook = Nothing

Set xlsApp = Nothing

End Sub