无法在Excel VBA中打开文件，运行时错误'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