EXCELの結果をTEXTファイル化する(2)

質問

すいません。

完成形のTEXTファイルの画像の添付を忘れました。

改めて、添付します。

----------------------
下記は、先の投稿。

https://okwave.jp/qa/q9758957.html

回答No.1

imogasi · ベストアンサー

Excelのシートのセルデータをもとにして、
VBA、VBScriptなどを使わずにやる方法は、WEB記事でも見つけにくいようだ。CSVファイルなら（VBAんどを使わずに）やりやすいかも。
ーー
VBAでも、この程度のものは長時間のVBAの勉強は要らないと思うから、勉強してVBAコードを作ったら。
ーー
ここへ質問する前に
Googleで「Excel　タブ区切り　テキストファイル　作成」などで照会してみて、あらかじめ、めぼしい記事を読んでおくべきだ。
https://moripro.net/vba-sheet-save-txt/
ExcelVBA】ブック内のシートをタブ区切りのテキスト形式で保存する

お礼

ありがとうございます。

　　必要な箇所だけ別シートにコピペして
　　EXCELの標準にある
　　「テキスト（タブ区切り）」でファイルを保存。

　　テキスト化できました。

-------------------
　参考記事、とても参考になりました。
　　　マクロも利用できそうなので検討します。

回答No.3

SI299792

ファイル、
名前を付けて保存、
保存の場所を指定、
ファイルの種類「テキスト（タブ区切り）」にする。

お礼

ありがとうございます。

　　必要な箇所だけ別シートにコピペして
　　「テキスト（タブ区切り）」でファイルを保存。

　　テキスト化できました。

　　計算用のシートと必要箇所をコピペしたシートと
　　２つのシートが存在するようになったので
　　「テキスト（タブ区切り）」でファイルを保存時に
　　　　下記が表示されるので「OK]としました。

-----------------------
　　選択したファイルの種類は複数のシートを含むブックをサポートしません。

　　・選択しているシートのみを保存する場合は「OK]をクリックしてください。
----------------------

回答No.2

imogasi

一旦CSVファイルを作り（これはエクセルの操作でできる）、これを下記のFSOのコードで、カンマをタブに置き合えてみた。
WEBで拾ったコードですが
Sub test01()
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Users\xxx\ドキュメント\Documents\CSV609例.txt", ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
MsgBox strLine
strLine = Replace(strLine, ",", vbTab)
strNewText = strNewText & strLine & vbCrLf
MsgBox strNewText
Loop
'---
objFile.Close
Set objFile = objFSO.OpenTextFile("C:\Users\xxx\ドキュメント\Documents\CSV609例B.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close
End Sub
でタブに置き換わるようだ。
上例では
C:\Users\xxx\ドキュメント\Documents\CSV609例.txt　がCSVファイル（インプットファイル）
C:\Users\xxx\ドキュメント\Documents\CSV609例B.txt"　が、タブ区切りデータ。（アウトプットファイル）