Hilfe ! Bug in VBA - "File not found" nach SP3 !?
01.06.2005 10:15:45
wagner@surdata.de
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 PCS 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 !