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