Ne znam na cega mislis, ali probaj sa:
Code:
Private Sub OtvoriExcel(ByVal strFilename As String)
Dim ExcelAPP As Excel.Application
Set ExcelAPP = CreateObject("Excel.Application")
ExcelAPP.Workbooks.Open strFilename
ExcelAPP.Visible = True
End Sub
Metoda "Open" od kolekcije Workbooks ima jos dodatne parametre koji su opcioni. Nadam se da si na to mislio.