MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Importing text from another file into Excel list boxes


Posted by Kurt on August 27, 2000 11:20 AM

Hello all,

How can I use the following code to import text from another file into a list box in Excel 97?Sub FilterCrops()

Open "c:\crops.id" For Input As #1
Open "c:\cropsout.txt" For Output As #2

FindCrops = "CE"

Do While Not EOF(1)

Line Input #1, data

If InStr(1, data, FindCrops) Then
Print #2, data
End If

Loop
Close

End Sub

Thanks in advance,

Kurt


Posted by Ivan Moala on August 28, 0100 2:47 AM

Kurt
Try this in your userform code;
OR
change as necc for the prticular control
you want to action this.

Private Sub UserForm_initialize()
Dim FindCrops As String
Dim Data

Open "c:\crops.id" For Input As #1

FindCrops = "CE"

Do While Not EOF(1)
Line Input #1, Data
If InStr(1, Data, FindCrops) Then
ListBox1.AddItem (Data)
End If
Loop

Close

End Sub

Ivan