code现有的Access 2007年宏观调控的修正 - 目标是创造和放大器; （从Access）一个新的Excel工作单在现有的Excel 2007工作簿打开？ [英] Code Modification of Existing Access 2007 Macro - Aim to Create & Open (from Access) a New Excel Work-Sheet in Existing Excel 2007 Work-book?

问题描述

这里的code，使新的Excel工作图书，但我需要code在同一个Excel 2007中创建一个新的工作的页工作簿每次我点击访问2007的控制按钮。 点击控制按钮，需要打开Access查询和创建Excel工作的页和打开 Excel工作簿/片。 在Excel的工作簿必须是已启用宏工作簿.xlsm格式

 'Command104ContrDonatWeekly_Click

------------------------------------------------- -----------
私人小组Command104ContrDonatWeekly_Click（）
对错误转到Command104ContrDonatWeekly_Click_Err

    DoCmd.OpenQuery贡献者，他们在过去一周捐赠，acViewNormal，acEdit
    DoCmd.OutputTo acOutputQuery，贡献者，他们在过去一周捐赠，ExcelWorkbook（* XLSX），C：\用户\ Michael1 \桌面\ KSN \ DistributionListWeekly.xlsx，真正的，0，acExportQualityScreen


Command104ContrDonatWeekly_Click_Exit：
    退出小组

Command104ContrDonatWeekly_Click_Err：
    MSGBOX错误$
    简历Command104ContrDonatWeekly_Click_Exit

结束小组
 

解决方案

您可以使用转账preadsheet：

  XLFile =C：\文档\ MyXLFile.xls
DoCmd.TransferS preadsheet acExport，ACS preadsheetTypeExcel9，_
    MyTableOrQuery，XLFile，真正的Sheet2的

FollowHyperlink XLFile

''要么

壳牌Excel.exe中＆放大器; xlfile，vbNormalFocus
 

Here's the code that makes the new Excel work book, but I need the code to create a new work SHEET in the same Excel 2007 workbook each time I click the Access 2007 control button. Clicking the control button needs to open the Access query and create the Excel work sheet and open the Excel book/sheet. The Excel work book must be a macro enabled work book .xlsm format

' 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

解决方案

You can use Transferspreadsheet:

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

FollowHyperlink XLFile

''OR

Shell "Excel.exe " & xlfile, vbNormalFocus

这篇关于code现有的Access 2007年宏观调控的修正 - 目标是创造和放大器; （从Access）一个新的Excel工作单在现有的Excel 2007工作簿打开？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！