セル値をTextFileに置き換える方法

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