Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34222 / 76732 ←次へ | 前へ→

【47720】テキストファイルがオープン出来てるのに、エラーと判断される
質問  VBA初心者  - 07/3/20(火) 21:04 -

引用なし
パスワード
   以下、ファイルオープンをする部分と閉じる部分のマクロ
================================

  FILE$ = "\\データの場所\" & ファイル名 & ".XLS"
  
  Workbooks.OpenText Filename:= _
   FILE$, StartRow _
   :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
   Comma:=False, Space:=False, Other:=False, FieldInfo:=Array( _
   Array(1, 2), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 2), _
   Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 2), _
   Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2))

  If Err Then GoTo NAICD:  'もしエラーが起きたら「NAICD:」ラベルにジャンプ
  sanwFL$ = ActiveWorkbook.Name  '今開いたファイル名をsanwFL$に代入

===============================
ちゃんと読み込めれば、ここでテキストデータから必要部分を抜き出して、
シートに貼り付ける。
===============================

 '開いたテキストファイルを保存しないで閉じる
 ActiveWorkbook.Saved = True ・・・・・※
 ActiveWindow.Close      ・・・・・※


NAICD:
  (ココでエラー処理)

=====================================

上記の「If Err Then GoTo NAICD: 」の部分で、テキストデータはちゃんとオープン出来ているのに、エラー方の分岐へ行ってしまいます。よって、※部分でファイルクローズ操作をしても、そこは通らないのでオープン状態のままになってしまいます。

「If Err Then GoTo NAICD: 」は、「ファイルがオープン出来なかったら」って意味だと思っていたのですが間違っているのでしょうか?

質問の仕方が下手ですが、よろしくお願いします。

1 hits

【47720】テキストファイルがオープン出来てるのに、エラーと判断される VBA初心者 07/3/20(火) 21:04 質問
【47721】Re:テキストファイルがオープン出来てるの... ウッシ 07/3/20(火) 21:33 発言
【47724】Re:テキストファイルがオープン出来てるの... Kein 07/3/20(火) 22:44 発言
【47735】Re:テキストファイルがオープン出来てるの... VBA初心者 07/3/21(水) 10:15 お礼

34222 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free