Excel VBA テクニック集 |
「マクロ専用ファイル」内のリストボックス(ファイル一覧)を使った応用です。
「マクロ専用ファイル」内のリストボックスのファイル一覧から、「マクロなしファイル」を1個ずつ開いて「マクロ専用ファイル」のマクロで操作します。 たとえば、すべてのファイル(シート)で「行挿入」を行うようなことです。
コードの概要 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を閉じる) |
「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| FaceBook| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究| |