|
▼にしもり さん:
こんにちは
>このようなことをやっています。
>Sub Macro1()
私なら面倒だし、充分見易いのでMacro1で満足しますけど、こういう方法が
判り易いという意味で元ソースを生かしてサンプル書いてみました。
※全く動かしてませんので、悪しからず。
※必要最低限の記述しかしていません。
Sub SampleMain()
Dim MyBranch(2) As String
Dim i As Long
MyBranch(0) = "北海道支店.xls"
MyBranch(1) = "東京支店.xls"
MyBranch(2) = "関西支店.xls"
For i = 0 To 2
Call Sample(MyBranch(i))
Next i
End Sub
'私ならという事で感想。
'・本当はBook名が判っているので、ActiveWorkbookは使いません。
'・同じ理由でColumns("G:G")も上位オブジェクトを指定します。
Private Sub Sample(pBookName As String)
Workbooks.Open Filename:="C:\_sales\" & pBookName
Columns("G:G").ColumnWidth = 11.65
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
|
|