帮看看这段代码，是要加在哪里的？谢谢！

Question

如何將Excel 的文件导入 Access文件？     
      
下面我已將程序代码做成模块，只要导入必要之参数即可！   
    
此一模块共有四个参数：   
  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"  这段代码我也是从网上找来的，应该加哪儿的声明里呢？请指教～谢谢～～！
    
    

Answer 1

在工程——引用-“excel 11 library”

Answer 2

那不是声明，是函数。vb vba中加
你是不是vb 和vba 都不会呀？那就别瞎忙了。从都学会了再弄吧。
那百年的代码，还excel 5.0，现在都excel 12.0了，，，，，，

Answer 3

自己可以改一下在按钮事件中加入
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"