Private Sub Command1_Click()
etoa "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"
End Sub

Private Function etoa(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Function

不知提示我是什么没有定义呢?

提示的黄色区域是在Private Function etoa(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)上面啊
初学毋笑[bc08]

对了，好像是这样的，感谢版主指教，还有问题的话别嫌烦喔[bc04]