excel - 将 Excel 文件名打印到文本文件 - 为什么我会出错？

Question

这是我写的小脚本：

    Option Explicit
Dim strFileFullName As String
Sub saveToText()
Open "PATH\File.txt" For Append As #1
Print #1, strFileFullName = ActiveWorkbook.FullName
Print #1, Sheets("Overview").Range("D14").Text
Close #1
End Sub

此外，我想在 .txt 文件中添加一些不在 excel 工作簿中的额外文本。我该怎么做呢？谢谢！

Answer 1

VB 没有比较运算符和赋值运算符的区别。也就是说，它们都是=. 在这种情况下，它被解释为返回 false 的比较运算符。（将此与 C 进行比较，其中比较运算符==和赋值运算符是=；您在这里尝试做的事情将在 C 中作为内联分配工作）

看起来你不需要额外的变量，所以你应该能够做到：

Print #1, ActiveWorkbook.FullName

或者，使用两个语句（VB 会将其理解为赋值，而不是比较）：

strFileFullName = ActiveWorkbook.FullName
Print #1, strFileFullName

---

添加文本就像添加另一个打印语句一样简单：

Print #1, "Lorem ipsum dolor"