VB中如何<em>读取Excel</em>中的数据

Dim SheetID As Integer
Dim XlsRow As Long
Dim TotalBit As Integer
Dim MachineID00_Msg000(i) As String
Dim i As Integer
SheetID = 3 设定表编号，即Sheet的编号。
Set ExcelApp = CreateObject("Excel.Application") '
Set ExcelBook = ExcelApp.Workbooks.Open(App.Path + "\Pameter.dat") '路径
Set ExcelSheet = ExcelBook.Worksheets(SheetID) '
XlsRow = 2 '读取起始行
TotalBit = 16 '要读取的行数
For i = 0 To (TotalBit - 1)
MachineID00_Msg000(i) = ExcelSheet.Range("D" & XlsRow).value
XlsRow = XlsRow + 1 '循还7a686964616fe78988e69d83364
Next i
ExcelApp.quit
Set ExcelSheet = Nothing
Set ExcelBook = Nothing
Set ExcelApp = Nothing

    Public f_row As Integer
    Public m_row As Integer

Private Sub Command1_Click()
Dim n_shuzi As Integer
 Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Dim shuzu(3) As Integer

Set xlapp = New Excel.Application
        Set xlbook = xlapp.Workbooks.Open("c:\1.xls")
        xlapp.Visible = True
        Set xlsheet = xlbook.Worksheets("Sheet1")
        n_shuzi = Val(xlsheet.Cells(1, 1))
        For f_row = 0 To 3
            shuzu(f_row) = Val(xlsheet.Cells(f_row + 1, 1))
        Next
        
End Sub

参考：

Public ExcelTable As Workbook  'excel 工作表对象
Private TextBoxA() As Control      '以编辑框为基础动态构造数据网格
Private FormWidth As Integer       '窗体宽度
'以下子程序是用来建立数据网格
Sub CreateGrid(No, Data)
    For i = 1 To CInt(UBound(Data, 1))
        For j = 1 To CInt(UBound(Data, 2))
            Set a = Form1.Controls.Add("VB.TextBox", "textbox" & CStr(i) & CStr(j) & CStr(No))
            ReDim TextBoxA(1 To i, 1 To j)  '重新定义动态数组！
            Set TextBoxA(i, j) = a
            With TextBoxA(i, j)            '设置文本框属性
                .Text = Data(i, j)
                .Visible = True
                .Height = 200
                .Width = 500
                .Top = .Height * (i - 1)
                .Left = .Width * (j - 1) + FormWidth
            End With
        Next
    Next
  
End Sub

Private Sub Command1_Click()
    Set ExcelTable = CreateObject("Excel.sheet") '建立对象实例
    ExcelTable.Application.Workbooks.Open (App.Path + "\address.xls") '打开数据文档address.xls
    For i = 1 To ExcelTable.Application.Worksheets.Count    '获得工作表数目
        Data = ExcelTable.Application.Worksheets(i).UsedRange.Value   '获取每个工作表的数据
        DataType = VarType(Data)      '跳过没7a64e78988e69d83335有数据的空表
        Select Case DataType
        Case vbArray + vbVariant
            Call CreateGrid(i, Data)   '传递数据,建立以文本框为基础的数据网格
        Case vbEmpty
        End Select
    Next
End Sub

Private Sub Command1_Click()
Dim Xlbook As Workbook
Dim Xlapp As Application
Dim Xlsheet As Worksheet
Set Xlapp = CreateObject("Excel.Application") '隐藏zhidao方式打开excel
Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿
Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表

Print Xlsheet.Range("A1") '取数据什么内的跟VBA一样的。

Xlbook.Close False '关闭工作簿 不保容存
Set Xlapp = Nothing '释放
Set Xlbook = Nothing
End Sub