Código Visual Basic:
Ver originalPrivate Sub abrir_Click()
'Variables
Dim archivo As String
Dim xlApp As Excel.Application
Dim libro As Workbook
Dim hoja As Worksheet
Dim rango As Variant
CommonDialog1.Filter = "Archivos excel (*.xls)|*.xls|"
CommonDialog1.ShowOpen
archivo = CommonDialog1.FileName
'Verificamos si hay archivo
If Len(archivo) Then
'MsgBox (archivo)
Set xlApp = New Excel.Application
Set libro = xlApp.Workbooks.Open(archivo)
Set hoja = libro.Worksheets("trns_rpt") 'Seleccionar el nombre de la hoja
rango = hoja.Range("C3").End(xlDown).Value
'Después que agrego los item elimino los repetidos
Combo1.AddItem (rango)
Dim i As Integer, x As Integer
For i = 0 To Combo1.ListCount - 1
For x = 0 To Combo1.ListCount - 1
If (Combo1.List(i) = Combo1.List(x)) And x <> i Then
Combo1.RemoveItem (i)
End If
Next x
Next i
'Si no hay archivo mostramos error
Else
MsgBox ("Debe seleccionar archivo para continuar")
End If
End Sub
Hola amigos este es el codigo que uso para abrir un archivo excel...Y lo que quiero es que se llene los datos de un rango en un comboBox sin que se repita alguno, pero aun no lo logro es la primera vez que uso Visual Basic. Toda ayuda es bienvenida.
Edito: solo me muestra un item...