Datei mit ungültigem Blattnamen per Makro öffnen
sile1234
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen kann. Als ich noch mit Excel 2000 gearbeitet habe, war das kein Problem. Es ist leider nicht möglich den Export aus dem Program so anzupassen das der Blattname geändert wird, da es die Firma nicht mehr gibt die das mal programmiert hat.
Da es auf Dauer auch sehr nervig ist die Datei jedes Mal vorher per Hand zu öffnen, den Fehler korrigieren zu lassen und dann wieder zu speichern, bin ich auf der Suche nach einer anderen Lösung.
Wenn ich mit Workbooks.Open arbeite, dann bricht das Makro mit Laufzeitfehler 1004 ab, da die Methode 'Open' Fehlgeschlagen ist. als Alternative habe ich dann versucht die Datei mit GetObjects zu öffnen
Private Sub CommandButton1_Click()
Dim Datei
Set Datei = GetObject("C:\Test.xls")
MsgBox Datei.Name
End Sub
Laufzeitfehler '-2147467259 (80004005)
Automatisierungsfehler
Unbekannter Fehler
Hat jemand eine Idee wie ich die Datei öffnen kann und entweder den Fehler ignoriere das der Blattname falsch ist oder den Blattnamen per Makro korrigieren und korrigiert sauber abspeichern?
Gruß und Dank
Sile1234
Anzeige