Åbn eksterne programmer med VBA i Excel

I denne artikel vil jeg vise hvordan du med VBA i Excel kan åbne eksterne programmer.

Åbn mappe i Windows Explorer

Det kan være anvendeligt at kunne åbne noget i et eksternt program i Excel. F.eks. kan det være du har stien til en mappe stående i en celle i Excel og ved tryk på en knap vil du åbne mappen i Windows Explorer. Dette gør du på følgende måde:

Dim strChosenFolder As String
strChosenFolder =  Range("A1").Value & "\"
Shell "C:\WINDOWS\explorer.exe """ & strChosenFolder & "", vbNormalFocus

Dette åbner altså en mappe i Windows Explorer. Stien til mappen står i feltet A1.

Åbn filer i standardprogram

Med denne kode åbner du den fil, hvor filnavnet er valgt på ListBox1 og hvor mappen som filen ligger i, fremgår af en sti på A1 i Excelarket. Det kan f.eks. være et PDF-dokument der så åbnes i Adobe Acrobat Reader eller et billede der åbnes i Windows billedviser.

Dim folder As String
folder = Range("A1").Value & "\"
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Shex.Open (folder & ListBox1.Value)