Excel VBA質問箱 IV

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

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


6003 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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: 」は、「ファイルがオープン出来なかったら」って意味だと思っていたのですが間違っているのでしょうか?

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

【47721】Re:テキストファイルがオープン出来てる...
発言  ウッシ  - 07/3/20(火) 21:33 -

引用なし
パスワード
   こんばんは

テキストファイルの読み込みなのに、
>FILE$ = "\\データの場所\" & ファイル名 & ".XLS"
と、拡張子が「.XLS」なのは何故ですか?

【47724】Re:テキストファイルがオープン出来てる...
発言  Kein  - 07/3/20(火) 22:44 -

引用なし
パスワード
   エラートラップするなら書き方は
On Error GoTo NAICD
Workbooks.OpenText Filename:= _



NAICD:
If Err.Number <> 0 Then
  MsgBox Err.Number & vbLf & Err.Description
End If
ActiveWorkbook.Close False
End Sub

というようにして下さい。
その前にエラーの原因を突き止めて、ちゃんと対処しておくこと。
もちろんウッシさんが指摘している点も、要チェックです。

【47735】Re:テキストファイルがオープン出来てる...
お礼  VBA初心者  - 07/3/21(水) 10:15 -

引用なし
パスワード
   Keinさん、ウッシさんありがとうございます。
お二人の意見を参考に、変更してみます。

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