Question

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

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

在下面的代码中，我将一个export属性设置为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

感谢任何帮助！

Answer 1

导出到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

MS Access忽略我的VBA代码导出没有标头

1 个答案: