FSOでテキストファイルのデータをエクセルに書き出

質問

FSOでテキストファイルのデータをエクセルに書き出すには？

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_040.html
を参考に、
メモ帳の中身をエクセルに書き出そうとしてるのですが、
参考サイトを自分なりにアレンジしてみたのですが、何も書き出されません。

Sub WRITE_TextFile3()
Const cnsFILENAME = "C:\Windows\PrimoPDF Setup Log.txt"
Dim FSO As New FileSystemObject ' FileSystemObject
Dim TS As TextStream ' TextStream
Dim strREC As String ' 書き出すレコード内容
Dim GYO As Long ' 収容するセルの行
Dim GYOMAX As Long ' データが収容された最終行

' 最終行の取得
GYOMAX = Cells(Rows.Count, "A").End(xlUp).Row
' 指定ファイルをOPEN(出力モード)
Set TS = FSO.CreateTextFile(Filename:=cnsFILENAME, Overwrite:=True)
' 2行目から開始
GYO = 2
' 最終行まで繰り返す
Do Until GYO > GYOMAX
' A列内容をレコードにセット(先頭は2行目)
strREC = Cells(GYO, 1).Value
' レコードを出力
TS.WriteLine strREC
' 行を加算
GYO = GYO + 1
Loop
' 指定ファイルをCLOSE
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub

そもそも、
' 最終行の取得
GYOMAX = Cells(Rows.Count, "A").End(xlUp).Row
で、なぜ最終行を取得するのかがわかりません。

書き出そうとしているシートには何も入ってないので、
GYOMAXは１になります。

そして、
' 2行目から開始
GYO = 2
で、なぜ 2行目から開始から開始するのかわかりません。

ご回答よろしくお願いします。

回答No.2

m3_maki · ベストアンサー

> FSOでテキストファイルのデータをエクセルに書き出すには？
>
> http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_040.html
> を参考に、
> メモ帳の中身をエクセルに書き出そうとしてるのですが、

そもそもこれがまちがっています。
参照先は 「テキストデータの書き出し」
すなわち、エクセルファイルの内容を テキストデータに書き出しているのです。

エクセルのVBAのコードでしょうから、
「エクセルに書き出す」 というより
エクセルの立場に立って
「外部からエクセルに読み込む」 というのが自然でしょう？

参考にするのはこちら。

テキストデータの読み込み
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html

お礼

ご回答ありがとうございました。

回答No.1

keithin

＞GYOMAXは１になります
＞２行目

ご覧になったページは「シート（Ａ列のセル）の内容をテキストファイルに書き出す」マクロです。
なのでシートに何も記入されていなければ、警告するように仕込まれています。

＞FSOでテキストファイルのデータをエクセルに書き出すには？

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html

＞FSO(FileSystemObject)だと、このようになります。
のREAD_TextFile3などをご参考に。

エクセルに書きだすんじゃなく、テキストファイルをエクセルに読み込みます。

お礼

ご回答ありがとうございました。