关于VB如何將 Excel 的文件导入 Access文件？，这个模块，谁给做个实例，很简单的，我不懂为何错了。

关于VB如何將 Excel 的文件导入 Access文件？，这个模块，谁给做个实例，很简单的，我不懂为何错了。
大家请不要再复制粘贴坛子原有代码了，我都试过了，我只想一个方法搞明白了，实在不明白vb坛要黄了么?我感觉之前提出这样的问题好多人都能给与帮助，这次我都攒了3个帖子没结了。。。求求大家了，给帮个忙吧！
请做个按钮，功能就是调用这个模块。当前路径下有相应的mdb和xls文件。
我做了，总是出错，不知道为什么，总是说找不sheet1$或者其他错误。高手在哪里 ？？？

下面我已將程序代码做成模块，只要导入必要之参数即可！

此一模块共有四个参数：
1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1
2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls
3、sAccessTable：要导入的 Access Table 名称，例如 TestTable
4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb

在声明中加入以下：

Private Sub ExportExcelSheetToAccess(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 Sub
使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb" --------------------编程问答-------------------- 不是已经给你例子了，你还问？ --------------------编程问答-------------------- 亲，我试了，这个总是提示错哦，亲给试试呗。。。复制粘贴一下看看那里出错的了？ --------------------编程问答-------------------- 可以分开两步不是比这样更好点呀？你这样等于是跨数据库了，可能EXCEL跟access之间的连接有问题吧。
分两步，第一步先查下EXCEL数据，第二步再插入到ACCESS中 --------------------编程问答-------------------- 我最近也在搞这个``也有这样那样问题``
 顶一个。，，。

补充：VB ,  控件