Vba 如何将单元格值替换为文本文件

我是VBA的新手。现在我想练习使用一个简单的问题

我有一个包含ff值的excel文件：

Juan    Miguel  28
John    Smith   25

我想在文本文件中每个单元格替换这些值单元格

假设我的文本文件是这样的：

FirstName Person1: $A1
LastName Person1: $B1
Age Person1: $C1

FirstName Person2: $A2
LastName Person2: $B2
Age Person2: $C2

是否可以使用下面的代码在我的代码中使用此代码而不是硬编码测试文件的内容

Print #TextFile, "Hello Everyone!"

---

您可以使用以下代码开始：

Dim i As Long, lastRow As Long

Set mySheet= ActiveSheet

lastRow = mySheet.Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To lastRow
    Print #TextFile, "FirstName Person" & CStr(i) & ": " & mySheet.Cells(i,1).Text
    Print #TextFile, "LastName Person" & CStr(i) & ": " & mySheet.Cells(i,2).Text
    Print #TextFile, "Age Person" & CStr(i) & ": " & mySheet.Cells(i,3).Text
    Print #TextFile,     'print a blank line
Next i

---

请键入VBE~Sub Printtest（）Dim lastrow，长度为ActiveSheet lastrow=Cells（Rows.Count，“A”）.End（xlUp）.Row For i=2，以调试lastrow.Print.Cells（i，1）.Text&&.Cells（i，2）.Text&&。单元格（i，3）。文本和“大家好！”下一个结尾是结束子样本输出David Smith 55大家好！约翰方舟23大家好！谢谢你的代码！：）是否可以在打印功能中的“”内添加双引号？例如，打印#TextFile、“Name”。输出应该像“Name”是的，这是常规的

string

thingy。您需要转义它：

“Name”

要在

字符串中以引号开始
字符串
，您还需要转义它：
“这在”
之前有一个引号，或者如果您只想在
字符串
中有一个引号，而不想在其他任何地方，您可以将
“
转义引号放在引号中。如果需要两个引号，则可以同时转义：
“”“
哦，是的，别忘了接受答案；-）明白了：）另一个问题，例如，我的单元格A2被分配给变量FName。我没有打印功能print#TextFile，“My Firstname:”。您可以使用
print#TextFile，“My Firstname:”&CStr（Fname）