Excel VBA質問箱 IV

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

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


22465 / 76732 ←次へ | 前へ→

【59649】Re:CSVファイルのデータの取り込み 実行時エラー1004
発言  かみちゃん E-MAIL  - 08/12/28(日) 14:42 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>awuさんのご指摘のあった箇所を修正してみました。
>
>すると今度は、ファイルを開くと
>
>実行時エラー13
>型が一致しません。
>
>とエラー表示されます。
>
>デバッグしてみると、「If fname = False Then」の部分が黄色く網掛けされています。
>どういうことでしょうか…?
>
>
>Sub Macro2()
>Dim fname As String
>fname = Application.GetOpenFilename(filefilter:="CSV ファイル(*.csv),*.csv")
>If fname = False Then Exit Sub

awuさんからの指摘が修正されていません。
Dim fname As String
ではなく、
Dim fname As Variant
です。

もしくは、なんらかの事情で、
Dim fname As String
としているならば、
If fname = False Then Exit Sub
の部分を
If fname = "False" Then Exit Sub
としてみてください。

3 hits

【59640】CSVファイルのデータの取り込み 実行時エラー1004 ぷり子 08/12/27(土) 23:31 質問
【59642】Re:CSVファイルのデータの取り込み 実行時... ponpon 08/12/28(日) 0:10 発言
【59644】Re:CSVファイルのデータの取り込み 実行時... ぷり子 08/12/28(日) 0:20 回答
【59643】Re:CSVファイルのデータの取り込み 実行時... awu 08/12/28(日) 0:13 質問
【59645】Re:CSVファイルのデータの取り込み 実行時... ぷり子 08/12/28(日) 0:21 回答
【59648】Re:CSVファイルのデータの取り込み 実行時... ぷり子 08/12/28(日) 14:31 質問
【59649】Re:CSVファイルのデータの取り込み 実行時... かみちゃん 08/12/28(日) 14:42 発言
【59650】Re:CSVファイルのデータの取り込み 実行時... ぷり子 08/12/28(日) 15:12 お礼

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