初めて投稿します。
今後よろしくお願いします。
早速質問なんですが、
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本実行しています。
なにかいい解決法はないでしょうか?
よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
その時点で出るということはファイルのパスが間違っているというのが一番に考えられますが。
ためしにC直下にでもCSVファイルを置いて、パスも直打ちでやってみたらどうでしょう。
この回答への補足
すみません、情報不足でしたね。
コードを全てのせることはできなかったので一部分のみのせてます。ちなみに600ファイルできる処理でそのうち約10ファイルだけ毎回異常終了します。
ファイルのパスも間違ってないです。
多分、同時に10本走らすところに問題があると思うのですが(ちなみに1本だとこのようなエラーはでないです。)、どうしてもこちらのシステムの機能として必要なのです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
EXCEL VBA 1004 一般ODBCエラー1
IT・エンジニアリング
-
WebのデータをとりこむExcelマクロのエラーについて
Excel(エクセル)
-
-
4
外部データを取り込むマクロ
Access(アクセス)
-
5
「Excel VBA」 Webクエリ マクロ「実行時エラー1004"ファイルにアクセスできませんでした」"
Visual Basic(VBA)
-
6
Excel VBA で、データベースファイルの取り込みで動作が停止してしまいます
Visual Basic(VBA)
-
7
一般ODBCエラーについて
PowerPoint(パワーポイント)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
「予期しないエラーが発生しました。」
Excel(エクセル)
-
10
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
11
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
Excel VBAにて特定のサイトからのWebクエリ取得に失敗します。
Visual Basic(VBA)
-
14
0バイトのテキストファイル
Visual Basic(VBA)
-
15
ExcelVBAでのプロジェクトのロックの解除の方法
Excel(エクセル)
-
16
実行時エラー'1004': アプリケーション定義またはオブジェクト定義
PowerPoint(パワーポイント)
-
17
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
18
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Access エラー 3051
-
CSVファイルの出力に関して
-
Refreshで落ちる
-
Excel VBA シートを指定して...
-
FFFTPでサーバに新規フォルダが...
-
【Excel VBA】PDFを作成して,...
-
ファイルのストーリーム配布時...
-
BASP21のアップロードについて
-
グーグルドライブからコピーし...
-
OpenGL(超初心者)
-
フォルダ参照ではなくファイル...
-
VBSで指定したフォルダにファイ...
-
windowsのC#での話です。あるプ...
-
EXCEL VBA ファイルが開かれて...
-
バッチによるショートカットの...
-
複数のテキストファイルをexcel...
-
Excelでdatファイルを作成??
-
batファイル処理でのテキストフ...
-
テキストファイルの文字色に色...
-
レーザープリンターのA4・5...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
Microsoft Access エラー 3051
-
Refreshで落ちる
-
【Excel VBA】PDFを作成して,...
-
ExcelVBAで、隠しフォルダにあ...
-
エクセルVBA フォームを開く時...
-
FFFTPでサーバに新規フォルダが...
-
ブラウザでASPファイルを開こう...
-
ASP上でFileSystemObjectのDele...
-
フォルダ参照ではなくファイル...
-
VBAでFTPファイル転送がうまく...
-
ASPのファイルを他のサーバにコ...
-
グーグルドライブからコピーし...
-
Excel VBA シートを指定して...
-
VBSで指定したフォルダにファイ...
-
オンラインスキャンをしようと...
-
ASP.NETで、別サーバーへファイ...
-
BASP21のアップロードについて
-
web.configファイル内、valueに...
-
CSVファイルの出力に関して
おすすめ情報