Question

vb中,错哪 里了

Private Sub Command1_Click()
Dim sSheetName As String
Dim sExcelPath As String
Dim sAccessTable As String
Dim sAccessDBPath As String
Dim db As Database
Dim Rs As Database
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0") '打开电子表格文件 显示找不到可插入的ISAM
sAccessDBPath = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\jxc.mdb;Persist Security Info=False;Jet OLEDB:Database Password=admin"
sAccessTable = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\jxc.mdb\采购领图"

sSheetName = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\Book1.xls;Extended Properties='Excel 8.0;'"
Call db.Execute("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & " Select * FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub

Answer 1

Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
sExcelPath 未赋值啊

追问

sExcelPath = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\Book1.xls;"
这句话加上去 ,还是出现同样的错误,难道是其它地方出错了,还请帮忙看看

Answer 2

如果Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")语句有效，请问sExcelPath的值呢？