| |
Accessで抽出したデータをExcelに貼り付け、それをグラフ化するモジュールをExcelのVBAで作成しています。
Excelへのデータ出力まではできますが、モジュールが呼び出し出来ていないようで、グラフができません。
手動でマクロを実行するとうまくいくのですが。。。
Set wkb = xlsApp.Workbooks.Open(Filename:=xlsFile)
wkb.Excel4MacroSheets.Application.ExecuteExcel4Macro ("Sheet1.マクロ名")
↑こんなふうに書いています
また、これを含め・・・
++++++++++++++++++++++++++++++
Set Rs1 = db.OpenRecordset(StrSql).Clone
Set xlsApp = CreateObject("Excel.Application")
xlsFile = ファイルA 'Excel File
Set wkb = xlsApp.Workbooks.Open(Filename:=xlsFile)
wkb.Worksheets("Sheet1").Range("A1") _
.CopyFromRecordset Data:=Rs1
wkb.Excel4MacroSheets.Application.ExecuteExcel4Macro ("Sheet1マクロ名")
Call wkb.Application.ActiveWorkbook.SaveAs _
(Filename:=ファイルB)
Let xlsApp.Visible = True
Let xlsApp.UserControl = True
Set wkb = Nothing
Set xlsApp = Nothing
Set Rs1 = Nothing
++++++++++++++++++++++++
このように実行すると、プロセス[EXCEL.EXE]がずっと残ってしまいます。
何か足りないものがあるのでしょうか？
おしえてください。
よろしくお願いします。
以上
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
