テキストの値を、セルの値に取り込みたい。

質問

すみません。誰か教えて頂けませんか。
エクセルの値を、テキストファルに出力する事が出来たのですが、
この値を、同じセル位置に取り込み操作をマクロで記述したいのですが、
どうやっても分かりません。
誰か教えて頂けませんでしょうか。

出力記述を下記に記入させて頂きます。
Sub 記録()
Dim myFileNo As Integer
Dim i As Long
Dim y As Long
Dim myLastRow As Long
Dim IMA As String
IMA = Format(Now, "yyyy.mm.dd.ss") & ".txt"
Worksheets("Sheet1").Activate
myLastRow = Range("A51").CurrentRegion.Rows.Count
myFileNo = FreeFile
Open "D:¥" & IMA For Output As myFileNo

For i = 50 To 64
For y = 1 To 64
Write #myFileNo, Cells(i, y),
Next y
Next i

Close #myFileNo
End Sub

空欄と値はカンマ区切りで出力されます。

すみません、宜しくお願いします。

回答No.1

keithin · ベストアンサー

書いた順に拾って記入していくだけです。

sub macro1()
　dim myFile as string
　dim r as long, c as long, buf as variant

　myfile = application.getopenfilename()
　if myfile = "False" then exit sub

　open myfile for input as #1
　for r = 50 to 64
　　for c = 1 to 64
　　　input #1, buf
　　　cells(r, c) = buf
　　next c
　next r
　close #1
end sub

お礼

keithin様

ありがとうございます。
よけいな事を考え、全然違う事をしていました。
解決する事が出来ました。