将 Excel 电子表格的单独选项卡导入 MS Access 数据库的单独表中

Question

我有一个名为 Pathmap 的表，其中有一列 Path 是我要导入的文件的文件路径列表

然后我运行以下代码来尝试将所有这些文件导入我数据库中的两个表中。每个文件中的一张名为 sts 的表进入 table1，每个文件中的另一张名为 CP 的表进入 table2。

Sub pulloop()
DoCmd.RunSQL "delete * from table1"
DoCmd.RunSQL "delete * from table2"
strSql = "PathMap"
Set rs = CurrentDb.OpenRecordset(strSql)


With rs
If Not .BOF And Not .EOF Then
.MoveLast
.MoveFirst
    While (Not .EOF)
    importfile = rs.Fields("Path")
    objAccess.NewCurrentDatabase "Nate"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TABLE1", importfile, true, STS
   DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TABLE2", importfile, True, CP
   'Debug.Print rs.Fields("Path")
    .MoveNext
    Wend
    End If
.Close
End With
End Sub

问题是它调试，告诉我我知道的一个字段只在我的 importfiles 的 STS 表中，在目标 Table2 中不存在。它似乎实际上不是从导入文件的 CP 表中提取的，而是从 STS 表中提取的，我不确定我的语法有什么问题。

帮助不胜感激。通过 docmd 使用不同的选项卡到不同的表的困难。转移电子表格。

Answer 1

基于所描述的行为

这个

DoCmd.TransferSpreadsheet acImport, _
                          acSpreadsheetTypeExcel12, _
                         "TABLE2", _
                          importfile, _
                          true, _
                          CP

做同样的事情

DoCmd.TransferSpreadsheet acImport, _
                          acSpreadsheetTypeExcel12, _
                         "TABLE2", _
                          importfile, _
                          true, _
                          Empty

当您编写不带引号的CP 时，您将创建一个名为CP 的变量，该变量的类型为variant，并将其赋值为Empty。

当 DoCmd.TransferSpreadsheet 收到 Empty 的 range 参数值时，它假定您需要第一个电子表格。这就是为什么 Access 会告诉您 STS 中的字段在 table2 中不存在。

解决这个问题的方法是给出你想要的范围值

DoCmd.TransferSpreadsheet acImport, _
                          acSpreadsheetTypeExcel12, _
                         "TABLE2", _
                          importfile, _
                          true, _
                          "CP!"

我建议您也将Option Explicit 添加到模块顶部，这样您以后就不会意外犯这些错误。当然，这确实意味着您需要声明 rs 和 strSql。