Question

我正在尝试使用文本文件中的名称填充组合框。该文件已经准备就绪了。

格雷格史密斯 John Oliver
Bob Cassidy
....
....

到目前为止，我有来自另一个线程的代码，该代码工作得很好，但只从列表中取出姓氏，其他名称无处可寻。代码是：

将MyStr1调暗为字符串
将MyStr2调暗为字符串

打开＆＃34; TESTFILE＆＃34;输入为＃1
做不EOF（1）＆＃39;循环直到文件结束。
    输入＃1，MyStr1，MyStr2
    me.txtStr1 = MyStr1
    me.txtStr2 = MyStr2
环
关闭＃1＆＃39;关闭文件。

非常感谢任何帮助。

Answer 1

假设您只是尝试使用名字和姓氏列表填充一个组合框（名称以换行符分隔），请尝试以下操作：

Dim filePath As String
Dim oFSO As New FileSystemObject
Dim oFS As TextStream

filePath = "C:\FileFullOfNames.txt"

Set oFS = oFSO.OpenTextFile(filePath)

Do While Not oFS.AtEndOfStream
  MyForm.ComboBox1.AddItem oFS.ReadLine
Loop

oFS.Close

Set oFS = Nothing

如果您从未使用过FileSystemObject＆amp; TextStream，您需要在VBE中添加Microsoft Scripting Runtime引用。（工具＆gt;参考＆gt;选中标有＆＃34的框; Microsoft Scripting Runtime＆＃34;）。

如何填充组合框访问VBA

1 个答案: