Datei mit nicht lesbarem Inhalt öffnen
06.06.2019 12:37:24
yummi
ich habe eine ziemlich große Xlsm Datei, aus der ich definierte Sheets exportiere und so eine xls Datei erzeuge. Aufgrund irgendwelcher Kompatiblitätsprobleme, die ich aber nicht beheben kann und darf zeigt die xls Datei beim manuellen öffnen an, dass unlesbarer Inhalt vorhanden ist und ob dieser repariert werden soll.
Ich möchte jetzt ein MAkro schreiben, dass mir Zelle für Zelle auf jedem Sheet das original (xlsm) mit dem xls inhaltlich vergleicht.
Mein Problem ist aber das Öffnen der xls Datei
Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With oFileDialog
.Title = "Import XLS"
.Filters.Add "XLS-Dateien", "*.xls", 1
.ButtonName = "Check"
If .Show = -1 Then
strfilexls = .SelectedItems(1)
End If
End With
Application.DisplayAlerts = False
wkbxls = Workbooks.Open(Filename:=strfilexls) ', UpdateLinks:=False, ReadOnly:=True)
For Each wksxls In wkbxls.Sheets
Debug.Print wksxls.Name
Next
Application.DisplayAlerts = True
End If
Die Methode Workbooks.open schlägt fehl. (Laufzeitfehler 1004)
Weiß jemand wie ich es schaffe, die Datei per vba doch zu öffnen?
Vielen Dank
yummi
Anzeige