首页 > > 程序设计 > VB >

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

2018-06-17 17:11:23来源：未知阅读 ()

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

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

在声明中加入以下：

PrivateSubExportExcelSheetToAccess(sSheetNameAsString,sExcelPathAsString,sAccessTableAsString,sAccessDBPathAsString)
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase(sExcelPath,True,False,"Excel5.0")
Calldb.Execute("Select*into[;database="&sAccessDBPath&"]."&sAccessTable&"FROM["&sSheetName&"$]")
MsgBox"Tableexportedsuccessfully.",vbInformation,"Yams"
EndSub
使用范例如下：將C:\book1.xls中的Sheet1导入C:\Test.mdb成为TestTable

ExportExcelSheetToAccess"Sheet1","C:\book1.xls","TestTable","C:\Test.mdb"->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有