|    | 
     現在、複数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です。 
ご教授よろしくお願い致します。 
 
 | 
     
    
   |