Office: (Office 2007) Laufzeitfehler 52: Dateiname oder -nummer falsch

uk2002 · 6. Juni 2005

Hallo,

ich möchte bestimmte Daten aus Excel per Button in einer txt-Datei bereitstellen.

Hierzu habe ich nachstehenden Code gefunden bzw. angepaßt:

Code:

Sub ExportInTxtDatei()

Dim Bereich As Range
Dim DatNr As Integer
Dim Zelle As Range
Dim Zeile As Range
Dim s As String

Reset

Sheets("Buchungsbeleg").Activate

Set Bereich = Range("E2:E4")

DatNr = FreeFile

ChDir "C:\temp\"

Open "Export.txt" For Output As #DatNr

For Each Zelle In Bereich.Cells
s = Zelle.Text
Print #DatNr, s
Next

Set Bereich = Nothing
s = ""

Print #DatNr, Range("D6").Text

Set Bereich = Range(Range("B9"), Range("G9").End(xlDown))

For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & ";"
Next
s = Left(s, Len(s) - 1)
Print #DatNr, s
s = ""
Next

Set Bereich = Nothing

Close #DatNr

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei der ersten Schleife bzw. bei 'Print #DatNr, s' erfolgt regelmäßig die Fehlermeldung: Laufzeitfehler 52: Dateiname oder -nummer falsch.

Seltsamerweise läuft das Makro auf anderen Rechnern einwandfrei, einmal lief es auch an meiner 'Kiste', aber seitdem nicht mehr!

Nachstehender Code zum Erstellen einer Datei läuft anstandslos, aber obiges Makro nicht.

Code:

Sub Reset_Beispiel()

Dim iDateiNr As Integer

ChDir "C:\temp\"

For iDateiNr = 1 To 3
Open "Datei" & iDateiNr & ".txt" For Output As #iDateiNr
Write #iDateiNr, Now
Next iDateiNr
Reset

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe auch schon mehrmals meine 'Kiste' neu hochgefahren, sowie die Fehleroptionen geändert, sowie fleissig im Internet etc. recherchiert, aber leider ohne Erfolgt, vielleicht habt ihr noch einen Tip, wär Super !!

Die Datei bzw. das Makro habe ich beigefügt.

Danke im voraus,

Uli

(Windows 2000, Office 2000)

:)

jinx · 8. Juni 2005

Moin, Uli,

kann es sein, dass Du auf ein geschütztes Laufwerk zugreifen möchtest? Befindet sich die Mappe bei Ausführung auf Laufwerk C? Ansonsten solltest Du vielleicht ein ChDrive verwenden - Makro läuft ohne weitere Komplikationen durch.

uk2002 · 8. Juni 2005

hi jinx,

habe beide Varianten ausprobiert, Mappe auf bzw. über c: und Laufwerkswechsel über chdrive "d", leider auch ohne Erfolg.

Die Laufwerke sind frei zugänglich und nicht gesperrt.

Hast Du vielleicht noch einen Tip ?

Danke,

Uli

jinx · 10. Juni 2005

Moin, Ulim

leider nicht - ich kann den Fehler nicht nachvollziehen und somit auch nicht verfolgen/auswerten.

Office: (Office 2007) Laufzeitfehler 52: Dateiname oder -nummer falsch

Laufzeitfehler 52: Dateiname oder -nummer falsch

Laufzeitfehler 52: Dateiname oder -nummer falsch

Laufzeitfehler 52: Dateiname oder -nummer falsch

Laufzeitfehler 52: Dateiname oder -nummer falsch - Similar Threads - Laufzeitfehler Dateiname nummer

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

MS Access Lauftzeitfehler "2501"