は、ファイルを開くことができません、私はそれを実行しようとしていたときに実行時エラー「52」

Question

は、だから私はこのコード

Dim fpath As String 
fpath = "D:\stats.csv" 
Open fpath For Append As #fw 

を持っているしかし、私は "実行時エラーを取得しています52 '：ファイル名または番号が正しくありません。

私が間違っていることはわかりません。私が気づいていないOffice 2016/Windows 10の不具合かもしれません。あなたの助け

Answer 1

を事前に

ありがとうございます有効なファイル識別番号であることをfwを必要としています。これを行うには、関数から識別子を取得するFreeFile：

Dim fpath As String, fw As Long 
fw = FreeFile     ' <--------- get a valid file identifier 
fpath = "D:\stats.csv" 
Open fpath For Append As #fw