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

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 回答日時： 2013/03/18 08:16

StrFN = "c\data.txt"

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

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

ご確認ください。

この回答へのお礼

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

お礼日時：2013/03/19 00:35

No.1 回答者： umamimi#2 回答日時： 2013/03/18 06:12

VB はよく知りませんけど

＞StrFN = "c\data.txt"

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

＞StrFN = "c:\data.txt"

に直せばよろしいかと。

この回答へのお礼

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

お礼日時：2013/03/19 00:36