blu3scr33n
Oct 24, 2013, updated at 12:35:11 (UTC)
view7900
view14
0
Goto Top

VBA Code bricht bei Befehl Speichern unter ab

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo liebe Administratoren,

ich habe eine Excel. Diese soll per VBA in eine CSV exportiert werden und an einen bestimmten Ort X abgelegt werden. Für den Export habe ich mir hier CSV-Export Skript ein entsprechendes Makro besorgt.
Das Makro funktioniert, wenn ich nur den Export vornehmen möchte. Füge ich allerdings den "Speichern unter" Befehl hinzu, so bricht er ab in Zeile 32.
Im Code steht "SPEICHERORT" stellvertretend für den Speicherpfad. Diesen habe ich für dieses Forum allerdings anonymisiert face-wink

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
Dim Speicherpfad As String
Dim Speichername As String

 
strMappenpfad = ActiveWorkbook.FullName

Speicherpfad = "SPEICHERORT"  
 
strDateiname = InputBox("Bitte den Namen der CSV-Datei angeben.", "CSV-Export")  
If strDateiname = "" Then Exit Sub  
 
strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ";")  
If strTrennzeichen = "" Then Exit Sub  
 
Set Bereich = ActiveSheet.UsedRange

Speichername = Speicherpfad & strDateiname
 
ActiveWorkbook.SaveAs Filename:=Speichername

ChDrive "T"  
ChDir "SPEICHERORT"  

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

Kann mir jemand mit dem Code helfen? Ich habe keine Ahnung, warum er abbricht.

Beste Grüße

Blu3Scr33n
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 220330

Url: https://administrator.de/contentid/220330

Printed on: April 19, 2024 at 18:04 o'clock

14 Comments
Latest comment
Goto Top
Mitglied: 106543
106543 Oct 24, 2013 at 12:24:28 (UTC)
Goto Top
Hi,

mit welchem Laufzeitfehler bricht der Code denn ab ?

Grüße
Exze
Member: derinderinderin
derinderinderin Oct 24, 2013 at 12:27:44 (UTC)
Goto Top
Zeile 15 sowie Zeile 30 kommen mir seltsam vor.

"SPEICHERORT" ist kein Pfad... bzw. du hinterlegst im Quellcode keinen.
Der Variable Speicherpfad weist du den Wert "SPEICHERORT" zu.

Meines erachtens musst du in Zeile 15:

Speicherpfad = "SPEICHERORT" einen gültigen Pfad eintragen z.B.
Speicherpfad = "C:\Temp"

und dann in Zeile 30

statt
ChDir "SPEICHERORT"
dann
ChDir Speicherpfad

Frag mich nur warum er dann bei 32 stehenbleibt, nicht schon bei 30.

einfügen.
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 12:32:18 (UTC)
Goto Top
Hallo Exze

Laufzeit '70':
Zugriff verweigert

Gruß Blu3Scr33n
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 12:33:48 (UTC)
Goto Top
Hallo derInderInderin,

das hätte ich vielleicht erwähnen sollen. Wo in meinem Code "SPEICHERORT" steht, steht auch ein tatsächlicher Speicherpfad. Den habe ich jetzt nur auf Grund der Anonymisierung "SPEICHERORT" genannt.

Gruß

Blu3Scr33n
Mitglied: 106543
106543 Oct 24, 2013 at 12:40:21 (UTC)
Goto Top
Hi,

"Zugriff verweigert" ...
da gibt´s 2 plausible Erklärungen.
1. die Datei ist bereits geöffnet und kann nicht nochmal geöffnet werden, wegen Schreibschutz
2. der User, der das Tool ausführt hat keine Berechtigung, die Datei zu öffnen (unwahrscheinlich, ich weiß ...)

Grüße
Exze
Member: derinderinderin
derinderinderin Oct 24, 2013 at 12:41:15 (UTC)
Goto Top
Aah ich verstehe face-wink

Ich hab das Ding mal mal mir laufen lassen. Mit Lokalem Laufwerk klappt es.
Hast du dir nochmal die Berechtigungen auf dem Ziellaufwerk angeguckt?
Klappts bei dir auch mit C:\Temp oder ählnlichen?
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 12:43:53 (UTC)
Goto Top
Ich laufe hier auf nem Thin Client. In diesem Zusammenhang gibt es für mich kein Laufwerk C: face-wink
Das Laufwerk, wo die CSV gespeichert werden soll ist ein Netzlaufwerk. Für die entsprechenden Pfade habe ich allerdings Zugriffsrechte.
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 12:45:47 (UTC)
Goto Top
Hallo Exze,

