|
Hallo zusammen,
ich habe folgendes Problem:
Ich möchte mit einem Makro aus einer Excel Liste Daten exportieren, allerdings nur aus den Spalten A-G.
Zur Zeit habe ich ein Makro geschrieben, wo ich die komplette Excel Datei als .txt Datei exportiere, komme aber nicht weiter bei der Spaltenauswahl.
Vielleicht könnt ihr mir helfen? :)
Viele Grüße
Malte
Sub ExportCSV()
Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String
Dim blnAnfuehrungszeichen As Boolean
Datum = Format(Now, "yymmdd")
strMappenpfad = "C:Malte\Desktop\" & Datum & ".txt"
strDateiname = InputBox("Bitte den Namen der CSV-Datei angeben.", "CSV-Export", strMappenpfad)
If strDateiname = "" Then Exit Sub
strTrennzeichen = ";"
If strTrennzeichen = "" Then Exit Sub
blnAnfuehrungszeichen = False
Set Bereich = ActiveSheet.UsedRange
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If blnAnfuehrungszeichen = True Then
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
MsgBox "Export erfolgreich. Datei wurde exportiert nach" & vbCrLf & strDateiname
End Sub
|