vb 显示excel中表

Question

excel控件vb编程

Answer 1

引用excel，编写如下代码：Dim XlApp As New Excel.Application 
Dim XLWorkBook As New Excel.Workbook
Set XLWorkBook = XlApp.Workbooks.Open("你的excel文档路径文件名.xls") 
For i = 1 To XLWorkBook.Worksheets.Count
    combo1.AddItem XLWorkBook.Sheets(i).Name
Next
XlApp.Quit

Answer 2

'假定 wb 是你的 WorkBook 对象'
Dim i As Long
Combo1.Clear
For i = 1 To wb.Sheets.Count
    Combo1.AddItem wb.Sheets(i).Name
Next

Answer 3

sheets.count的意思是什么？

Answer 4

这一段语句是放在form_load 中？

Answer 5

根据需要，你希望一启动就显示，那就放在form_load 中

Answer 6

放在按钮控江里面之后，运行后出现实时错误1004 无法访问“1.xls” 该文件可能损坏，或者文件所在的服务器没有响应，或者该文件只是只读

Answer 7

你的文件是excel文件么，路径是否正确，权限是否足够

Answer 8

我的代码是：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Data1.DatabaseName = CommonDialog1.FileName
Frame1.Caption = CommonDialog1.FileTitle
Data1.Refresh
If CommonDialog1.FileName = "" Then
Exit Sub
Else
Dim XlApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim i
Set XLWorkBook = XlApp.Workbooks.Open(CommonDialog1.FileName)
For i = 1 To XLWorkBook.Worksheets.Count
    Combo1.AddItem XLWorkBook.Sheets(i).Name
Next
XlApp.Quit
End If
End Sub
那是不是因为我前面使用了Data1.DatabaseName = CommonDialog1.FileName所导致的？