|
現在、複数CSVファイルの内容を取り込むプログラムを作成しておりますが、
2ファイル目をオープンする段階で処理が中断してしまいます。
実行/継続にて正常に処理を再開できるのですが、中断せずに処理を実行するにはどうすればよいでしょうか?
:
If IsArray(strFileName) Then
For i = 1 To UBound(strFileName)
Total = UBound(strFileName)
Workbooks.Open strFileName(i) ←ここでストップ
strFileName2 = ActiveWorkbook.Name
cntRec = cntRec + 1
Application.StatusBar = "CSV入力中…( " & cntRec & "/" & Total & " )"
:
尚、使用環境はExcel2010/Windows7 64bitです。
ご教授よろしくお願い致します。
|
|