Workbook openen ongeacht de extentie

[Rattewrat]

Hallo allemaal,

Ik werk aan een macro die gebruik maakt van andere excel files die periodiek worden geupdate. Nu worden onze systemen langzaam aan geupgrade naar Office 2007 en vermoed ik dat de bestanden die nu .xls zijn binnenkort .xlsx of .xlsm zullen worden.

Is het mogelijk om excel bestanden via vba te openen, ongeacht of het .xls, .xlsx of .xlsm zijn?

Dit is de code die ik normaal gesproken zou gebruiken:

Dim Wbk as workbook
Dim File as string

File = "C:\Documents and Settings\nlv14608\Desktop\Test\Test.xls"
Set Wbk = Workbooks.Open(File1, UpdateLinks = False)

Ik hoop dat iemand mij kan helpen!

Mvg,

Willem

 

[snb]

    c0 = "E:\OF\"
    c1 = "adressen.xls"
    with workbooks.open(c0 & Dir(c0 & c1 & "*"))

 

[Rattewrat]

Een wildcard, wat slim. Werkt perfect, mijn dank is groot!