| |
こんにちは。かみちゃん です。
>大変失礼いたしました。間違えておりました。
投稿時には、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
|
|
かみちゃん
- 05/12/12(月) 23:37 -
