現有Access 2007宏的代碼修改 - 旨在創建和（從Access中）打開現有Excel 2007工作簿中的新Excel工作表？

下面是使新Excel工作的代碼，但我需要代碼在每次單擊Access 2007控件按鈕時在同一Excel 2007工作簿中創建新工作SHEET。單擊控制按鈕需要打開Access查詢並創建Excel工作工作表和打開 Excel書籍/工作表。 Excel的工作簿必須是宏啓用工作簿.XLSM格式現有Access 2007宏的代碼修改 - 旨在創建和（從Access中）打開現有Excel 2007工作簿中的新Excel工作表？

' 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

來源

2012-04-14 MichaelN

您可以使用TransferSpreadsheet的：

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

FollowHyperlink XLFile 

''OR 

Shell "Excel.exe " & xlfile, vbNormalFocus

來源

2012-04-14 08:31:55 Fionnuala

的TransferSpreadsheet方法的工作，但你有一些代碼，也將**開放** Excel工作簿？ – MichaelN 2012-04-15 09:55:30

我在一種方法中添加了一個註釋。 – Fionnuala 2012-04-15 20:38:18

謝謝，它的工作原理，除了一個問題是，我收到一條消息，Excel已停止工作，並且當我選擇「檢查解決方案的oneline並關閉該程序」選項時，新的Microsoft Office彈出警告關於病毒和信任並詢問我是否希望打開Excel文件，當單擊「確定」時打開Excel文件並將查詢數據成功導入到新創建的「工作表2」中。你有辦法克服這個問題嗎？ – MichaelN 2012-04-16 00:36:51

現有Access 2007宏的代碼修改 - 旨在創建和（從Access中）打開現有Excel 2007工作簿中的新Excel工作表？

回答

相關問題