Fill a combobox on a form from a txt file

[Daniel Bonallack]

Can I open a notepad txt file that contains only a list of names, and use
that to fill a combobox on a form?

Failing that, can populate the combobox from an Excel file, without having
to open the Excel file?

Thanks in advance
Daniel

[Tom Ogilvy]

Sub ReadStraightTextFile()
Dim sStr as String
Dim LineofText As String

Open "C:\FILEIO\TEXTFILE.TXT" For Input As #1
sStr = ""
Do While Not EOF(1)
Line Input #1, LineofText
userform1.combobox1.AddItem LineofText
Loop
'Close the file
Close #1
End Sub

--
Regards,
Tom Ogilvy

"Daniel Bonallack" <DanielBonallack@discussions.microsoft.com> wrote in
message news:40140E7E-E3F7-474C-A5D2-BEC5E47F66ED@microsoft.com...
> Can I open a notepad txt file that contains only a list of names, and use
> that to fill a combobox on a form?
>
> Failing that, can populate the combobox from an Excel file, without having
> to open the Excel file?
>
> Thanks in advance
> Daniel

[Daniel Bonallack]

Thanks very much Tom.

If you just happen to have any questions about New Zealand Rugby teams,
that's about the only way I'll ever by able to reciprocate!

Daniel


"Tom Ogilvy" wrote:

> Sub ReadStraightTextFile()
> Dim sStr as String
> Dim LineofText As String
>
> Open "C:\FILEIO\TEXTFILE.TXT" For Input As #1
> sStr = ""
> Do While Not EOF(1)
> Line Input #1, LineofText
> userform1.combobox1.AddItem LineofText
> Loop
> 'Close the file
> Close #1
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
> "Daniel Bonallack" <DanielBonallack@discussions.microsoft.com> wrote in
> message news:40140E7E-E3F7-474C-A5D2-BEC5E47F66ED@microsoft.com...
> > Can I open a notepad txt file that contains only a list of names, and use
> > that to fill a combobox on a form?
> >
> > Failing that, can populate the combobox from an Excel file, without having
> > to open the Excel file?
> >
> > Thanks in advance
> > Daniel
>
>
>