Visual Basic.NET - Importar datos de excel por combobox en formulario nuevo.

   
Vista:

Importar datos de excel por combobox en formulario nuevo.

Publicado por George (2 intervenciones) el 16/09/2014 21:06:04
Buenas a todos, el problema es el siguiente a ver si me pueden ayudar.

Yo he cargado una información mediante un formulario de visual a excel, hasta ahí no tengo problema, ahora tengo otro formulario para que me llame mediante un combobox esa información y pueda modificarla, eso si sin modificar el id que llama el combobox. pero no he podido hacerlo, aquí les envío el código que tengo. He estado en todos los foros y nadie responde.

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
'Validamos los datos

If Txt_Nombre.Text = "" Or Txt_Direccion.Text = "" Or Txt_codigopostal.Text = "" Or Txt_Poblacion.Text = "" Or Txt_Provincia.Text = "" Then
MsgBox("Debes rellenar todos los campos para poder agregar un nuevo cliente", vbCritical, "Rellena todos los campos")
Exit Sub
Else 'En caso de que los campos sean correctos y no esten vacios

Abrir_Archivo_Clientes() 'Este es un modulo que funciona a la perfección'

'Agregar datos de excel a form2 del visual studio'
With Obj_Excel
Obj_Hoja_Clientes.Range("a65536").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Offset(1, 0).Activate()

'Recorremos la fila desde la 1 hasta la 65536
For Fila = 1 To 65536

'Agregamos el valor de la fila que esta en excel y la traemos al form2 _
Form2.Txt_Nombre.Text.ToUpper = .ActiveCell.Offset(0, 1).Value
Form2.Txt_Direccion.Text.ToUpper = .ActiveCell.Offset(0, 2).Value
Form2.Txt_codigopostal.Text = .ActiveCell.Offset(0, 3).Value
Form2.Txt_Poblacion.Text.ToUpper = .ActiveCell.Offset(0, 4).Value
Form2.Txt_Provincia.Text.ToUpper = .ActiveCell.Offset(0, 5).Value
Next
End With
End If

End Sub
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

Importar datos de excel por combobox en formulario nuevo.

Publicado por omar pc.net.2018@hotmail.com (128 intervenciones) el 17/09/2014 16:33:54
enviame esa parte de tu proyecto y te envio resulto el problema
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