エクセルVBA保存タブ区切りファイルとして

Question

私は

John Hopkins, Burgers 
becomes 
"John Hopkins, Burgers" 

のようなタブ区切りのテキストファイルとしてアクティブなワークシートを保存し、いくつかのコード、引用符でエクスポートされるそれらの中にコンマ文字を持っているが、セルのデータを、持っています

どうすればこの問題を回避できますか？

これは私のコードです：

この追加

ActiveWorkbook.SaveAs ActiveWorkbook.path & "\" & filename, 
FileFormat:=xlText, CreateBackup:=False 

： を私はちょうど私が再度ファイルを保存した場合、それは「」すべて削除されていることが分かりました。 コードに追加の保存を追加できますか？

Answer 1

私はそれを解決しました！あなたは区切りファイルとしてそれを手動で保存するときに引用符が消えるので、しかし、あなたは

ActiveWorkbook.SaveAs ActiveWorkbook.path & "\" & filename, 
FileFormat:=xlText, CreateBackup:=False 

を使用していないとき、私はちょうど上記1の後に保存別を追加しましたが、SENDKEYストロークを使用して、この時間は、手動による方法を模倣します。

ActiveWorkbook.SaveAsフィル、FileFormatは：= _ xlText

SendKeys "^{F4}" 
SendKeys "{ENTER}" 
SendKeys "{ENTER}" 

Answer 2

なFileFormatプロパティによると、あなたの中から選択するには、次の形式があります。

xlCSV 
xlCSVMac 
xlCSVMSDOS 
xlCSVWindows 

をなぜあなたは、カンマ区切り値形式のいずれかを選択しませんか？

Try xlCSV

Answer 3

これは私が通常のXLSBファイルやXLS *ファイル を保存するために使用されるいくつかのコードの変化はいえ、多くの異なるファイルを使用することができるです。

Sub SaveAsTDV() 

' 
' Easy way to export to Tab Deliminated Values 
' By DeLaguna 
' v17.05.10.15.06 
' 

Dim BaseFolder As String 
    Dim LitProg As String 
    Dim Path As String 
    Dim Extn As String 
     BaseFolder = "YourBase Folder\"  
     FileName = "FileName" 'File name with no Extension. 
     Extn = ".txt" 'If choosing somthing other than xlText you may change this. 

Application.DisplayAlerts = False 'Auto Yes to save 

    ChDir BaseFolder 
     ActiveWorkbook.SaveAs Filename:= BaseFolder & FileName & Extn, _ 
     FileFormat:=xlText, CreateBackup:=True 'xlText will save as Tab Deliminated text 

Application.DisplayAlerts = True ' Reverts to Excel Default showing popup messages for input. 

End Sub 

うまくいけば、それは誰かが私はそれから機密情報を墨消しするために持っていたすべてのエラーを作った場合、私に知らせて助けます。

Answer 4

変更FileFormatはxlText xlTextPrinter

ActiveWorkbook.SaveAs ActiveWorkbook.path & "\" & filename, 
    FileFormat:=xlTextPrinter, CreateBackup:=False