vba - 无法在Excel VBA中打开文件，运行时错误为“52”

所以我有这个代码

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

但是，当我尝试运行它时，出现运行时错误'52'：文件名或编号错误。

我不知道我在做什么错，也许是我不知道的Office 2016 / Windows 10故障。

在此先感谢您的帮助

最佳答案

您需要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