VBAで特定のファイルを順番にオートで開く

質問

誰か詳しい方教えてください。

　　　 Ａ　　 Ｂ　 　Ｃ
１　taro
２ ichiro
３ ziro
４ saburo
５ siro
６ goro
７

　あるワークシートに、上述のようにＡ１～Ａ６まで名前が記入された内容があります。
これらの内容をＡ１～Ａ６まで、ワンクリックで順番に全て自動にファイルを開き、同じ作業をマクロで
行いたいです。
　また、それぞれの名前には、複数回(３回分)の試行回数が含まれており、例えば３回程の試行
のexcelシートがあります。
　※Ａ１～Ａ６に記載されているのは、ファイル名です。excelシート名は全て、その氏名が記載されているファイル名の中の【１回目】、【２回目】、【３回目】と共通した内容です。

　たとえば、【ファイル】⇒【taro】⇒【1回目】、【２回目】、【３回目】の順で、excelシートを順に開き、シートを開いたあとは、作業内容が記録されたマクロの作業を行い、３試行が終わったら自動的にファイルを閉じて、次のシートやファイルに移行するように手順を進めていき、
【taro】の３試行が終了すると、
　次の【ファイル】⇒【ichiro】⇒【1回目】、【２回目】、【３回目】の順で、excelシートを開いていき、同様に作業を進めていきたいのです。

　【解析人数】×【試行回数】が膨大な量になるため、全てが同じ作業のため、あるワークシートの情報から、自動的に開いて解析し、Excelシートを保存し、閉じた後に次の作業にいくというように、一連の流れを作成したいです。
　いろいろと調べてみていますが、中々うまくできません。
　作業内容が多く、大変ご迷惑をおかけしますが、ご指導のほどお願い致します。

回答No.1

singlecat · ベストアンサー

'こんな感じでしょうか？

dim i1 as integer
dim i2 as integer
dim TargetWorkBook As Workbook

for i1=1 to 6
　Set TargetWorkBook = Workbooks.Open(Range("A" & i).value & ".xls")
　for i2=1 to 3
　　'実行させたいサブルーチン(マクロ)を呼ぶ
　next
TargetWorkBook.Save
TargetWorkBook.Close
next

お礼

早速のご回答ありがとうございます。

Set TargetWorkBook = Workbooks.Open(Range("A" & i).Value & ".xls")

のところでうまくファイルとエクセルシートを開く事ができませんでした。
何か特別な設定方法が必要でしょうか？？
何度もすみません...

回答No.3

kamepanman

要はこういうことですね。

Set TargetWorkBook = Workbooks.Open( Path & Range("A" & i).Value & ".xls")

Pathがパス名です。
パス名を入れる変数をPathとし、上記が実行される前にパスを定義してください。

お礼

ありがとうございます。できました。

回答No.2

singlecat

＞Set TargetWorkBook = Workbooks.Open(Range("A" & i).Value & ".xls")
＞のところでうまくファイルとエクセルシートを開く事ができませんでした。

例が悪かったですね。
これだとファイル名だけになりますので、ファイル名の前にPATH名を入れてください。

お礼

ありがとうございます。できました。