|
▼kanabun さん:
変数に関してご丁寧な説明をお書きくださり、ありがとうございます。
Option Explicitは以前にもこのサイトでご教示いただいたことがありました。
大変申し訳ありません。
コンパイルの結果は「変数が定義されていません」でした。
ご指摘いただいたとおりActiveWorkbookをActivebooksと記載したため
変数ととられました。
出来合いのものをつぎはぎしてやってるせいと思います。
下記のように直したら実行できました。
ありがとうございました。
(変なところは無いでしょうか。。)
Option Explicit
Sub Macro1()
Dim MyBranch(1) As String
Dim i As Long
MyBranch(0) = "北海道支店.xls"
MyBranch(1) = "青森支店.xls"
For i = 0 To 1
Workbooks.Open Filename:="U:\" & MyBranch(i)
ActiveWorkbook.SaveAs Filename:="U:\shiten\" & MyBranch(i)
ActiveWorkbook.Close True
Next i
End Sub
|
|