Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Excel Datei .xls und .xlsx VBA Makro Öffnen

Betrifft: Excel Datei .xls und .xlsx VBA Makro Öffnen von: ismet
Geschrieben am: 27.10.2014 15:00:08

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.

  

Betrifft: AW: Excel Datei .xls und .xlsx VBA Makro Öffnen von: yummi
Geschrieben am: 27.10.2014 15:06:06

Hallo ismet

DatOP = Application.GetOpenFilename("Excel-Dateien(*.xls; *.xlsx), *.xls; *.xlsx", _
MultiSelect:=True)

Gruß
yummi


  

Betrifft: AW: Excel Datei .xls und .xlsx VBA Makro Öffnen von: ismet
Geschrieben am: 27.10.2014 15:45:11

Danke Yummi für die antwort,
hab es so gemacht und funktioniert super.

DatOP = Application.GetOpenFilename("Excel-Dateien(*.xls*), *.xls*", MultiSelect:=True)


 

Beiträge aus den Excel-Beispielen zum Thema "Excel Datei .xls und .xlsx VBA Makro Öffnen"