关于 DoCmd.TransferSpreadsheet答案

【问题标题】：About DoCmd.TransferSpreadsheet关于 DoCmd.TransferSpreadsheet
【发布时间】：2018-02-08 08:40:42
【问题描述】：

DoCmd.TransferSpreadsheet 方法中的字段名称是我们在 Excel 表中指定为字段名称的范围内的第一列。 Access 应用程序还需要具有相同的字段名称才能传输数据。我想将它转移到我在访问应用程序中指定的字段名称。例如，当 excel 中的字段名称为公司名称时，我希望将 Access 应用程序设置为 companyName。我该怎么做？

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "M1", selectFile, True, "C13:F168"

【问题讨论】：

标签： excel ms-access import

【解决方案1】：

至少有两种方法可以做这种事情。

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "importTable", "C:\test\test.xlsx", ", True

或

Public Sub autoFormat()
    wkbookPath = "C:\test.xlsx"
    Dim XL As Object
    Set XL = CreateObject("Excel.Application")
    With XL
        .Visible = False
        .displayalerts = False
        .Workbooks.Open wkbookPath
        .Columns("A:XFD").EntireColumn.AutoFit
        .ActiveWorkbook.Close (True)
        .Quit
    End With
    Set XL = Nothing
End Sub

【讨论】：