Dim ExcelExp As Excel.Application
Path = App.Path & "\Informes\"
Archivo = "Plantilla01.xlt"
Existe = Dir(Path & Archivo)
If Trim(Existe) <> "" Then
Set ExcelExp = CreateObject("EXCEL.APPLICATION")
With ExcelExp
.Workbooks.Add([Nombre_de_la_Plantilla])'En este caso Plantilla01.xlt
.Sheets(1).Select
.Sheets(1).Range(posx, posy).Value = [Pones lo que quieras]
End With
End If