VBAを利用し、Excelの指定範囲をテキストとして指定した場所に指定

質問

VBAを利用し、Excelの指定範囲をテキストとして指定した場所に指定した名前で保存[同ファイルがあっても上書き]なんてこと出来ますでしょうか

環境は
win xp
office2003
です。

どうぞ、よろしくお願い致します。

回答No.1

fujillin

テキストの区切りはどうするのかとか、範囲や場所の指定はどやって行なうのかなど不明な点がたくさんありますが、可能だと思われます。

ごく簡単なサンプルとして。
（選択範囲をテキストファイルにtab区切りで出力。選択範囲のチェックなどは行っていません）

Sub Sample()
　Dim rng As Range, c As Range
　Dim rw As Long, n As Long

　Const file = "text.txt" '/ 保存テキストファイル

　rw = 0
　n = FreeFile
　Set rng = Selection
　Open file For Output As #n

　For Each c In rng
　　If (c.Row <> rw) Then
　　　If rw <> 0 Then Print #n, Tab(1);
　　　rw = c.Row
　　ElseIf rw <> 0 Then
　　　Print #n, vbTab;
　　End If
　　Print #n, c.Text;
　Next c
　Close #n
End Sub

* 必要な範囲を新規シートにコピーして、txtなどでシートを保存という方法のほうが簡単かも知れません。

お礼

>ごく簡単なサンプルとして
簡単で、こんなに素晴らしいものを書いて頂き感謝しております。

具体的に、
Worksheets("sheet1").Range("A1:C10")を
Dドライブ直下にtext.txtの名前で保存したいのです。

テキストの区切りは、A1:C1を繋げて以降は改行したいと思っています

以上、宜しくお願い致します。