Ausgewählte Arbeitsmappe als CSV-Datei speichern

Anka · 2018-02-07T13:00:55+00:00

Hallo Ihr lieben Helfer, ich brauche unbedingt Eure Hilfe für mein Tool meiner Masterarbeit: Ich habe ein kleines Makro geschrieben, das nur eine Arbeitsmappe ("Zieltabelle") aus einer Exceldatei als CSV-Datei speichern soll. Das Problem ist, dass die Textboxen auf einer anderen Arbeitsmappe ("Auswahlmaske") erscheinen sollen. Gespeichert werden soll im Anschluss die Arbeitsmappe ("Zieltabelle")- Dabei gibt es folgende Textboxen: 1. "Soll die Datei als CSV-Datei gespeichert werden?" --> bei "Ja" soll die Datei an einem festen Speicherort gespeichert werden, allerdings soll der Nutzer den Dateinamen selber eingeben können, sodass der Speicherort fix bleibt und nur der Dateiname veränderbar ist --> bei "Nein": kommt die 2. Textbox: 2. "Zur weiteren Verarbeitung in QGIS muss das Ergebnis im CSV-Format gespeichert _ werden. Wollen Sie das Ergebnis als CSV-Datei speichern?"?" --> bei "Ja" soll das Fenster "Speichern unter" aufgehen, wo der Nutzer die Datei beliebig abspeichern kann --> bei "Nein" soll das gar nichts passieren. Folgende Probleme treten bei meinem Code auf: 1)Bei mir funktioniert nicht, dass ich mehrere Workbooks in einem Code verwenden kann 2)Nicht die Mappe "Zieltabelle" wird als CSV-Datei abgespeichert, sondern die ganze Excel-Datei wird an den angegbenen Ort als CSV-Datei gespeichert. 3) Die Textboxen öffnen sich nicht auf dem richtigen Arbeitsblatt Hier ist mein Code dazu: Sub Datei_speichern() ' Dim wsAuswahlmaske As Worksheet ' Dim wsZiel As Worksheet 'Variable: Zieldatei anlegen ' Set wsZiel = Worksheets("Zieltabelle") 'Variable: Zieldatei "Zieltabelle" _ festlegen ' Set wsAuswahlmaske = Worksheets("Auswahlmaske") Dim wbZieltabelle As Workbook Dim wbAuswahlmaske As Variant Dim dateiname As String '* CSV-Datei If MsgBox("Zur weiteren Verarbeitung in QGIS muss das Ergebnis im CSV-Format gespeichert _ werden. Wollen Sie das Ergebnis als CSV-Datei speichern?", vbYesNo) = vbYes Then dateiname = InputBox("Dateiname:") If dateiname = "" Then MsgBox "Datei

Hallo Anka,
zu 1.
Es scheint mir, dass du stellenweise "Workbook" und "Worksheet" verwechselst. "Book" ist die Excelmappe, vereinfacht gesagt die Datei welche du speicherst. "Sheet" ist das Excelblatt, also die verschiedenen Seiten innerhalb deiner Mappe. Öffnest du verschiedene Exceldateien für dein Makro oder läuft alles innerhalb einer Datei ab? Im ersten fall ist dein "ActiveWorkbook" fast schon kriminell. Außderdem musst du dann bei solchen Zuweisungen auch die Mappe ("Datei") angeben:

Set wsZiel = Worksheets("Zieltabelle")

muss so aussehen

Set wsZiel = Workbook("MeineDatei.xlsx").Worksheets("Zieltabelle")

zu 2.
meine ganz private Erfahrung mit Excel ist die, dass Excel und CSV nicht unbedingt gute Freunde sind. Ich erstelle meine CSV so:


Dim Export 'As Worksheet
Dim ExportString, TimeStamp
Dim i, ExportRow as Integer
Dim LC, LR As Long
Set Export = ThisWorkbook.Sheets("EXPORT")
'Make Exportfile
ExportFile = ThisWorkbook.Path & "\Excel_Export_" & TimeStamp & ".csv"
LR = Export.Cells(Export.Rows.Count, "A").End(xlUp).Row
'Write the first headerline
LC = Export.Cells(1, Export.Columns.Count).End(xlToLeft).Column
For i = 1 To LC
If ExportString  "" Then
ExportString = ExportString & "," & Export.Cells(1, i)
Else
ExportString = Export.Cells(1, i)
End If
Next i
Open ExportFile For Output As #1        'The first use of the file must use "OUTPUT"
Print #1, ExportString
Close #1
ExportString = ""
'Write the data
For ExportRow = 2 To LR
For i = 1 To LC
If ExportString  "" Then
ExportString = ExportString & "," & Export.Cells(ExportRow, i)
Else
ExportString = Export.Cells(ExportRow, i)
End If
Next i
Open ExportFile For Append As #1        'The second (and further) use of the file must use " _
APPEND"
Print #1, ExportString
Close #1
Next ExportRow

3. Weder "wbZieltabelle" noch "wbAuswahlmaske" werden definiert. Außerdem (siehe 1.) benutzt du verschiedenste Varianten zum Aufruf:


MsgBox "Dateiname ist ungültig!"
ActiveWorkbook.MsgBox("Datei wurde als CSV-Datei gespeichert!", vbOK) = vbOK
wbAuswahlmaske.MsgBox("Datei wurde als CSV-Datei gespeichert!", vbOK)

