お世話になっております。 現在、Excel2007でCSVファイルを取り込むVBAで作成しています。 下記のURLを参考にしています。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_030.html エラー処理について皆さんにお聞きしたい事があり、投稿させていただきました。 ダイアログでファイルを選択した際にエラーが発生した場合、どのようにエラー処理をしたらいいのでしょうか。 できれば Do Until objTS.AtEndOfStream ※この中で・・・ Loop 現在は下記のように記述していますがうまく処理できません。 正常でもエラーでもエラー扱いされてしまいます。 Do Until objTS.AtEndOfStream On Error GoTo ErrHandler ErrHandler: MsgBox "エラーが発生しました。Excelを強制終了します。", vbOKOnly + vbCritical, "終了" Application.Quit Windows("ファイル名").Close True Loop すみませんがどうかアドバイス宜しくお願いします。 では失礼します。
↧