SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: Gallagher en Miércoles 16 de Junio de 2004, 22:01

Título: Exportar Desde Acces A Un Excel Con Plantilla
Publicado por: Gallagher en Miércoles 16 de Junio de 2004, 22:01
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
  1.  
  2.     Dim oApp As Excel.Application
  3.     Dim xlBook As Excel.Workbook
  4.     Dim xlSheet As Excel.Worksheet
  5.     Dim xlWorkbooks As Excel.Workbooks
  6.     Dim F As FileSystemObject
  7.    
  8.     Set oApp = New Excel.Application
  9.     Set xlBook = oApp.Workbooks.Add
  10.     Set xlSheet = xlBook.ActiveSheet
  11.     Set xlWorkbooks = oApp.Workbooks
  12.     Set F = New FileSystemObject
  13.     xlWorkbooks.Add(Template:= _
  14.     "C:\Archivos de programa\Microsoft Office\Templates\3082\Pedido.xlt"). _
  15.     RunAutoMacros Which:=xlAutoOpen
  16.    
  17.     ruta = PRESUPUESTO & ".xls"
  18.     If F.FileExists(ruta) Then
  19.    
  20.         xlWorkbooks.Open ruta
  21.     Else
  22.         xlBook.SaveAs ruta
  23.     End If
  24.     oApp.Visible = True
  25.    
  26.  
  27.