vba 呼び込みで１回目のファイルを参照しエラー

質問

お世話になります。
Sub test02() '
ChDir "C:\08-C\9\1k-1\m\"
For i = 1 To 10
Workbooks.Open Filename:=Cells(i + 10, "A") & ".xls", UpdateLinks:=0
i = i + 1
Next i
End Sub

上記のコードで呼び出しをすると一回目は指示どうりに動作　for to 文ですから
二回目の呼び出しが一回目のファイルを参照してしまうので エラーに　（此処で大弱り）
dirの　 "C:\08-C\9\1k-1\m\"　　\mにexcelのファイルが有ります。
参照先の　　Cells(i + 10, "A") & ".xls"は　 "C:\08-C\9\1k-1\m\" 　の中にsw.xls　が有り
A列１１より数字４桁で入ってその後には　 数字４桁、　数字+漢字、　　漢字　の順に入っています。
A列の配列はソートをかけています。
または
A列１１より数字４桁　だけでも解決が付けば大変な感謝です。

回答No.1

xls88 · ベストアンサー

Workbooks.Open Filename:=Cells(i + 10, "A") & ".xls", UpdateLinks:=0
を
Workbooks.Open FileName:=ThisWorkbook.ActiveSheet.Cells(i + 10, "A") & ".xls", UpdateLinks:=0
とか
Workbooks.Open FileName:=Workbooks("ABC.xls").Sheets("Sheet1").Cells(i + 10, "A") & ".xls", UpdateLinks:=0
というように、ファイル名一覧の所在地を明示すれば解決すると思います。

≪参考≫
>For i = 1 To 10
>Workbooks.Open Filename:=Cells(i + 10, "A") & ".xls", >UpdateLinks:=0
>i = i + 1
>Next i
が間違いない（1行置きに参照）なら
For i = 1 To 10 Step 2
　　Workbooks.Open Filename:=Cells(i + 10, "A") & ".xls", UpdateLinks:=0
Next i
というように書くことができます。

あと
>参照先の　　Cells(i + 10, "A") & ".xls"は　 "C:\08-C\9\1k-1\m\" 　の中にsw.xls　が有り
>A列１１より数字４桁で入ってその後には　 数字４桁、　数字+漢字、　　漢字　の順に入っています。
>A列の配列はソートをかけています。
>または
>A列１１より数字４桁　だけでも解決が付けば大変な感謝です。
私には理解できません。何をおっしゃりたいのか意味不明です。

お礼

毎度お世話になります。
数字４桁、　数字+漢字、　　漢字
完璧に動作しました。
有難うございました。