Ayuda ... URGENTE modififcar excel ya existente

Hola espero que puedas ayudarme:
Bueno lo que quiero hacer es modificar un archivo excel (ya existente) con datos de un flexgrid de vb6. Ya leí algunas posibles soluciones en esta page y en otras; pero todas hacen referencia a crear un archivo nuevo y como t dije lo que quiero es modificar una ya existente
Por otro lado también necesito cambiar el ancho de las columnas, el color de las letras y fondo de algunas celdas del archivo excel..
Agradecería enormemente tu ayuda... De antemano gracias
Respuesta
1
Para abrir un archivo de Excel ya existente normalmente utilizo los controles DirListbox y FileListbox para ubicar el archivo de manera que lo busco y lo selecciono.(Si está en otro disco entonces necesitará el control DriveList)
Luego lo abro de esta forma:
Dim Libxl As Object
Dim Archw As String
Dim Hojaw As String
Private Sub Dir1_Change()
File1.Path = Dir1.Path ' Cuando cambia el directorio, cambia el Path
File1.FileName = "Reporte*.xls"
End Sub
Private Sub File1_Click()
Archw = File1 ' Toma el nombre del archivo seleccionado
End Sub
Private Sub File1_DblClick()
Archw = File1 ' Toma el nombre del archivo seleccionado
End Sub
' Para abrirlo
Archw = File1
Set Libxl = GetObject(Dir1.Path & "\" & Archw)
'Libxl.Application.Visible = True
Libxl.Application.Windows(Archw).Activate
Libxl.Application.Sheets(Hojaw).Activate
' Aquí ya puedo manipular los datos de las celdas
Fecha = Libxl.Application.Cells(7, 5)
Libxl.Application.Range("A1:B1).ColumnWidth=20
' Para cerrarlo sin salvar
Libxl.Application.Quit
Set Libxl = Nothing
' Para cerrarlo salvando mismo nombre
Libxl.Application.Save
Set Libxl = Nothing
' Para cerrarlo salvando otro nombre
Libxl.Application.SaveAS "Otronombre.Xls"
Set Libxl = Nothing
Suerte !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas