Programando con excel
Ro:
Antes de todo este código del ejemplo del ComboBox, debemos abrir o activar el libro de Excel. Me puedes pasar el código, por favor.
Saludos.
Antes de todo este código del ejemplo del ComboBox, debemos abrir o activar el libro de Excel. Me puedes pasar el código, por favor.
Saludos.
Respuesta de rogersr
1
No entiendo de qué me hablas ... si me ilustras un poco podré colaborarte ...
Suerte !
Rogers R.
Suerte !
Rogers R.
Tengo un archivo en Excel llamado:
C:\Agenda.xls
Tiene los campos: NOMBRE, COMPAÑÍA, PUESTO, TEL CASA, TEL OFICINA, TEL CELULAR.
Quiero abrirlo desde un formulario de Visual Basic, con un Combo y 5 TextBox, un Botón Registrar y otro Salir.
Quiero abrirlo desde mi formulario, y consultar el primer campo (NOMBRE) en el combo1 y que aparezca lo que haya en este campo ya que se incrementarán los registros. Quiero enlazar los controles y cuando así lo quiera, registrar un nuevo registro. ¿Me puedes pasar el código?
Agradezco tus atenciones.
Saludos.
C:\Agenda.xls
Tiene los campos: NOMBRE, COMPAÑÍA, PUESTO, TEL CASA, TEL OFICINA, TEL CELULAR.
Quiero abrirlo desde un formulario de Visual Basic, con un Combo y 5 TextBox, un Botón Registrar y otro Salir.
Quiero abrirlo desde mi formulario, y consultar el primer campo (NOMBRE) en el combo1 y que aparezca lo que haya en este campo ya que se incrementarán los registros. Quiero enlazar los controles y cuando así lo quiera, registrar un nuevo registro. ¿Me puedes pasar el código?
Agradezco tus atenciones.
Saludos.
Ok cuejorge2003 ...
Para abrir un archivo de Excel desde VB:
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act, cont As Long, arch as String
Dim i as Integer
'Abre el archivo
arch = "C:\Agenda.xls"
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= arch
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
'Para llenar el combo, si los nombres están en la columna A
For i = 0 To 6000
if hoja_act.range("A" & i).Value = "" then Exit For
Combo1.Additem hoja_act.range("A" & i).Value
Next i
'Para cambiar el contenido de una Celda
hoja_act.range("Ref_Celda").Value = ....
'Para guardar los cambios en el archivo
libro_act.Save
libro_act.Saved = True
'Para cerrar el Archivo
ApExcel.quit
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Si quieres agregar nuevos registros te posicionas después de la última fila con datos ...
Suerte !
Rogers R.
Para abrir un archivo de Excel desde VB:
'Variables para accesar archivo xls
Dim ApExcel, hoja_act, libro_act, cont As Long, arch as String
Dim i as Integer
'Abre el archivo
arch = "C:\Agenda.xls"
Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Open FileName:= arch
Set hoja_act = ApExcel.ActiveSheet
Set libro_act = ApExcel.ActiveWorkbook
'Para llenar el combo, si los nombres están en la columna A
For i = 0 To 6000
if hoja_act.range("A" & i).Value = "" then Exit For
Combo1.Additem hoja_act.range("A" & i).Value
Next i
'Para cambiar el contenido de una Celda
hoja_act.range("Ref_Celda").Value = ....
'Para guardar los cambios en el archivo
libro_act.Save
libro_act.Saved = True
'Para cerrar el Archivo
ApExcel.quit
Set hoja_act = Nothing
Set libro_act = Nothing
Set ApExcel = Nothing
Si quieres agregar nuevos registros te posicionas después de la última fila con datos ...
Suerte !
Rogers R.
