将多个电子表格导入 Access答案

【问题标题】：Import multiple spreadsheets into Access将多个电子表格导入 Access
【发布时间】：2014-07-25 10:36:50
【问题描述】：

我正在尝试将工作簿中的所有电子表格导入 Access。但是，即使我没有收到错误消息，也没有任何内容导入 Access。一切正常，除了下面提到的那一行，尽管 Access 似乎正在导入电子表格，但我的表中没有任何内容。

Public Sub Import_Excel_Workbook()
Dim strFile As String
Dim StrFldrPath As String
Dim strfilelist() As String
Dim intFile As Integer
Dim filename As String

DoCmd.SetWarnings False
StrFldrPath = "C:\Documents\SPY\New\"

'Loop through the folder & build file list
strFile = Dir(StrFldrPath & "*.xls")

'  (commented-out code removed for clarity)

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "C:\Documents\Database2.accdb" 'not dynamic yet

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("C:\Documents\SPY\New\SPY_1.xls") 'not dynamic yet
Set colWorksheets = objWorkbook.Worksheets

'cycle through the list of files
'For intFile = 1 To UBound(strfilelist)
    'filename = StrFldrPath & strfilelist(intFile)   (removed for the time being)
    For Each objWorksheet In colWorksheets
        Set objRange = objWorksheet.UsedRange
        strWorksheetName = objWorksheet.Name & "!" & objRange.Address(False, False)
        '##########  LINE BELOW SEEMS TO FAIL ############
        objAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
          "S&P", "C:\Documents\SPY\New\SPY_1.xls", True, strWorksheetName  'not dynamic yet    
    Next
'Next intFile

DoCmd.SetWarnings True

End Sub

【问题讨论】：

摆脱所有设置警告语句。它们是一个陷阱，因为它们隐藏了您需要了解的错误。见stackoverflow.com/questions/11213892/…

标签： ms-access vba

【解决方案1】：

您似乎正在尝试采用这种方法：http://blogs.technet.com/b/heyscriptingguy/archive/2008/01/21/how-can-i-import-multiple-worksheets-into-an-access-database.aspx。请务必注意，此技术可让您导入所有选项卡（工作表）。

正如评论中所建议的，您必须避免将 SetWarnings 设置为 False。当您抑制错误时，您无法排除故障。

您的帖子中有很多与您的问题无关的代码。请查看https://stackoverflow.com/help/mcve，了解如何以鼓励回答的方式提问。

说了这么多，我建议您更改标签（工作表）名称，使其不包含符号 &。

如果这不能解决您的问题，请尝试使用问题选项卡上的 Access 导入向导。如果您没有进口经验，请注意有很多“陷阱”。您的源文档需要没有合并的单元格、不连贯的标题行条目以及无数其他障碍。导入向导可能会发现源数据存在一些问题。

最后，如果源工作表为空（所有单元格都没有值），导入将在该点停止。（这不是您要报告的行为，但值得一提。）

【讨论】：