ich möchte gerne
- einzelne Zelleninhalte einer Tabelle (z. B.: A2, C2 und E2) - durch Tabulator getrennt - in eine CSV-Datei exportieren.
- Das Verzeichnis und den Dateinamen durch den Save as-Dialog auswählen
Vielen Dank!
Wolfgang
Public Sub CSV_Export()
Dim objFileDialog As FileDialog
Dim intFreeFilenumber As Integer
Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)
With objFileDialog
.FilterIndex = 15
.InitialFileName = "D:\Test\" 'Anpassen !!!
.Title = "CSV Export"
If .Show Then
intFreeFilenumber = FreeFile
Open .SelectedItems(1) For Output As #intFreeFilenumber
Print #intFreeFilenumber, Cells(2, 1).Text & _
vbTab & Cells(2, 3).Text & vbTab & Cells(2, 5).Text
Close #intFreeFilenumber
End If
End With
Set objFileDialog = Nothing
End Sub