Sub main()
Dim wk As Workbook
Call cleanSheet 'Aufräumen
iRowToWrite = 1 '
DatOP = Application.GetOpenFilename("Excel-Dateien(*.xls, *.xlsx), *.xls, *.xlsx", _
MultiSelect:=True) 'Eine Exel-Datei mit Endung .xls öffnen mit Multi-Auswahl
' ---> Hier stimmt was nicht Öffnet nur xlsx-Dateien davor nur xls
' bevor ich xlsx dazugefügt habe.
If fileToOpen False Then 'Abfrage
MsgBox "Open " & fileToOpen
End If
If IsArray(DatOP) Then
For Each x In DatOP
Set wk = Workbooks.Open(x)
Call readData
Application.ScreenUpdating = False 'Speicher Abfrage nicht Anzeigen
ActiveWorkbook.Saved = True ''Speicher das geöffnet Wk, der _
ausgelesen wird!
Application.ScreenUpdating = True '
wk.Close
Next
End If
End Sub
Ich muss bei DataOp = Application.GetOpenFilename("Excel.......
xls und xlsx Dateien beides Öffnen können, bei mir funktioniert nur, mit diesem Code xlsx könnt ihr mir Bitte helfen.