Q&A
このままではコードが読みづらいので、質問を編集し、<code>ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください
んで、実際の出力結果も提示していただければありがたい
前提・実現したいこと
ここに質問の内容を詳しく書いてください。
エクセルからｃｓｖ出力の際にｃｓｖで保存すると三行ほど,,,(カンマ）があります。カンマを消して保存したい
■■な機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
Sheets("mmm")
1c = "mmm" 2d = Format(Now() , "yyyymmdd-hhmmss") 3e = c & "_" & d & ".csv" 4f = ThisWorkbook.Path & "￥" & e 5 6Sheets("mmm").Copy 7Range("B1:AH13").Select 8Selection.Copy 9Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 10:=False, Transpose:=False 11 12Dim a As Long 13For a = Cells(Rows.Count, 8).End(xlUp).Row To 2 Step -1 14If a = Cells(a, 8).Value = "" Then 15Rows(a).Delete 16End If 17Next a 18Dim Fname As String 19ActiveWorkbook.SaveAs Filename:=f, FileFormat:=xlCSV 20ActiveWindow.Close SaveChanges:=True, Filename:=file + ".csv" 21MsgBox "保存しました" & vbCrLf & _ 22"ファイル名 : " & "ActiveWorkbook.Path" & "mmm.csv” 23End sub 24 25コード
エラーメッセージ
は、ないがｃｓｖ出力後最終行にカンマが残る
値がない場合は削除したいのですが、ｃｓｖ出力後 ,,,が最後に3列ほど残ります。
画像はCSVの編集でメモの画像です。数字の後のカンマ（,,,,,,,,,)を消したいです。
補足情報（FW/ツールのバージョンなど）
ここにより詳細な情報を記載してください。
>エラーメッセージが発生しました。
>エラーメッセージは、ないが
どちらが正しい情報でしょうか。
エラーメッセージは発生していません。
CSVで出力後カンマ（,,,,,,,,,,,,,,,,,,,,,,,,,,,)
を消したいです。
> 画像はCSVの編集でメモの画像です。数字の後のカンマ（,,,,,,,,,)を消したいです。
画像とは何のことでしょうか？
あなたの回答
tips
プレビュー
