如何將Excel的文件导入Access文件
我已经把程序代码做成一个模块,只需要导入必要的参数就可以了!
该模块中有四个参数:
1,sSheetName:要导出数据的文件名(工作表名称),例如Sheet1
2,sExcelPath:要导出数据的Excel文件路径名(工作簿路径),例如C:\ 1。book.xls
3、sAccessTable:要导入的Access表的名称,如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 = open Database(sexcel path,True,False,“Excel 5.0”)
Call db。execute(" Select * into[;数据库=" & sAccessDBPath & "]。"& saccess Table & " FROM[" & s sheet name & " $]"
MsgBox "表已成功导出。",vbInformation,“yamons”
End Sub
的用法示例如下:将C:\book1.xls中的Sheet1导入C:\Test.mdb中成为TestTable。
ExportExcelSheetToAccess " sheet 1 "," C:\book1.xls "," TestTable "," C:\Test.mdb "
位律师回复
0条评论