質問: "c:\test.txt" sheets(aa).select activeworkbook.saveas filename:=bb, fileformat:=xlunicodetext 「fileformat:=xlunicodetext」 ここの指定を変更すればいいように思うのですが、区切り無しのデータにするにはどうしたらいいのでしょうか。 たとえば、 a b c d 1 か し あ あ こういうデータを、 「かしああ」のように、区切り無しでファイルに出力したいのです。
回答: 複数シートを対象に繰り返すのか。 aa = "sheet1" bb = "c:\test.txt" はどういうようにデータを渡すのか。プログラムコードに組み込んでよいのか。エクセルの経験が少ないのか、ちょっと質問が荒っぽい。 a1セルにテキストファイル名があるとして 1回限りの作業 sub test01() d = range("a65536").end(xlup).row 'msgbox d open "c:\documents and settings\oto\my documents\" & range("a1") & ".txt" for output as #1 for i = 2 to d s = "" for j = 1 to 4 s = s & cells(i, j) next j print #1, s next i close #1 end sub ーー 結果 メモ帳 かしあう たねおか ーー unicodeにはなら無いと思う。 上記は旧くからあるやり方なので指定は出来ないかも。 文字コード変換ソフトが無いかな。