从Access 2007传输到Excel 2007中排除列标题的代码

这是我正在使用的代码。

它工作正常，但我需要知道什么额外的代码是需要排除列标题。

Private Sub Command104ContrDonatWeekly_Click() On Error GoTo Command104ContrDonatWeekly_Click_Err DoCmd.OpenQuery "Contributors Who Donated in Past Week", acViewNormal, acEdit xlfile = "C:\Users\Michael1\Desktop\KSN\DistributionListWeekly.xlsb" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, _ "Contributors Who Donated in Past Week", xlfile, True, "EmailList" Shell "Excel.exe " & xlfile, vbNormalFocus Command104ContrDonatWeekly_Click_Exit: Exit Sub Command104ContrDonatWeekly_Click_Err: MsgBox Error$ Resume Command104ContrDonatWeekly_Click_Exit End Sub 

这里是一些代码

如何编写VBA代码来隐藏Excel中的所有列和行标题？

我不知道在哪里需要使用我已经使用的代码。

 Private Sub hideHeadings() Dim wrkbk As Workbook Dim wrksh As Worksheet Dim prev As Window Set prev = ActiveWindow For Each wrkbk In Workbooks For Each wrksh In wrkbk.Worksheets wrksh.Activate ActiveWindow.DisplayHeadings = False Next wrksh Next wrkbk prev.Activate End Sub 

Answer 1

从访问：

 Sub XLTrans() ''Reference: Microsoft ActiveX Data Object xx Library Dim rs As New ADODB.Recordset Dim xl As Object ''Excel.Application Dim wb As Object ''Workbook Set xl = CreateObject("Excel.Application") Set wb = xl.Workbooks.Add ''Connection relevant for 2007 or 2010 rs.Open "MyTableOrQuery", CurrentProject.AccessConnection wb.Sheets(1).Cells(1, 1).CopyFromRecordset rs xl.Visible = True End Sub 

Answer 2

如果你坚持使用传输数据表格，

 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tbl_one", xlfile, True Dim xl As Object Dim wb As Object Set xl = CreateObject("Excel.Application") Set wb = xl.Workbooks.Open(xlfile) xl.DisplayAlerts = False With wb.Worksheets(1) .Rows(1).Delete End With wb.Save xl.Visible = True