Question

我对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!"

Answer 1

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

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

如何将单元格值替换为TextFile

1 个答案: