VBマクロについて

質問

VBマクロについて

0864_001.xls
0864_002.xls
…
0864_009.xls
というxlsファイルがあります。

0864_001.xlsを開く→処理→閉じる→0864_002.xls→…
のようなループを考え、matome.xls内で以下のようなマクロを作成したのですが実行されません。

Sub Test()
Dim i As Integer
For i = 1 To 9
Workbooks.Open ThisWorkbook.Path & "\0864_00" & CStr(i) & ".xls"
Workbooks("\0864_00" & CStr(i) & ".xls").Activate
Range("F1").Formula = "=max($B$11:$B$17)"
Range("G1").Formula = "=max($B$391:$B$398)"
Range("F1:G1").Copy
Workbooks("matome.xls").Activate
Sheet1.Activate
Range("A" & CStr(i + 1)).PasteSpecial Paste:=xlPasteValues
Workbooks("\0864_00" & CStr(i) & ".xls").Close SaveChanges:=False
Next i
End Sub

5行目でエラーが発生し、「インデックスが有効範囲にありません」とのメッセージが表示されます。
どのようにすれば実行されるのか教えていただきたいです。

回答No.1

nag0720 · ベストアンサー

Workbooks("\0864_00" & CStr(i) & ".xls").Activate
↓
Workbooks("0864_00" & CStr(i) & ".xls").Activate

Workbooks("\0864_00" & CStr(i) & ".xls").Close SaveChanges:=False
↓
Workbooks("0864_00" & CStr(i) & ".xls").Close SaveChanges:=False

お礼

ありがとうございます。
無事に実行することができました。

回答No.2

myRange

質問の件とは別ですが、、、
開いたブックからはデータを取得するだけですから
式はは入れないで直接そのデータを参照した方がいいでしょう。
また提示のコードでは開いたブックの式を入れるシートが特定されていません。
ということは開くブックは全てOpen時には該当シートがアクティブになっているということになりますが。。。

ま、それは置いといて、次の条件で。。

開かれるブックは全て、"Sheet3"を対象とする
まとめブックの"Sheet1"のＡ、Ｂ列の２行目から結果を代入する

'-------------------------------------
Sub Test()
　Dim i As Integer
　For i = 1 To 9
　　Workbooks.Open ThisWorkbook.Path & "\0864_00" & CStr(i) & ".xls"

　　With Workbooks("matome.xls").Sheets("Sheet1")
　　　　.Cells(i + 1, "A") = WorksheetFunction.Max(Sheets("Sheet3").Range("$B$11:$B$172"))
　　　　.Cells(i + 1, "B") = WorksheetFunction.Max(Sheets("Sheet3").Range("$B$391:$B$398"))
　　End With

　　ActiveWorkbook.Close False
　Next i
End Sub
'-------------------------------------------

以上です。

お礼

各ファイルにシートは1つしかなかったので、シートを指定しなくとも問題なく動いていたのかもしれません。
myRangeさんのプログラムのほうがスマートに見えるので書き換えました。ありがとうございます。
初めて見る関数がいくつかあるので、それらについてよく調べてみます。