0

新しい Excelワークブックを作成するコードは次のとおりですが、Access 2007 コントロール ボタンをクリックするたびに、同じ Excel 2007 ワークブックに新しいワーク SHEET を作成するコードが必要です。コントロール ボタンをクリックすると、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
4

1 に答える 1

0

Transferspreadsheet を使用できます。

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

FollowHyperlink XLFile

''OR

Shell "Excel.exe " & xlfile, vbNormalFocus
于 2012-04-14T08:31:55.930 に答える