|
こんにちは。かみちゃん です。
横から失礼します。
>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
としてみてください。
|
|