MS Access忽略了我的VBA代码以在没有标题的情况下进行导出

Question

I have made a snippet of VBA code which exports two tables from MS Access 2010 into a new xlsx spreadsheet. I manually delete the spreadsheet before I run the code again.

The field names from my tables are exported into the spreadsheet as cell data. Which I DONT want.

In the code same below I've set one export property to true and one to false just to show it is exporting the same way for both. I have tried both false and both true as well.

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

Any help is gratefully recieved!

Answer 1

This argument is not used by TransferSpreadsheet when exporting to EXCEL; it always exports the field names regardless of what you put for this argument in your code or macro. This argument works only for imports.

Maybe this would do it for you.

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