1. Die Datei kann noch garnicht geöffnet sein, da er ja aus der XLSM (Excel mit Makro) eine CSV exportieren soll. Diese wird somit erst erstellt.
2. Wie du schon selber sagst, eher unwahrscheinlich. Ich bin Ersteller der Datei und habe auch auf den Dateipfad, wo die Excel liegt Zugriffsrechte.

Gruß

Blu3Scr33n
Mitglied: 106543
106543 Oct 24, 2013 at 12:48:55 (UTC)
Goto Top
Hi,

du schreibst ja
ActiveWorkbook.SaveAs Filename:=Speichername
das speichert zwar die Excel-Session, beendet diese aber nicht.
Ich denke laut deinem Code du willst dann glaube ich ín die selbe Excel-Datei schreiben, was natürlich so nicht möglich ist, da sie noch geöffnet ist.
Falls ich falsch liege sag Bescheid, ich blick bei deinem Code noch nicht ganz durch.

Grüße
Exze
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 12:56:21 (UTC)
Goto Top
Hallo Exze,

die Excel kann danach gerne geschlossen werden. Hauptsache, die CSV wird korrekt und an den korrekten Ort exportiert.
Welchen Befehl müsste ich denn dafür noch einfügen müssen?

Ich entschuldige mich für das eventuelle Code-Wirrwarr. Meine VBA-Kenntnisse sind eher rudimentär.

Grüße

Blu3Scr33n
Mitglied: 106543
106543 Oct 24, 2013 at 13:00:01 (UTC)
Goto Top
Hi,

um komplett Excel zu schließen, bräuchtest du
Application.Quit
ACHTUNG! Das schließt _sämtliche_ Excel-Dateien, die grade offen sind.
Wenn nur das aktuelle Excel-File geschlossen werden soll, solltest du
thisworkbook.Close True
einfügen.
Das "True" am Ende bedeutet, dass die Mappe automatisch beim Beenden gespeichert wird und nicht erst nachgefragt wird.

Grüße
Exze
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 13:12:38 (UTC)
Goto Top
Hy Exze,

Wenn ich 
 thisworkbook.close True
in Zeile 31. setze, dann schließt er die Excel und generiert auch ordnungsgemäß die CSV.
Schaue ich dann allerdings in die CSV rein, stehen dort nur Hyroglyphen.

Das muss an dem Codeteil danach liegen, der erst für die Ordnungsgemäße Zuordnung der CSV Einträge zuständig ist.
Hast du diesbezüglich eine Hilfestellung?

Grüße

Blu3Scr33n
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 13:21:45 (UTC)
Goto Top
So...Ich habs gelöst. Auf die nicht schöne aber funktionierende Tour.
Ich habe jetzt einfach ein Makro in Excel aufgezeichnet, dass das Speichern der Datei übernimmt und in den Code mit eingebaut.
Er sieht jetzt folgendermaßen aus:
 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
Dim Speicherpfad As String
Dim Speichername As String

 
strMappenpfad = ActiveWorkbook.FullName

Speicherpfad = "T:\OTC_Derivate\20_Dokumentation\07_Trade_Repository\EMIR\02 Mapping\Meldevarianten\BTG\Testfiles\"  
 
strDateiname = InputBox("Bitte den Namen der CSV-Datei angeben.", "CSV-Export")  
If strDateiname = "" Then Exit Sub  
 
strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ";")  
If strTrennzeichen = "" Then Exit Sub  
 
Set Bereich = ActiveSheet.UsedRange

Speichername = Speicherpfad & strDateiname
 

   With ActiveWorkbook.WebOptions
        .RelyOnCSS = True
        .OrganizeInFolder = True
        .UseLongFileNames = True
        .DownloadComponents = False
        .RelyOnVML = False
        .AllowPNG = True
        .ScreenSize = msoScreenSize1024x768
        .PixelsPerInch = 96
        .Encoding = msoEncodingUTF8
    End With
    With Application.DefaultWebOptions
        .SaveHiddenData = True
        .LoadPictures = True
        .UpdateLinksOnSave = True
        .CheckIfOfficeIsHTMLEditor = True
        .AlwaysSaveInDefaultEncoding = False
        .SaveNewWebPagesAsWebArchives = True
    End With
    ActiveWorkbook.SaveAs Filename:=Speichername _
        , FileFormat:=xlCSV, CreateBackup:=False

  Set Bereich = Nothing
  MsgBox "Export erfolgreich. Datei wurde exportiert nach" & vbCrLf & strDateiname  
 
End Sub
Member: Blu3Scr33n
Blu3Scr33n Oct 24, 2013 at 13:22:38 (UTC)
Goto Top
Falls irgendwem eine schönere Codevariante einfällt, nehme ich auch gerne diese.
Ich bedanke mich für die kompetente Hilfe und setze diesen Thread auf gelöst.

Beste Grüße

Blu3Scr33n
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment