Question

这段代码有什么问题？无法在VB中导出Access数据表到Excel，都是2007版

Private Sub cmdout_Click()

Dim rst As New ADODB.Recordset
rst.Open "select * from combo1.Text", cn1, adOpenDynamic, adLockOptimistic

'Left(Trim(Text1.Text), Len(Trim(Text1.Text)) - 1)

Dim xlsApp As Excel.Application '定义Excel程序
Dim xlsBook As Excel.Workbook '定义工作薄
Dim xlsSheet As Excel.Worksheet '定义工作表
Dim i, j As Long
Set xlsApp = CreateObject("Excel.Application")
'创建Excel应用程序
Set xlsBook = xlsApp.Workbooks.Add '创建工作薄
Set xlsSheet = xlsBook.Worksheets(1) '创建工作表
On Error Resume Next
j = 1
Do Until rst.EOF
For i = 1 To rst.Fields.Count
xlsSheet.Cells(j, i) = rst.Fields(i - 1)
'写入记录集（不包括表头）
Next i
rst.MoveNext
j = j + 1
Loop
xlsApp.Visible = True '显示电子表格
xlsBook.SaveAs App.Path & "\导出数据.xlsx"
Set xlsApp = Nothing '交换控制权给Excel
rst.Close
cn1.Close
Set rst = Nothing
Set cn1 = Nothing
Unload Me
Unload fm

End Sub

报错是这句
rst.Open "select * from combo1.Text", cn1, adOpenDynamic, adLockOptimistic

Answer 1

首先rst.Open "select * from combo1.Text", cn1, adOpenDynamic, adLockOptimistic 应改成：rst.Open "select * from " & combo1.Text, cn1, adOpenDynamic, adLockOptimistic ，并且combo1.Text需要是表名
其次 cn1定义语句贴出来看一下

追问

能否加qq说 我打了四次了 追问字数限制 我都要骂百度了

按照您的修改 出现了新的报错

Set xlsApp = CreateObject("Excel.Application")

要求调试这句

追答

电脑上装了excel没有，qq270581704

Answer 2

你看一下你的C:\Users\dell\Desktop\打桩数据库初建文件夹中有combo1.mdb这个文件吗？

追问

绝对没有 要不我把其他代码发给你吧

追答

你现在是把ACCESSS数据库combo1.mdb中的数据导入到EXCEL，没有这个文件怎么导入？

追问

不是 是把我选择的数据库文件中的一个表导入到Excel中，但是不管选择哪个表都报错这个 按照楼上那个老师的指导 我修改了语句后 出现了新的报错 

Set xlsApp = CreateObject("Excel.Application")

要求调试这句