******难道就没有人能解决我的问题吗******那这里还叫什么程序员大本营呀！！！！

Question

select * 后直接跟表名，然后再加 into 语句

Answer 1

rushing你是说select 语句吗可是我不知道怎么改正！！
能帮我改正一下吗？

Answer 2

Call db.Execute("select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$]")中from前缺一个空格。
这种毛病自己应该能查出。

Answer 3

可是现在又出现数据库引擎找不到sheet1对象，是否是SQL语句符号有什么问题？？？

Answer 4

你的代码我试过了，除了缺空格没有问题。
你最好设一个sSQL之类的String变量，在Execute语句之前，把括号里的内容赋给它，然后执行sSQL。出现问题时，查一下sSQL就知道了。

Answer 5

我也试过了，没有任何问题。
源码给你：
Public Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    Dim db As Database
    Dim rs As Recordset
    Dim sql As String
    
    
    Set db = OpenDatabase(sExcelPath, True, False, "excel 8.0")
    
    Debug.Print sExcelPath
    
    sql = "select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " from [" & sSheetName & "$]"    Debug.Print sql
    
    Call db.Execute(sql)
    
    MsgBox "ok"
End Sub'command1按钮:
Private Sub Command1_Click()
    ExportExcelSheetToAccess "sheet1", "E:\ZYX\personal\friend\沙龙调查表2.XLS", "testtable", "E:\ZYX\personal\friend\沙龙调查表2.mdb"
End Sub
我先创建了一个mdb文件，否则会出错。

Answer 6

谢谢rushing,谢谢of123()我想给你们分怎么给呢告诉我好吗？