VB 读取Excel的内容

       '以下是源代码：

       '引用Microsoft Excel .0 Object Library

       'Excel文件放于D盘目录下，名称为：my.xls

       Private Sub Command1_Click()

       Dim A() 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

        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