Devi usare la formula "App.Path":
codice:
Set cartExcel = Excel.Workbooks.Open(App.path & "\Tv80.xls")
ciao