「パスが見つかりません」というエラー

質問

data.txtにセルの入力内容を出力したくて下記のようなプログラムを書きました。
ところが　Open StrFN For Output As #IntFlNo　のところで
パスが見つかりません
というエラーが出てしまいます。原因はわかりますでしょうか。

Sub test()
Dim StrFN As String
Dim i As Long
Dim IntFlNo As Integer

StrFN = "c\data.txt"

IntFlNo = FreeFile
Open StrFN For Output As #IntFlNo

For i = 2 To 400000
Write #IntFlNo, Cells(i, 1) & "$" & Cells(i, 2)
Next i

Close #IntFlNo

End Sub

回答No.2

jcctaira · ベストアンサー

StrFN = "c\data.txt"

ドライブ指定で「コロンが抜けている」のは完全に間違っています。

さらに「Cドライブの直下」にはデータを書き込むことができないと思います。

ご確認ください。

お礼

ご回答ありがとうございます。コロンを入れることで解決いたしました。

回答No.1

umamimi

VB はよく知りませんけど

＞StrFN = "c\data.txt"

ふつうドライブ文字の次にはコロン":"が要ると思いますが。

＞StrFN = "c:\data.txt"

に直せばよろしいかと。

お礼

ご回答ありがとうございます。コロンを入れることで解決いたしました。