MS Access正在忽略要导出的无标题VBA代码

我制作了一段VBA代码，将MS Access 2010中的两个表导出到新的xlsx电子表格中。我在再次运行代码之前手动删除电子表格

“我的表格”中的字段名将作为单元格数据导出到电子表格中。这是我不想要的

在下面相同的代码中，我将一个导出属性设置为true，另一个设置为false，以显示它以相同的方式导出这两个属性。我试过假的，也试过真的

public sub output

outputFileName as string

outputFileName = "J:\My Documents\testmycode.xlsx"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Example1 Table", outputFileName, False
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Example 2 Table", outputFileName, True

end sub

---

感谢您的帮助

导出到EXCEL时，TransferSpreadsheet不使用此参数；信息技术 始终导出字段名，无论您为此参数输入了什么 在代码或宏中。此参数仅适用于导入

也许这能帮你

Public Function DeleteRowInExcel()
On Error GoTo Err_DeleteRowInExcel

    Dim xlApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
    Dim MyFileName As String

    MyFileName = "c:\temp\MyOutputFile.xls"

    Set xlApp = CreateObject("Excel.Application")
    Set wb = xlApp.Workbooks.Open(MyFileName)
    Set ws = wb.Sheets(1)

    ws.Cells(1, 1).EntireRow.Delete

    wb.Save

Exit_DeleteRowInExcel:
        'Close Excel
    wb.Close savechanges:=False
    xlApp.Quit
    Set xlApp = Nothing
    Set wb = Nothing
    Set ws = Nothing
    Exit Function

Err_DeleteRowInExcel:
    MsgBox Err.Number & ", " & Err.Description, , "Error"
    Resume Exit_DeleteRowInExcel

End Function

---

HasFieldNames

仅用于导入和链接，不用于导出。另请参见：“当您将Access表或选择查询数据导出到电子表格时，无论您为此参数输入了什么，字段名都将插入到电子表格的第一行。”您必须编写代码来删除标题…通过记录集导出它们，然后使用copyfromrecordset仅粘贴数据。无论哪种方式，我认为您都需要代码并打开输出表。谢谢各位的回答。我使用了Axel的链接，但现在更了解这个问题。