Как заменить значение ячейки на TextFile

Question

Я очень новичок в VBA. Теперь я хочу практиковать, используя простую проблему.

У меня есть файл первенствовать, содержащее значение ФФ:

Juan Miguel 28 
John Smith 25 

Я хочу, чтобы заменить эти значения ячейки на ячейку в текстовом файле.

Скажем, мой текстовый файл, это что-то вроде этого:

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

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

Можно ли иметь это вместо того, чтобы жестко прописывать содержимое TestFile внутри моего кода, используя приведенный ниже код?

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