エクセル マクロ ループ ファイル展開

質問

マクロ　ループ処理について質問です。
test エクセルファイルのD1セルから下にファイル名を入れていき、その名前(フルパスで入れています）のファイルを開きつつ、シートを　26-4　に選択していくループ処理をしたいのですが、2週目から Sheets("26-4").Select 　でエラーになります。
原因は、test　ファイルがアクティブになっているからだと思うのですが、その対策の仕方が、検索してもうまく見つからなかったので、質問しました。
ご回答よろしくお願いします。
エクセル2010　使用しております。

Range("D1").Select
i = 1
Do Until ActiveCell.Value = ""
Workbooks.Open Filename:=Range("D" & i) '操作事項マクロ
Sheets("26-4").Select
Windows("test.xlsm").Activate

ActiveCell.Offset(1, 0).Select '下にずれる
i = i + 1
Loop
End Sub

回答No.1

eden3616 · ベストアンサー

複数のオブジェクト（ブックやシート）をまたいで処理する場合は
変数の宣言や、選択や取得する対象を省略せず指示しましょう。

Sub test()
Dim i As Long '無かったので追加
Dim tar As Object 'オブジェクト変数を用意
i = 1 '行番号の初期値の設定
With ThisWorkbook.ActiveSheet 'with～end withでファイル一覧のシートを基準に指定
Do Until .Range("D" & i) = "" 'ループ処理開始
Set tar = Workbooks.Open(Filename:=.Range("D" & i)) '開いたブックをtar変数に格納
tar.Sheets("26-4").Select 'tarの対象シートを選択
i = i + 1 '行番号を1つ増やす
Loop
End With
End Sub

お礼

回答ありがとうございます。
ですが、2列目指定したファイルは開くのですが、　26-4　シートを選ぶところでエラーになってしまいます。
シート名の再確認したのですが、シート名は間違っておりませんでした。(半全角、空白も確認済み)

回答No.2

eden3616

エラー内容をご提示願います。

お礼

すいません。
ブック側が悪かったのか、各開くブックをA1セルに合わせて保存したあとに実行したらできました。
ありがとうございました。