如何在vb中读取excel中数据？

[jssqgl_2007]

我是一个新手，想尝试做一个程序，将excel 中数据导入vb程序表中选择后打印，请高手帮忙！！

[cangwu_lee]

这个问题在这里以及本栏目出现的次数太多了，lz 先搜索搜索。

[snowwolf80]

我是把excel中的数据导入到MSHFlexGrid1.TextMatrix(i, 1)控件里的！供楼主参考

Private Sub MnuInput_Click()
Rem 保存表格中的数据
Dim FileName As String '''''''''''将数据保存到Excel表里
Dim i As Integer
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Excel 表|*.xls"
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
If FileName = "" Then
Exit Sub
End If

Set xlApp = CreateObject("Excel.Application")
''Set xlBook = xlApp.Workbooks ''.Add ''添加新工作表
Set xlBook = xlApp.Workbooks.Open(FileName)
‘’’Set xlBook = xlApp.Workbooks.Open(“c:\lizi.xls”) ‘’’具体路径

Set xlSheet = xlBook.Worksheets(1) ''''''打开Excel表
xlSheet.Activate ''激活工作表

For i = 0 To 27
''For Alfi = 0 To 90 Step 18

MSHFlexGrid1.TextMatrix(i, 1) = xlSheet.Cells(i + 1, 1) '''''将MSFlexGrid数据导入到Excel 中

MSHFlexGrid1.TextMatrix(i, 2) = xlSheet.Cells(i + 1, 2)

''Next Alfi
Next i
'''xlBook.SaveAs FileName
xlBook.RunAutoMacros (xlAutoClose) '''执行Excel关闭宏
xlBook.Close (True) '''''关闭Excel工作表
xlApp.Quit '''''''''关闭Excel工作本
Set xlApp = Nothing
End Sub

[dabie]

有正解了

[chanfengsr]

楼上说得基本可以解决楼主问题了！