エラー処理についてのアドバイスをお願いします
- 現在、Excel2007でCSVファイルを取り込むVBAを作成しています。ダイアログでファイルを選択した際にエラーが発生した場合、どのようにエラー処理をすれば良いでしょうか？
- 現在、ファイルを選択するダイアログでエラーが発生した場合、Excel2007で作成しているVBAがうまく処理できません。エラー処理の方法についてアドバイスをいただきたいです。
- お願いですが、Excel2007のVBAでCSVファイルを取り込む際に、ダイアログでファイルを選択した際にエラーが発生した場合のエラー処理方法を教えていただけますか？
- ベストアンサー
エラー処理について
お世話になっております。 現在、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 すみませんがどうかアドバイス宜しくお願いします。 では失礼します。
- digital_taro
- お礼率67% (36/53)
- Visual Basic
- 回答数2
- ありがとう数15
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
そんなところにエラー処理ルーチン書いたら毎回通ってしまいますね。 On Error GoTo ErrHandler Do Until objTS.AtEndOfStream Loop '必要ならここで On Error GoTo 0 ’Loop 終了後の処理・・・・ Exit Sub または Exit Function ErrHandler: MsgBox "エラーが発生しました。Excelを強制終了します。", vbOKOnly + vbCritical, "終了" Application.Quit Windows("ファイル名").Close True Loop こうすればエラー処理はエラーが発生したときしか通らなくなります。
その他の回答 (1)
- NotFound404
- ベストアンサー率70% (288/408)
ここを熟読する。 エラーに負けない http://officetanaka.net/excel/vba/tips/tips104.htm
お礼
ありがとうございました。 参考になりました。 では失礼します。
関連するQ&A
- VBAでどのようにすればいいのでしょうか。
Excel2007でCSVファイルを取り込むVBAで作成しています。 下記のURLを参考にしています。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_030.html 皆さんにお聞きしたい事があり、投稿させていただきました。 CSVファイルの先頭行にタイトル行が指定されている場合、VBA上で除外する事は可能でしょうか。 できれば Do Until objTS.AtEndOfStream ※この中で・・・ Loop すみませんがどうかアドバイス宜しくお願いします。 では失礼します。
- ベストアンサー
- Visual Basic
- 複数のファイルに対し同じ処理を行う方法
複数のファイルのエクセルファイルに対し、同じ処理を行うマクロを教えてほしいです。 処理するファイル数が一定でないため、現在はDo While～Loop構文を用い強引に処理しています。 しかし、この方法では処理が終わる（アクティブファイルが無くなる）とエラーメッセージが出るため、煩わしいです。 Do Until構文で、終了条件を指定したらよさそうなのですが、どのように書けばいいのかわかりません。 現在記述しているものは以下です。 -------------------------------------------------------- Sub 連続処理() Dim BookName As String Dim PathName As String PathName = "D:\A1\連続処理\" BookName = Dir(PathName & "*.xls") Do Until BookName = "" Workbooks.Open PathName & BookName BookName = Dir() Loop Do While (1) ・ ・（処理作業を行うマクロ） ・ Workbooks(ActiveWorkbook.Name).Close savechanges:=True Loop End Sub
- ベストアンサー
- Visual Basic
- 【VB】セルが空になるまで処理を繰り返したい
Excel VBAを使用してです。 列Ａにデータがずらっと入っています。 そのデータを列Ｂに、 Do while ～loop か Do until ～loopを使って データが無くなるまでコピーするという処理を書きたいのです。 VB歴が浅いためひらめきません。よろしくお願いします。m(__)m
- ベストアンサー
- Visual Basic
- 合計金額を出すには動的配列？
初投稿です。ASPで見積スクリプトを作っています。 ソースは・・・ Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") Set ObjTS = ObjFSO.OpenTextFile(data_file) Do Until ObjTS.AtEndofStream Arr = ObjTS.Readline Arr1 = split(Arr,"::") tanka = FormatCurrency(Arr1(1)) goukei = Arr1(1) * Arr1(2) Loop ObjTS.Close Set ObjTS = Nothing Set ObjFSO = Nothing ================================ この、変数：goukeiを全て加算して、 最後に見積合計を出したいんですが、 これを出すには Redim Preserve goukei() のような、動的配列を使うのですか？ それとも使わなくても出来るものなんでしょうか？ プロの方にとっては、簡単すぎる質問でしょうが、 分かる方、ぜひご教授お願いします。
- ベストアンサー
- Microsoft ASP
- 2重のDo～Loopは？
Excel VBAですが、A列にデータが入っています。 A列のデータが変わるまで 処理1 を実行し、変われば 処理2 を実行する。データがなくなれば終了する方法が分りません。宜しくお願いします。 i = 2 Do Until Cells(i, 1) = "" Do Until Cells(i, 1) <> Cells(i - 1, 1) 処理1 Loop 処理2 Loop
- ベストアンサー
- Visual Basic
- 複数のシートに対してDo～Loopで処理を繰り返したいのですが処理を止める構文が解りません。
処理の度にシート数が変わるブックで同じマクロを繰り返したいのですが、すべてのシートを選択してマクロを実行したところマクロに範囲指定→ソートの部分があり、処理が止まってしまいます。そこでDo～Loopを使用して順番にマクロを処理していこうと思うのですが、マクロを止める構文がよく解りません。 ＶＢＡ初心者なものでいろいろ調べて以下のようなものを考えてみたのですがエラーになってしまいます。どなたかお助けください。 Do Until ActiveSheet.Previous.Is Nothing Application.Run "PERSONAL.XLS!Macro101" ActiveSheet.Previous.Activate Loop End Sub
- ベストアンサー
- オフィス系ソフト
- ProgressBarを用いる場合、全体の処理数の求め方（Do Loop文に関して）。
ProgressBarを用いる場合、全体の処理数を求めますが、Do Loopを用いる場合、For文と異なり必ずしもすぐに全処理数が分かるわけではありません。そのような場合、どのように全処理数を求めればよいですか？ 私は、あるフォルダにあるファイルすべてを処理するプログラムを作りました。Do Loopで全てのファイルを参照し終わるまでをUｎtilの条件としています。したがって、いくつのファイルがあるかは分かりません。
- 締切済み
- Visual Basic
- VBA エラーハンドラーについて
VBAについてお教えください。テキストファイルを開いて、データ処理を行おうと思っています。 下記のような処理をおこなっています。 On Error GoTo ErrorHandler 'ファイル番号を取得 FNo = FreeFile Do While Not EOF(FNo) ～～処理 ～～処理 Loop 'ファイルを閉じる Close #FNo ErrorHandler: ～～処理 end sub ループが無事に終わって、ファイルを閉じるところまで行くのは良いのですが、Close #FNoの後に処理がErrorHandler:に移ってしまいます。 特に問題が無ければ、ErrorHanderを飛び越えてend subに行くと思っていたのですが、認識が違うのでしょうか？ それとも何らかのエラーが起こっているのでしょうか？
- ベストアンサー
- Visual Basic
- ループ処理の繰り返しについて
お世話になっております。 単純なことで悩んでおります、どなたかわかるかたお願いいたします。 <% DO UNTIL SQLrs.EOF IF a=0 THEN %> 処理１ <% END IF SQLrs.MOVENEXT LOOP %> <% SQLrs.MOVEFIRST DO UNTIL SQLrs.EOF IF b=0 THEN %> 処理２ <% END IF SQLrs.MOVENEXT LOOP %> 上記のような処理順なのですが、問題は MoveFirstで先頭のレコードにもどらないのか、2回目のループ処理がうまく抽出できません。 原因はわかりますでしょうか？
- ベストアンサー
- Microsoft ASP
- フォルダのファイルを開く
ExcelVBAについて。 「フォルダ内の「*.xls」ファイルを開く」という処理をVBAで行いたいですが、 ネット上の情報（ http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_120.html ）よりも 簡素に記述することは可能でしょうか？ よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございました。 参考になりました。 では失礼します。