Combo box
Hola, necesito saber como abrir un libro de excel al seleccionar un Item dentro de un combo box.GRACIAS
Respuesta de leosoft
1
Para acceder a archivo de excel y leer o grabar datos desde Visual basic, primero tienes que agregar en "Referencias" que esta en el menu "Proyecto", la referencia a la aplicación "Microsoft Excel x.x Objet Library" donde x.x es la version que vos tengas instalada, luego con este código:
Dim xl As Excel.Application
Dim hoja As Excel.Worksheet
Set xl = New Excel.Application
xl.Workbooks.Open app.path & "\Tuarchivo.xls"
'con esto te abre la ultima hoja de excel
Set hoja = xl.ActiveWorkbook.Worksheets(xl.ActiveWorkbook.Worksheets.Count)
'ahora para leer datos solo pones esto:
Text1 = hoja.Range("C5").Value
Text2 = hoja.Range("C6").Value
Set hoja = Nothing
'si quieres grabar datos pones esto:
hoja.Range("C5").Value = "dato"
hoja.Range("C6").Value = "dato"
xl.ActiveWorkbook.Save
'y con esto cerras el archivo y la referencia a la aplicacion.
Xl. ActiveWorkbook. Close
Xl. Quit
Set xl = Nothing
Esto lo puedes tener en el evento click del combo, y algún dato del combo supongo que sera una variable dentro de la rutina, por ejemplo el nombre del archivo o el nombre de la hoja.
Dim xl As Excel.Application
Dim hoja As Excel.Worksheet
Set xl = New Excel.Application
xl.Workbooks.Open app.path & "\Tuarchivo.xls"
'con esto te abre la ultima hoja de excel
Set hoja = xl.ActiveWorkbook.Worksheets(xl.ActiveWorkbook.Worksheets.Count)
'ahora para leer datos solo pones esto:
Text1 = hoja.Range("C5").Value
Text2 = hoja.Range("C6").Value
Set hoja = Nothing
'si quieres grabar datos pones esto:
hoja.Range("C5").Value = "dato"
hoja.Range("C6").Value = "dato"
xl.ActiveWorkbook.Save
'y con esto cerras el archivo y la referencia a la aplicacion.
Xl. ActiveWorkbook. Close
Xl. Quit
Set xl = Nothing
Esto lo puedes tener en el evento click del combo, y algún dato del combo supongo que sera una variable dentro de la rutina, por ejemplo el nombre del archivo o el nombre de la hoja.
