Set objShell = CreateObject("WScript.Shell")

' Percorso completo del file Excel
excelPath = "C:\WDISPLAY_ECOWITT_WS69\webfiles\meteo excel\dati meteo con AI 6.0.xlsm"

' Comando per aprire Excel con il file
command = "excel.exe """ & excelPath & """"

' Esegui il comando
objShell.Run command, 1, False

Set objShell = Nothing