Question

DoCmd.TransferSpreadsheet方法中的字段名称是我们在excel表中指定的范围中的第一列作为字段名称。 Access应用程序还需要具有相同的字段名称才能传输数据。我想将它传输到我在访问应用程序中指定的字段名称。例如，当excel中的字段名称是Company Name时，我想将Access应用程序作为companyName。我怎么能这样做？

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

Answer 1

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

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

OR

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

关于DoCmd.TransferSpreadsheet

1 个答案: