[[20120312174012]]　『CSVをテキストに変換』（ogura）　ページの最後に飛ぶ

『CSVをテキストに変換』（ogura）

 エクセルをCSVにする際に
 カンマ区切りではなく、パイプラインで区切りたいのですが、
 どのようにしたらよいのでしょうか？
 宜しくお願い致します。

 CSV はタブ区切り書式のことですが、保存の指定形式には｜区切りがないので、

 (1)保存したい範囲をコピー、
 (2)メモ帳に貼り付け
 (3)置換機能「タブ」と | を置換して
 (4)任意のファイル名で保存
 でどうでしょうか。タブはデータ中からコピーして検索欄へ貼り付けてください。
 (Mook)

 大変厚かましいのですが、
 VBAでどうにかなりますでしょうか？

 宜しくお願い致します。

 (ogura)

 やり方はいろいろだと思いますが、サンプルです。

 Sub savePSV()
    Const filePath = "D:\test.txt"

    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=filePath, FileFormat:=xlText
    ActiveWindow.Close
    Application.DisplayAlerts = True

    Dim pTxt
    With CreateObject("Scripting.FileSystemObject")
        pTxt = Replace(.OpenTextFile(filePath).ReadAll(), vbTab, "|")
       .CreateTextFile(filePath, True).Write pTxt
    End With
 End Sub
 (Mook)

 本当に有難う御座いました。

 （ogura)

コメント返信：

[ 一覧(最新更新順) ]

[[20120312174012]] 『CSVをテキストに変換』（ogura） ページの最後に飛ぶ

[[20120312174012]]　『CSVをテキストに変換』（ogura）　ページの最後に飛ぶ