将Excel文件名打印到文本文件 – 为什么我会弄错？

这是我写的小脚本：

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 

另外，我想添加一些额外的文本到不在Excel工作簿中的.txt文件。 我将如何去做呢？ 谢谢！

Answer 1

VB在比较运算符和赋值运算符之间没有区别。 也就是说，他们都是= 。 在这种情况下，它被解释为比较运算符，返回false。 （把它和C比较，比较运算符是== ，赋值运算符是= ;你在这里要做的是在C中作为内联赋值）

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

 Print #1, ActiveWorkbook.FullName 

或者，使用两个语句（VB会理解这是一个任务，而不是比较）：

 strFileFullName = ActiveWorkbook.FullName Print #1, strFileFullName 

---

添加文本与添加其他打印语句一样简单：

 Print #1, "Lorem ipsum dolor"