Entfernen von leeren Zellen beim Erstellen einer CSV-Datei von Excel

Question

Ich versuche, mehrere CSV-Dateien von Excel zu erstellen. Ich habe eine vba, die eine CSV-Datei pro Registerkarte erstellt, aber es gibt Leerzeichen in der Ausgabe.

Ich habe 6 Spalten, die die CSV-Datei kehrt gibt es eine Möglichkeit für mich, leere Zellen zu ignorieren, damit ich nicht blank Komma haben zB „“

Hier ist der Code ich verwende:

Sub SaveWorksheetsAsCsv() 
Dim WS As Excel.Worksheet 
Dim SaveToDirectory As String 
Dim CurrentWorkbook As String 
Dim CurrentFormat As Long 
CurrentWorkbook = ThisWorkbook.FullName 
CurrentFormat = ThisWorkbook.FileFormat 
' Store current details for the workbook 
SaveToDirectory = "H:\test\" 
For Each WS In ThisWorkbook.Worksheet 
Sheets(WS.Name).Copy 
ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV 
ActiveWorkbook.Close savechanges:=False 
ThisWorkbook.Activate 
Next 
Application.DisplayAlerts = False 
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat 
Application.DisplayAlerts = True 
' Temporarily turn alerts off to prevent the user being prompted 
' about overwriting the original file. 
End Sub 

Dank Joe

Answer 1

Leere Zellen können mit Selection.SpecialCells(xlCellTypeBlanks).Select gefunden werden, aber ich sehe nicht, dass Sie alle Daten auswählen.

Wenn Sie nur bestimmte Spalten benötigen, würde ich vorschlagen, dass Sie nach dem Kopieren auf Ihr neues Blatt andere Spalten entfernen. Fügen Sie diese Zeile nach dem Copy:

ActiveSheet.Columns(X).Delete 

Tun Sie dies für jede Spalte, die Sie löschen möchten, ersetzt X mit dem Namen der Spalte, dh. "C".