现有 Access 2007 宏的代码修改 - 旨在在现有 Excel 2007 工作簿中创建和打开（从 Access）新的 Excel 工作表？答案

【问题标题】：Code Modification of Existing Access 2007 Macro - Aim to Create & Open (from Access) a New Excel Work-Sheet in Existing Excel 2007 Work-book?现有 Access 2007 宏的代码修改 - 旨在在现有 Excel 2007 工作簿中创建和打开（从 Access）新的 Excel 工作表？
【发布时间】：2012-04-26 10:54:30
【问题描述】：

这是使新 Excel 工作的代码book，但每次单击访问 2007 控制按钮。单击控制按钮需要打开 Access 查询并创建 Excel 工作工作表和打开 Excel 书/工作表。 Excel 工作簿必须是启用宏的工作簿 .xlsm 格式

' Command104ContrDonatWeekly_Click
'
'------------------------------------------------------------
Private Sub Command104ContrDonatWeekly_Click()
On Error GoTo Command104ContrDonatWeekly_Click_Err

    DoCmd.OpenQuery "Contributors Who Donated in Past Week", acViewNormal, acEdit
    DoCmd.OutputTo acOutputQuery, "Contributors Who Donated in Past Week", "ExcelWorkbook(*.xlsx)", "C:\Users\Michael1\Desktop\KSN\DistributionListWeekly.xlsx", True, "", 0, acExportQualityScreen


Command104ContrDonatWeekly_Click_Exit:
    Exit Sub

Command104ContrDonatWeekly_Click_Err:
    MsgBox Error$
    Resume Command104ContrDonatWeekly_Click_Exit

End Sub

【问题讨论】：

标签： ms-access excel-2007 ms-access-2007 vba

【解决方案1】：

您可以使用 Transfer 电子表格：

XLFile = "C:\Docs\MyXLFile.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
    "MyTableOrQuery", XLFile, True, "Sheet2"

FollowHyperlink XLFile

''OR

Shell "Excel.exe " & xlfile, vbNormalFocus

【讨论】：

TransferSpreadsheet 方法有效，但您是否有一些代码也可以打开 Excel 工作簿？
我在一个方法上添加了注释。
谢谢，它可以工作，除了一个问题是我收到一条消息，指出 Excel 已停止工作，当我选择“检查单行以获取解决方案并关闭程序”选项时，一个新的 Microsoft Office弹出有关病毒和信任的警告并询问我是否要打开 Excel 文件，当我单击“确定”时，Excel 文件打开并且查询数据已成功导入新创建的“表 2”。你有办法解决这个问题吗？
Followhyperlink 可能会在 2007 年出现问题，我想，所以试试上面的 shell 版本。
谢谢。有用。是否有任何代码可以阻止列标题传输到 Excel 工作表中？