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
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
1 Respuesta
Respuesta de ifrancoz
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 !
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 !
