|
「マクロ専用ファイル」内のリストボックス(ファイル一覧)を使った応用です。
「マクロ専用ファイル」内のリストボックスにファイル一覧を作成します。
それぞれのファイルは、同じレイアウト・同じマクロを使っているとします。
ファイルを1個ずつ開いて、ファイル内のマクロを操作します。
マクロ専用シート.xlsm |
|
ファイル一覧のブック.xlsm |
|
|
|
コードの概要
Dim I as Integer
Call Excel_App_Create(Excelを起動)
For I = 0 To MacroSheet1.ListBox1.ListCount - 1
Excel_App.Workbooks.Open Filename:=MacroSheet1.Range("B2").Value & "\" & MacroSheet1.ListBox1.List(I) _
, ReadOnly:=False, UpdateLinks:=0(ListBox1のリストからファイルを開く)
Excel_App.・・ = ・・(「マクロ専用ファイル」によるマクロ実行)
・・・・・・・
・・・・・・・
Excel_App.ActiveWorkbook.SaveAs FileName:=MacroSheet1.Range("B2").Value & "\" & MacroSheet1.ListBox1.List(I)(上書き保存)
Call Workbooks_Close_All(WorkBookを閉じる)
Next I
Call Excel_App_Quit(Excelを閉じる)
|