- 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 
-