Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

XML Datei mittels VBA erstellen

XML Datei mittels VBA erstellen
05.04.2022 13:38:21
Florian
Hi,
ich versuche mittels VBA eine XML-Datei zu schreiben. Allerdings erhalte ich in dieser Zeile einen LZF 52 (Dateiname oder -nummer falsch).

Open strFile For Output As #1
Das ist mein gesamter Code:

Sub XML_Export()
Dim strFile As String, Text As String
Dim lngRow, lngCol As Long
Dim varShow
Dim wksXMLDaten As Worksheet
strFile = ThisWorkbook.Path & "\test.xml"
Open strFile For Output As #1
With wksXMLDaten
'** XML-Header schreiben
Print #1, " "
Print #1, " ""
[...] Hier steh noch mehr Code [...]
End With
End Sub
Kann jemand helfen?

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: XML Datei mittels VBA erstellen
05.04.2022 13:48:42
Rudi
Hallo,
du solltest die Datei auch wieder schließen!!!
Close #1
Gruß
Rudi
AW: XML Datei mittels VBA erstellen
05.04.2022 14:09:30
Florian
Hab es vor dem End Sub eingefügt. Leider ohne Auswirkung auf den Fehler.
AW: XML Datei mittels VBA erstellen
05.04.2022 14:14:48
Hardy
Hallo Florian,
hast du schreibrechte auf dem Laufwerk?
Gruß
Hardy R
AW: XML Datei mittels VBA erstellen
05.04.2022 14:16:49
Florian
Ja, ich bin Admin. Ich will ja auch in dem Verzeichnis speichern, in dem die Excel selbst liegt, also ich auch diese speichern kann.
AW: XML Datei mittels VBA erstellen
05.04.2022 14:15:32
Rudi
weil die Datei wahrscheinlich noch offen ist.
gib mal im Direktfenster Close #1 ein.
AW: XML Datei mittels VBA erstellen
05.04.2022 14:18:26
Florian
Das wars. Danke! :)
AW: XML Datei mittels VBA erstellen
05.04.2022 14:23:58
Florian
Ah ne, geht doch nicht. Es lief zwar kurz, dann habe ich im folgenden Code paar Anpassungen gemacht, da es auf ein Fehler lief und nun kommt wieder der Dateiname/-nummer Fehler.
Habe Close #1 über das Direktfenster und mit der Sub extra nochmal ausgeführt.
Ohne Erfolg.

Sub XML_schliessen()
Close #1
End Sub

Anzeige
AW: XML Datei mittels VBA erstellen
05.04.2022 14:38:59
Rudi
Hallo,

Sub XML_Export()
Dim strFile As String, Text As String
Dim lngRow, lngCol As Long
Dim varShow
Dim wksXMLDaten As Worksheet
Dim intFile As Integer
strFile = ThisWorkbook.Path & "\test.xml"
intFile = FreeFile
Open strFile For Output As #intFile
With wksXMLDaten
'** XML-Header schreiben
Print #intFile, " "
Print #intFile, " """
' [...] Hier steh noch mehr Code [...]
End With
Close intFile
End Sub

AW: XML Datei mittels VBA erstellen
05.04.2022 16:33:35
Florian
Hab Deinen Code eingefügt und schon beim ersten Test den gleichen Fehler erhalten.
AW: XML Datei mittels VBA erstellen
05.04.2022 17:59:34
Rudi
funktioniert bei mir einwandfrei.
AW: XML Datei mittels VBA erstellen
05.04.2022 18:16:58
Florian
Hab herausgefunden woran es liegt.
Meine Excel liegt in einem Synchronisierten SharePoint Verzeichnis. Daran stört sich Excel wohl, obwohl ich vollen Zugriff darauf habe.
Hab es einfach mal in den lokalen Ordner Downloads gespeichert und schwups, es läuft.

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige