Programación General > VBA

 Exportar Desde Acces A Un Excel Con Plantilla

(1/1)

Gallagher:
Hola tengo qeu exportar desde Acces con VBA a n archivo excel

si existe el archivo lo abro (no imporeta para qeu)
sino existe lo creoo con el numero de pedido como nombre

el problema es que tenogque abrilo con un aplantilla especifica y que me lo habra con el nombre qeu yo quiero
pero cuadnolo hago.... me abre dos libros libros diferents uno de la plantilla y el otro con el numero de pedido como titulo
y  yoquiero que esten juntos
Mi codigo es este


--- Código: Text ---     Dim oApp As Excel.Application    Dim xlBook As Excel.Workbook    Dim xlSheet As Excel.Worksheet    Dim xlWorkbooks As Excel.Workbooks    Dim F As FileSystemObject        Set oApp = New Excel.Application    Set xlBook = oApp.Workbooks.Add    Set xlSheet = xlBook.ActiveSheet    Set xlWorkbooks = oApp.Workbooks    Set F = New FileSystemObject    xlWorkbooks.Add(Template:= _    "C:\Archivos de programa\Microsoft Office\Templates\3082\Pedido.xlt"). _    RunAutoMacros Which:=xlAutoOpen        ruta = PRESUPUESTO & ".xls"    If F.FileExists(ruta) Then           xlWorkbooks.Open ruta    Else        xlBook.SaveAs ruta    End If    oApp.Visible = True      

Navegación

[0] Índice de Mensajes