下記コードでエクセルをtxtに変換するとカンマを含む文字数字が「””」付になってしまいます。
カンマ「,」を含んでいても「””」付にならないような方法を教えていただけますか。
Private Sub CommandButton1_Click()
Dim MyPath As String
Dim MyName As String
'ファイルパス
MyPath = ThisWorkbook.Path
'テキストファイルにつける名前
MyName = "リスト"
'対象シート別ファイルへ複製
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
'テキストタブ区切りで保存
ActiveWorkbook.SaveAs Filename:=MyPath & "/" & MyName & ".txt", _
FileFormat:=xlText, CreateBackup:=False
'複製したファイルを閉じる
ActiveWorkbook.Close False
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
>カンマを含む文字数字が「””」付になってしまいます。
どうやら、テキスト保存時のエクセルの仕様のようですね。
>「””」付にならないような方法を教えていただけますか。
SaveAsを使わずに直接テキストファイルとして書き込めば宜しいでしょう。
詳細が不明なので、以下はご参考までに。
(TextJoinが使える、Excel 2019 以降を想定しています)
Sub Q13115188()
Dim fNum As Long, rw As Long, cl As Long
Worksheets("Sheet1").Activate
fNum = FreeFile
Open ThisWorkbook.Path & "\リスト.txt" For Output As #fNum
For rw = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
cl = Cells(rw, Columns.Count).End(xlToLeft).Column
Print #fNum, WorksheetFunction.TextJoin(vbTab, 0, Cells(rw, 1).Resize(, cl))
Next rw
Close #fNum
End Sub
>テキスト保存時のエクセルの仕様のようですね
そうですか。私にとっては難問でした。
おかげ様で私のやりたい事が実現出来ました。
利用させていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/04 14:20
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
多数のサブディレクトリ内のフ...
-
拡張子を元に戻す
-
テキストファイルのファイル名...
-
ファイルの最後に文字列挿入
-
Windowsのバッチファイルを利用...
-
バッチファイル 複数ファイル...
-
フォルダ名をファイル名の頭に...
-
.txtではなく.logの方が良いの...
-
バッチファイルで文字列削除に...
-
EXCEl/VBAで拡張子なしのファイ...
-
ExcelVBA テキストファイルUNIC...
-
psqlでエラーログをとりたい
-
ftpコマンドで複数のファイルを...
-
Teraマクロで取得した変数を編...
-
ハードディスク上書き用大容量...
-
forfilesで検索したファイルを...
-
txtのファイルから編集してもい...
-
実行時にコモンダイアログのフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
.txtではなく.logの方が良いの...
-
txtのファイルから編集してもい...
-
バッチファイルで文字列削除に...
-
Windowsのバッチファイルを利用...
-
バッチファイル 複数ファイル...
-
ファイルの最後に文字列挿入
-
テキストファイルのファイル名...
-
psqlでエラーログをとりたい
-
forfilesで検索したファイルを...
-
renameコマンドについて
-
accessでSQL文を使ってcsvファ...
-
コマンドプロンプトでスペース...
-
ファイルを処理中に次の処理に...
-
UWSCでテキストファイルを開い...
-
バッチファイルからVBAに引数を...
おすすめ情報