|
こんにちは。かみちゃん です。
>大変失礼いたしました。間違えておりました。
投稿時には、VBEで記述したコードをコピー、貼り付けされることをおすすめします。
>chdrive = "A:\"
先ほども書きましたが、このコード特に必要ではないと思います。
また、記述も間違っているためここでエラーになるのではないでしょうか?
先ほども書きましたが、ヘルプは確認されましたか?
>myName = Dir("A:\ *.csv", vbNormal)
気になるのは、\のあとに、半角スペースが入っているところです。
>とすると、存在しているはずのcsvファイルが見つかりません。
>と出てしまいます。普通のフォルダですとうまくいくのですが、
以下のようなコードで再度確認されてはいかがですか?
Dim myName As String
'ChDrive "A:\" '←このコードは不要!
myName = Dir("A:\*.csv", vbNormal)
If myName <> "" Then
Workbooks.Open Filename:=myName
Else
MsgBox "A:\*.csvのファイルはありません"
End If
|
|