Excel VBA質問箱 IV

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

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


74550 / 76732 ←次へ | 前へ→

【6644】ちょっと、訂正
発言  ichinose  - 03/7/16(水) 18:34 -

引用なし
パスワード
   on error を宣言しておかないとエラーになってしまうようなので・・・。

>いろんな設定をユーザーに選択させたいなら、
>Excelに全部頼んでしまうと言う方法は?
>'===========================================
>Sub test()
   on error resume next
>  Dim ans
>  ans = Application.Dialogs(xlDialogImportTextFile).Show
   if err.number<>0 then ans=false
>  If ans = True Then
>    MsgBox "処理完了"
>  Else
>    MsgBox "処理中断"
>    End If
   on error goto 0
>End Sub
>
>どうでしょうか?

1 hits

【6639】テキストファイルのインポート こうき 03/7/16(水) 15:14 質問
【6640】Re:テキストファイルのインポート Jaka 03/7/16(水) 15:54 回答
【6641】Re:テキストファイルのインポート こうき 03/7/16(水) 16:57 質問
【6642】Re:テキストファイルのインポート Jaka 03/7/16(水) 17:37 回答
【6643】Re:テキストファイルのインポート ichinose 03/7/16(水) 18:24 発言
【6644】ちょっと、訂正 ichinose 03/7/16(水) 18:34 発言
【6646】Re:ちょっと、訂正 こうき 03/7/17(木) 9:26 お礼
【6645】ありがとうございます こうき 03/7/17(木) 9:24 お礼

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