VB调用Excel单元格数据

来源：百度知道 编辑：UC知道 时间：2024/05/14 10:44:48
我的意思是在VB的text1中如何显示Excel表“D\my ducuments\book1.xls”中sheet1中D4单元格的内容，要解释每步的意思

Private Sub Command1_Click()
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet

Dim R1 As Excel.Range
ExApp.Workbooks.Open "D\my ducuments\book1.xls"
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets("Sheet1")
Text1.Text = Exsh.Range("D4")

ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing
End Sub

运行前要在菜单的“工程”-“引用”-找到Microsoft Excel 的lib库才可以运行