VBA错误代码54怎么解决

萝卜不吃萝卜

刚刚学习VBA，到文件写入的时候出现代码54，不知道哪里错误了，如图
代码如下：

Sub Writetxt()
Dim i As Integer
Open "C:\Users\Administrator\Desktop\名单.txt" For Input As #1
i = 1
Do While Cells(i, 1) <> ""
Print #1, Trim(Cells(i, 1))
i = i + 1
Loop
Close #1
End Sub

萝卜不吃萝卜

找到原因了   应该是的 For output As #1

洋务德雷

萝卜不吃萝卜 发表于 2023-1-9 21:02
找到原因了   应该是的 For output As #1

For output As #1

这句代码什么意思？写了这么多年代码，我竟然没有见过这个。请教一下了

半百

洋务德雷 发表于 2023-1-9 22:08
For output As #1

这句代码什么意思？写了这么多年代码，我竟然没有见过这个。请教一下了

以下是我的理解
Open 路径 & "A.txt" For Input As #1，打开一个已经存在的文本文件，后边可以用代码读取其内容，如果没有该文件则出现错误。
Open 路径 & "A.txt" For Output As #1，打开或新建一个文本文件，如果该文件存在，则打开并清除其内容，如果没有该文件，则新建一个文本文件。后边可以用代码往里输入内容（重写）。
Open 路径 & "A.txt" For Append As #1，打开或新建一个文本文件，如果该文件存在，则打开，如果没有该文件，则新建一个文本文件。后边可以用代码往里输入内容（续写）。

洋务德雷

半百 发表于 2023-1-10 13:08
以下是我的理解
Open 路径 & "A.txt" For Input As #1，打开一个已经存在的文本文件，后边可以用代码读 ...

谢谢指教！三人行必有我师焉！