vb从ACCESS导出到excel出错了。。。
Private Sub Command1_Click()
Dim rst As New ADODB.Recordset
rst.Open "select " & Left(Trim(Text1.Text), Len(Trim(Text1.Text)) - 1) & " from " & Combo1.Text & "", conn, adOpenDynamic, adLockOptimistic
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 & "\导出数据.xls"
Set xlsapp = Nothing '交还控制权给excel
rst.Close
conn.Close
Set rst = Nothing
Unload Me
Unload rst
vb 连接ACCESS时出现语法错误。错误提示:实时错误‘-2147217900(80040e14)’: 语法错误(操作符丢失)在查询表达式'E:\杨莉\vb代码\财务管理系统(bn+access)\财务管理系统\data.md'中,。。
查询表达式中是路径,正确的。现在截出的路径中减去一个字符,所以提示的是。。。。\data.md。我把“Len(Trim(Text1.Text)) - 1)”中的-1去了。路径是对的。但是提示错误还是那样。。只是提示为式'E:\杨莉\vb代码\财务管理系统(bn+access)\财务管理系统\data.mdb '中。这是为什么呢
[解决办法]
杨莉啊,都23了还不会VB,赶不上了
把(bn+access)去掉试试?
[解决办法]
你试试用ACCESS对象导出, 只需要一句语句.