こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

度々お世話になります・・・。

お世話になります。良くこのカテゴリーの投稿と回答を参考にさせていただいています。つい数日前にも質問させていただきました。その件に関しては一応の解決を見たんですが・・・現状で幾つか問題点があり、困っています。どなたかおわかりの方がいらっしゃればご教示ください。

1.コモンダイアログコントロールでキャンセルを選択した際のエラーの処理。
下記のコードのようにしているのですが、エラーが消えません・・・。
Private Sub Command2_Click()
'ファイルを開く
With Form1.CommonDialog1
.CancelError = True
.ShowOpen
On Error GoTo ErrHandler
End With

Fn = CommonDialog1.FileName
Workbooks.Open Fn
Text1.Text = Fn
Debug.Print Fn

ActiveWorkbook.Activate
ActiveWorkbook.Visible = True
ActiveWorkbook.UserControl = True

ErrHandler:

End Sub

・・・過去の質問や参考書を見てこのようにしてみたのですが、どうも上手く行きません。何か原因があるのでしょうか?

2.VB上からExcelを読み込んで処理を行った後にExcelのプロセスが残ってしまう。
一応、QuitやNothingもしてるんですが・・・いつも残ってしまうので心配です。

なにぶん初心者ですのでいい知恵が思い浮かびません。皆様どうかよろしくお願いします。

投稿日時 - 2002-07-10 19:34:13

QNo.311127

すぐに回答ほしいです

質問者が選んだベストアンサー

On Error は.ShowOpenする前に書かないといけません。

投稿日時 - 2002-07-10 20:05:27

お礼

できるようになりました!!こんな簡単な事だったんですね(汗)助かりました。ありがとうございました。

投稿日時 - 2002-07-11 18:18:32

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

こんにちは。maruru01です。
1.はNo.1の方の言う通り。
2.は、差し障りない程度で、その部分のコードを書いてもらわないと何とも言えません。
では。

投稿日時 - 2002-07-11 09:19:00

お礼

申し訳ありません。1.がケアレスミスだったのでいろいろと見直してみたら解決してしまいました。わざわざご回答頂いたのにすみません。お騒がせしました。今後もまたこちらでいろいろと質問させていただくとは思いますが、よろしくお願いします。ありがとうございました。

投稿日時 - 2002-07-11 18:22:35

あなたにオススメの質問