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

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

恐怕是这个吧
OpenDatabase

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

在函数etoa中如果存在变量或函数未定义
VB提示黄色区域都是在Private Function etoa这里
但是你仔细看看光标在哪里？
Dim db As Database 其中Database 有定义吗？

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