none
Visual Studio - Excel RRS feed

  • Debate general

  • Ruego a quien me pueda ayudar es mi tesis de grado y estoy bloqueado.

    Necesito codigo para llamar desde un combobox celdas de excel para mostrarlas en los textbox del formulario y poderlos editar.

    Necesito código para no duplicar ID de una columna en excel desde formulario visual studio al momento de cargar el formulario.

    Gracias.

    jueves, 11 de septiembre de 2014 22:10

Todas las respuestas

  • Este es el codigo que tengo pero no me funciona para importar desde un combobox a formulario.

    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 perfeccion'

                '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 7  
                    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

    Espero quien me pueda ayudar. gracias.

    martes, 16 de septiembre de 2014 18:47