openen excell file

[Norbertus]

Beste lezers,

Kan ik ook door middel van een opdrachtknop in Access het programma Excell starten en dat deze dan de dialogbox "file open" laat zien zodat ik een willekeurig *.xls bestand kan openen?

=> ik gebruik Access 2000 <=

norbertus

 

[etri]

Dat kan door onderstaande code te kopieren onder jouw knop:

    Dim oExcelApp As Object
    
    Const xlDialogOpen = 1
    
    Set oExcelApp = CreateObject("Excel.Application")
    
    If Not oExcelApp Is Nothing Then
        oExcelApp.Visible = True
        oExcelApp.Dialogs(xlDialogOpen).Show
    End If

 

[Norbertus]

perfect, het werkt.. bedankt

groeten, norbertus