UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 leer combobox1 open for random el 15/09/18, 07:17 pm

uster


Private Sub UserForm_Activate()
 Dim carta As String
 Dim i As Integer
    carta = ThisWorkbook.Path & "\carta.txt"
 
 Dim trago As String
 i = 0
    Open carta For Random As #1 Len = 40
    
    Do While Not EOF(1)
    
        Get #1, , Car
    
      ComboBox1.AddItem Car.trago
      i = i + 1
      Loop
    Close #1
End Sub
 

en un modulo

Public Car As carta



Type carta
    trago As String * 40
    
End Type





hola soy uster 

necesito leer el archivo carta.txt en una fila, en el combobox1

a
b
c
d
e
f
etc

y me sale esto

todo en una linea


a,b,c,ect



no se que hago mal

gracias

fernandezdennis


No se entinede bien que es lo que queres obtener.
será esto:
Private Sub UserForm_Activate()
Dim registro As String
Dim archivo As String
    ' Ver si existe el archivo para abrir de Input.
   Close
    archivo = ThisWorkbook.Path & "\carta.txt"
    If Dir(archivo) = "" Then
        MsgBox "El archivo no existe"
        Exit Sub
    End If
    ' Abrir el archivo de Input.
  
    Open archivo For Input As #1
      ' Leer cada linea del archivo de texto en una variable string
    On Error Resume Next
    Do While Not EOF(1)
         Line Input #1, registro
         Car.trago = registro
         ComboBox1.AddItem Car.trago
    Loop
    ' Cierro el archivo
    Close #1
End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.