Visual Basic - Copiar formato de un archivo de excel existente

Life is soft - evento anual de software empresarial
 
Vista:

Copiar formato de un archivo de excel existente

Publicado por LG (2 intervenciones) el 22/10/2004 16:21:03
Quisiera saber como puedo tomar el formato y contenido que tiene un archivo de excel y copiarlo a otro que he creado en visual basic, es decir, tener un formato como base para aplicarselo a todos los nuevos archivos a la hora de exportar datos a excel.

Gracias!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Copiar formato de un archivo de excel existente

Publicado por juan carlos zuñiga r,. (94 intervenciones) el 22/10/2004 19:53:35
Hola, sabes? no se si exista otra manera de hacer so (supongo que si), pero a mi se me ocurre que puedes (desde VB) copiar el archivo con el formato establecido a otro nombre archivo, despues exportar todos los datos al nuevo archivo...suena demasiado simple, pero creo que funcionaria bien..

salu2...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar formato de un archivo de excel existente

Publicado por miguel (1042 intervenciones) el 22/10/2004 21:20:40
Prueba con esto:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Private Sub cmdExportar_Click()
Dim NombreLic As String
Dim vlRuta As String
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\Plantilla.xls" 'Ruta de tu Archivo de Plantilla
xlApp.Workbooks.Open vlRuta 'Lo Abrimos
Set mySheet = xlApp.Worksheets(1)
With mySheet
.Range("B11:G500").Clear 'Limpiar Celdas..pones el rango
.Cells(5, 3) = "Hola" 'Asignas datos
'''''''asignacion de datos
End With
xlApp.DisplayAlerts = False 'permite sobreescribir sin preguntar
NombreLic = "\Prueba.xls" 'Nombre del Nuevo Archivo
xlApp.ActiveWorkbook.SaveAs App.Path & NombreLic 'Grabas el Nuevo Archivo
Set mySheet = Nothing
xlApp.Quit
Set xlApp = Nothing
Dim MyValue
'Ejecutar el Archivo Excel
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & App.Path & NombreLic, vbMaximizedFocus)
End Sub
Espero y te Sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar