| |
▼小僧 さん：
回答ありがとうございます。
教えていただいた通りやってみましたが、もともとマクロを含んだあるファイルを開いてそれを別名保存して実行しているせいか、
> xlsApp.Run xlsApp.ActiveWorkbook.Name & "!Sheet1.マクロ名"
この部分で、見つかりませんといわれてしまいました。
というわけで下記のように実行してみたところ、うまく実行できました。
wkb.Application.Run (wkb.Application.ActiveSheet.マクロ名)
お世話になりましてありがとうございました。
>▼VBA初心者 さん：
>横から失礼いたします。
>
>>++++++++++++++++++++++++++++++
>>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マクロ名")
> ↓
> xlsApp.Run xlsApp.ActiveWorkbook.Name & "!Sheet1.マクロ名"
>
>>
>>Call wkb.Application.ActiveWorkbook.SaveAs _
>> (Filename:=ファイルB)
> ↓
> Call xlsApp.ActiveWorkbook.SaveAs _
> (FileName:=BFile)
>
>>Let xlsApp.Visible = True
>>Let xlsApp.UserControl = True
>>
>追加
> xlsApp.Quit
>
>>Set wkb = Nothing
>>Set xlsApp = Nothing
>>Set Rs1 = Nothing
>>++++++++++++++++++++++++
>
>こんな感じでいかがでしょうか？
|
|
VBA初心者
- 05/3/24(木) 19:37 -
