Refreshで落ちる

初めて投稿します。
今後よろしくお願いします。

早速質問なんですが、
CSVファイルをインポートし、Excelファイルに貼り付ける下記処理なんですが、
Gobj_ExcelApp.Worksheets("W_" & Gtbl_NamePrsrvr(Wint_IterEN).Mstr_SheetName & "_" & Wint_IterSN).Activate

Set Wobj_CsvData = Gobj_ExcelApp.ActiveSheet.QueryTables.Add( _
Connection:="TEXT;" & Wstr_CsvPath & "\" & Gtbl_NamePrsrvr(Wint_IterEN).Mstr_CsvName(Wint_IterSN) & ".csv", _
Destination:=Gobj_ExcelApp.ActiveSheet.Range("A1"))

With Wobj_CsvData
.Name = Gtbl_NamePrsrvr(Wint_IterEN).Mstr_CsvName(Wint_IterSN)
.RefreshPeriod = 0
.TextFileStartRow = 1
.TextFileParseType = 1
.TextFileTextQualifier = -4142
.TextFileCommaDelimiter = True
.TextFileColumnDataTypes = Wint_DataType
.Refresh BackgroundQuery:=False
End With
Set Wobj_CsvData = Nothing

.Refresh BackgroundQuery:=Falseのところで"アプリケーション定義またはオブジェクト定義のエラーです。"というエラーでプログラムが終了します。

尚、同じプログラムを並行で10本実行しています。

なにかいい解決法はないでしょうか？
よろしくお願いします。

No.3 回答者： Aruku-20030515 回答日時： 2004/10/07 19:20

二行をまとめるなら

.Refresh; BackgroundQuery=False
ではなかろうかと・・・・

ＶＢで確認できないので　自信なし

No.2 回答者： popesyu 回答日時： 2004/10/07 19:05

その時点で出るということはファイルのパスが間違っているというのが一番に考えられますが。

ためしにC直下にでもCSVファイルを置いて、パスも直打ちでやってみたらどうでしょう。

この回答への補足

すみません、情報不足でしたね。
コードを全てのせることはできなかったので一部分のみのせてます。ちなみに600ファイルできる処理でそのうち約10ファイルだけ毎回異常終了します。
ファイルのパスも間違ってないです。
多分、同時に10本走らすところに問題があると思うのですが(ちなみに1本だとこのようなエラーはでないです。)、どうしてもこちらのシステムの機能として必要なのです。

よろしくお願いします。

補足日時：2004/10/07 19:08

No.1 回答者： Aruku-20030515 回答日時： 2004/10/07 18:56

「：」があるのは気のせいでしょうか？

最近ＶＢしていないので　正規の表記かどうかわかりませんが・・・

この回答への補足

気のせいじゃないです。
1行で書くとそう書くみたいです。
ちなみに2行で書くと
.BackgroundQuery = False
.Refresh
みたいです。

補足日時：2004/10/07 19:01