VBAで、指定したファイルを読み込めません。

質問

ファイルを読み込むマクロを作ったのですが、「ファイルが見つかりません」というメッセージが出てしまいます。
Open "C:\Documents and Settings\Owner\デスクトップ\textfile.txt" For Input As #1

どこか、　間違ってがっているのでしょうか。

回答No.1

hirao110 · ベストアンサー

VBAに限らず、構文を作成する際は、できるだけ日本語(今回は「デスクトップ」)は使わないほうが良いので、下記のように変換してみてください。
「cnsFILENAME」は自分で決めることのできる、文字列です。

Const cnsFILENAME = "C:\Documents and Settings\Owner\デスクトップ\textfile.txt"

Open cnsFILENAME For Input As #1

補足

ご指摘のとおりに変えてもだめだったので、下記のように変えましたがだめでした。

Sub ファイル読み込み()
Dim tmp, buf As String, i As Long
Open "C:\Documents and Settings\Owner\My Documents\textfile.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Line Input #1, buf
tmp = Split(buf, Chr(9))
Cells(i, 1).Resize(1, 3) = tmp
Loop
Close #1

End Sub

回答No.2

BLUEPIXY

Open "C:\Documents and Settings\Owner\デスクトップ\textfile.txt" For Input As #1
試してみたところ上記形式で読み込めました。
(Owner の所を実際のユーザー名に変更)
ファイルが本当に存在していますか？