|
こんにちは。
このようなことをやっています。
Sub Macro1()
Workbooks.Open Filename:="C:\_sales\北海道支店.xls"
Columns("G:G").ColumnWidth = 11.65
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:="C:\_sales\東京支店.xls"
Columns("G:G").ColumnWidth = 11.65
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:="C:\_sales\関西支店.xls"
Columns("G:G").ColumnWidth = 11.65
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
われながらいけてないとおもいます。
そこで(あいかわらず拙いですが、)次のようにしました。
Sub Macro1()
Dim MyBranch
Dim i As Integer
Do Until i = 2
If i = 0 Then
MyBranch = "北海道支店.xls"
i = i + 1
ElseIf i = 1 Then
MyBranch = "東京支店.xls"
i = i + 1
ElseIf i = 2 Then
MyBranch = "関西支店.xls"
End If
Workbooks.Open Filename:="C:\_sales\MyBranch"
Columns("G:G").ColumnWidth = 11.65
ActiveWorkbook.Save
ActiveWorkbook.Close
Loop
End Sub
実行するとMyBranch.xlsが無い、と出ます。
どこが悪いかどなたかご教示いただけませんでしょうか。
|
|