シートをTab区切りでTxtに保存する方法

Question

Public Function call_Save_Tab_Txt_WS()
Dim fPath As String
Dim ws As Worksheet

'■現在開いているシート情報を変数に格納
fPath = ActiveWorkbook.Path & "\"
 
Application.DisplayAlerts = False
      
'■全てのシートをTab区切りtxt保存→テキスト(txt)閉じる(新規ブック作成→コピー→保存→終了)
For Each ws In ActiveWorkbook.Worksheets
    ws.Copy
    ActiveWorkbook.SaveAs Filename:=fPath & ws.Name, FileFormat:=xlText
    ActiveWindow.Close
Next ws
 
Application.DisplayAlerts = True

End Function

Sub test()
’■ActiveWorkBookの全てのシートを「シート名」でテキスト保存するマクロ
Call call_Save_Tab_Txt_WS
End Sub
のような形で各シートをTxtファイルに保存したうえで、Tabで区切りしたいのですが、
出力した内容に”が発生してしまいます。
Excelのデータツール:区切り位置を使用すれば問題ないようなので
ws.Copy　の下にこの処理を追加したいのですが、どうすればいいでしょうか・

Answer 1

vbaで編集ツールを操作して解決しました。

Answer 2

カンマが使われている文字列などが出力テキストで、
Tab"データ"Tab
となってしまうのを
TabデータTab
にしたい、ということですよね。
そういうデータがどこにどれだけあって次第ですけど、
SaveAs の前にセル内で編集を加えるか、
あるいは出力テキストを開いて編集するか、ではないかと。