wobei die erste und zweite Variante eigentlich das gleiche tun. Ohne Angabe einer Mappe benutzt Excel standardmäßig das "ActiveWorkbook". Hier musst du aufpassen, denn es gibt zusätzlich noch "ThisWorkbook". Dies bezeichnet immer die Mappe, aus welcher dein VBA-Code gestartet wurde.
Ich empfehle deinen Code aufzuräumen und entweder "ActiveWorkbook / ThisWorkbook" zu benutzen oder alle Mappen (Dateien) entsprechend du definieren:


Dim wbZieltabelle As Workbook
Set wbZieltabelle = ActiveWorkbook
'oder alternativ
'Set wbZieltabelle = Workbook("MeineZielDatei.xlsx")

Wenn du weitere Hilfe brauchst, dann wäre auch eine Beispielmappe ganz hilfreich.
Gruß,
Rainer

Hallo Rainer,
du bist echt spitze! Vielen Dank für Deine Hilfe, du hast mich gerettet! Dein erster Vorschlag funktioniert bei irgendwie nicht, da kommt bei "SaveCopyAs" immer ein Kompilierungsfehler mit "Die Methode oder das Datenelement wurde nicht gefunden". Hier der Code dazu:

Sub Datei_speichern()
'* Definition meiner Variablen
Dim wsAuswahl As Worksheet
Dim wsZiel As Worksheet
Dim rng_Zieltabelle As Range
'Dim str_alterName As String
'Dim neuerName As String
Dim Workbook As Workbook                        'Braucht es das? Du benutzt es nie in dieser  _
Sub
Dim strDateiname As String
Dim strDateiort As String
Set Workbook = ThisWorkbook                       'Braucht es das?
'Set wsAuswahl = Worksheets("Auswahlmaske")                                     'temporär
Set wsZiel = Worksheets("Zieltabelle")
'Set rng_Zieltabelle = wsZiel.Range("$A$1:$Z$500000")                           'Das brauchen  _
wir nicht, wir zählen später die Zeilen und Spalten (LR und LC)
strDateiname = InputBox("Bitte den Namen der CSV-Datei angeben.", "CSV-Export") 'Der Name der  _
Datei soll vom Nutzer immer vorgegeben werden können
strDateiort = ThisWorkbook.Path & "\"                                           'temporär
'strDateiort = "C:\Users\GIS\Desktop\Exceltool_Ergebnis\CSV-Dateien\"           'Der  _
Speicherort der Datei soll nicht veränderbar sein
'* Vorgehensweise von Rainer (Forum)
Dim Export As Worksheet
Dim ExportString, Trennzeichen
Dim i As Integer, ExportRow As Integer
Dim LC As Long, LR As Long
Set Export = ThisWorkbook.Sheets("Zieltabelle")
'Trennzeichen für csv Spaltentrennung auswählen
Trennzeichen = ","
'Make the Exportfile
ExportFile = strDateiort & strDateiname & ".csv"    'Die Datei soll an den vordefinierten  _
Ort mit dem zuvor eingegebenen Namen gespeichert werden
LR = Export.Cells(Export.Rows.Count, "A").End(xlUp).Row
'Ermittle Letzte Zeile in EXPORT, Spalte A
'Erste Zeile exportieren
LC = Export.Cells(1, Export.Columns.Count).End(xlToLeft).Column
'Ermittle Letzte Spalte in EXPORT, Zeile 1
For i = 1 To LC
'Schleife über alle Spalten
If ExportString  "" Then
'Der ExportString wird Zellenweise befüllt. Die erste Spalte soll kein Trennzeichen  _
haben.
ExportString = ExportString & Trennzeichen & Export.Cells(1, i)
Else
'Das ist die erste Spalte
ExportString = Export.Cells(1, i)
End If
Next i
Open ExportFile For Output As #1
'Beim ersten Schreiben in die Exportdatei muss die Option "OUTPUT" benutzt werden.
Print #1, ExportString
Close #1
'Schließe Exportdatei wieder
ExportString = ""
'Leere den Exportstring, damit eine neue Zeile beginnen kann ohne Trennzeichen
'Weitere Zeilen exportieren
For ExportRow = 2 To LR
'Schleife für Zeile 2 bis Letzte Zeile
For i = 1 To LC
'Schleife über alle Spalten, wie beim erstem Mal
If ExportString  "" Then
ExportString = ExportString & Trennzeichen & Export.Cells(ExportRow, i)
Else
ExportString = Export.Cells(ExportRow, i)
End If
Next i
Open ExportFile For Append As #1
'Ab dem zweiten Schreiben in die Exportdatei muss die Option "OUTPUT" benutzt werden.
Print #1, ExportString
Close #1
'Schließe Exportdatei wieder
ExportString = ""
'Leere den Exportstring, damit eine neue Zeile beginnen kann ohne Trennzeichen
Next ExportRow
End Sub

Modul 1 funktioniert. Ich habe da noch eine Frage: Wie kann ich den Speicherort verändern? Du hast es mit folgendem Code gemacht:

strDateiort = ThisWorkbook.Path & "\"

Ich habe es jetzt so funktioniert:

strDateiort = "C:\Users\GIS\Desktop\Exceltool_Ergebnis\CSV-Dateien\

Aber das hat leider nicht funktioniert. Warum?
Vielen Dank nochmal Rainer!
VG, Anka

Ausgewählte Arbeitsmappe als CSV-Datei speichern

Forumthread: Ausgewählte Arbeitsmappe als CSV-Datei speichern

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial