VBA Excel GetOpenFilename

[Gert Bouwmeeste]

Ik gebruik in Excel 97y02003 een macro om een bestand te kiezen en te openen:

Workbooks.Open Application.GetOpenFilename("Excel files (*.xls),*.xls", , "Selecteer het bestand wat geopend moet worden", , False)

Ik wil in Excel 2013 alle types Excel-bestanden kunnen openen, dus behalve 97-2003 ook 2007, 2010 en 2013. Ik probeer dat met de volgende regel:

Workbooks.Open Application.GetOpenFilename("Excel files (*.xls; *.xlsx; *.xlsb; *.xlsm),*.xls; *.xlsx; *.xlsb;*.xlsm", , "Selecteer het bestand wat geopend moet worden", , False)

Ik zie dan inderdaad alle Excel-bestandstypen staan, maar als ik een.xlsx bestand wil openen komt de foutmelding:

"Fout 13 tijdens uitvoering. Typen komen niet overeen"


Wat doe ik fout?

 

[pasan]

zo?

Workbooks.Open Application.GetOpenFilename("Excel files (*.xls*),*.xls*", , "Selecteer het bestand wat geopend moet worden", , False)

 

[Gert Bouwmeeste]

Euhhhhh, soms zoekt een mens het ook weer veel te ver ...



Bedankt, dat was 'm!