如何將Excel的文件导入Access文件

1、sSheetName：要导出资料的文件名称   (Sheet   name)，例如   Sheet1   51Testing软件测试网[M tJTt b
  2、sExcelPath：要导出资料的   Excel   档案路径名称   (Workbook   path)，例如   C:\book1.xls   51Testing软件测试网9j/^C1dcxQ
  3、sAccessTable：要导入的   Access   Table   名称，例如   TestTable  
8B m9{Sz#c o0  4、sAccessDBPath：要导入的   Access   档案路径名称，例如   C:\Test.mdb   51Testing软件测试网0B!u}p)K!J+z
    51Testing软件测试网PzN(~-{R!Oo
  在声明中加入以下：  
(MVc:M/H6F0    51Testing软件测试网 lrx"O/[\1h
  Private   Sub   ExportExcelSheetToAccess(sSheetName   As   String,   _   51Testing软件测试网.\
Z-IY2g!X"mp
  sExcelPath   As   String,   sAccessTable   As   String,   sAccessDBPath   As   String)  
a#p)Z u5rzB?0  Dim   db   As   Database  
k M%MGx0  Dim   rs   As   Recordset  
,Q4jJ(M)K-W0  Set   db   =   OpenDatabase(sExcelPath,   True,   False,   "Excel   5.0")   51Testing软件测试网b#F)qF-ZHa5ly
  Call   db.Execute("Select   *   into   [;database="   &   sAccessDBPath   &   "]."   &   _   51Testing软件测试网+O*se*ls%d"IJ
  sAccessTable   &   "   FROM   ["   &   sSheetName   &   "$]")   51Testing软件测试网u S+y7i7y
  MsgBox   "Table   exported   successfully.",   vbInformation,   "Yams"  
` HZ[tc^0  End   Sub   51Testing软件测试网9e_3L5sK"Xn5T/O
  使用范例如下：將   C:\book1.xls   中的   Sheet1   导入   C:\Test.mdb   成为   TestTable  
b#zuPf d]"zC*b'g0   
]5{-CICXF0  ExportExcelSheetToAccess   "Sheet1",   "C:\book1.xls",   "TestTable",   "C:\Test.mdb"