我有一个包含5个不同标签的Excel电子表格。我想在访问中创建这个由5个不同表格表示的电子表格。
我的第一次尝试是导入文件。我有以下代码
Function ImportFiles()
Dim myfile
Dim myDir
mypath = "C:\Data\Dashboard\"
myDir = Directory
myfile = Dir(mypath & "*.xlsx")
While myfile <> ""
Debug.Print "importing" & myfile
DoCmd.TransferSpreadsheet acImport, , "Data", myfile, True
myfile = Dir()
Wend
End Function
我的访问数据库中有五个表。我是否需要编写一些excel vba来创建5个文件，删除5个选项卡中的每个选项卡，然后将这5个选项卡导入到访问数据库中的相应表中？或者有没有办法调整我的上面的代码，将每个工作表中的第一个数据选项卡放入第一个表格，将第二个选项卡放入第二个表格等？