Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hilfe ! Bug in VBA - "File not found" nach SP3 !?

Forumthread: Hilfe ! Bug in VBA - "File not found" nach SP3 !?

Hilfe ! Bug in VBA - "File not found" nach SP3 !?
01.06.2005 10:15:45
wagner@surdata.de
Hallo folgendes Problem…
Ich habe eine Anwendung für eine Kunden unter EXCEL-VBA programmiert wobei unter anderem Text-Dateien ausgegeben werden.
Quellcode:
Public Sub StartSeiteErstellen()
Dim fileNr
mDateiName = Pfad_AktKatalog & "Katalog.htm"
mstrHTML_Kopf1 = Range("HTML_StartSeite_Kopf").Value
mstrHTML_Kopf1 = mstrHTML_Kopf1 & Range("HTML_StartSeite_Body").Value
mstrHTML_Kopf1 = mstrHTML_Kopf1 & Range("HTML_StartSeite_Fuß").Value
mstrHTML_Kopf1 = fVariablenErsetzen(mstrHTML_Kopf1)
' Datei-Ausgeben:
fileNr = FreeFile
Open mDateiName For Output As fileNr
Print #fileNr, mstrHTML_Kopf1
Close #fileNr
Exit Sub
Die Variable „Pfad_AktKatalog“ wird dabei aus einem Zelleninhalt eines Worksheets gefüllt.
Entwickelt wurde unter Excel 2000 (ohne SP), der Kunde setzt ebenso Excel 2000 ein.
Bisher lief die Anwendung einwandfrei, nachdem der Kunde allerdings SP3 installiert hat kommt es bei dem OPEN-Befehl zu einem „Error 53 - File not found“.
Jetzt kommt das merkwürdigste:
Wenn der Kunde mir seine Excel-Datei zukommen lässt (er hat lediglich die Ausgabepfade innerhalb des Worksheets geändert) tritt der Fehler bei mir auch auf. Die Anwendung läuft auf 90 % aller Rechner einwandfrei, nur auf bestimmten PC’S mit dem SP3 tritt der Fehler auf.
Wer kennt dieses Problem bzw. wer kann helfen ?
Bitte keinen Tip in Richtung Umstellung auf „Filesystem Object“… ;)
Danke im voraus !
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe ! Bug in VBA - "File not found" nach SP3 !?
05.06.2005 10:38:13
Micha
Hallo,
kann das Verhalten Deines Codes nicht nachvollziehen.
Getestet auf Win2000 mit Excel2000 (SP-3)
CODE:
Public

Sub StartSeiteErstellen()
Dim fileNr, Pfad_AktKatalog
Pfad_AktKatalog = Range("A1").Value  'hier steht "C:\"
mDateiName = Pfad_AktKatalog & "Katalog.htm"
mstrHTML_Kopf1 = Range("HTML_StartSeite_Kopf").Value 'hier steht "Hallo"
'mstrHTML_Kopf1 = mstrHTML_Kopf1 & Range("HTML_StartSeite_Body").Value
'mstrHTML_Kopf1 = mstrHTML_Kopf1 & Range("HTML_StartSeite_Fuß").Value
'mstrHTML_Kopf1 = fVariablenErsetzen(mstrHTML_Kopf1)
' Datei-Ausgeben:
fileNr = FreeFile
Open mDateiName For Output As fileNr
Print #fileNr, mstrHTML_Kopf1
Close #fileNr
End Sub

Die Datei wird einwandfrei angelegt......
Micha
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige