如何用文本文件中的文本填充ComboBox和TextBox

Question

我是vba的新手，对vba的编码也不了解。 我已经在excel工作簿中创建了一个表单，其中包含一个名为ComboBox1的comboBox和一个名为TextBox1 。

我有一个包含以下文本的文本文件：

组织1 | taxid001
Organisation2 | taxid002
Organisation3 | taxid003
组织4 |出租车004

这里OrganisationX指的是组织名称，而taxidXXX指的是相应组织的税号。

当我加载表单时， ComboBox1应该填充组织名称，并且当我在包含组织名称的组合框中单击特定项目时，必须在Textbox1填充相应的Tax ID。
我该怎么做呢？

Answer 1

你可以这样做 ：

Private Sub UserForm_Activate()

Dim File As Integer
Dim NextLine As String
File = FreeFile
Open "C:\Users\...\Documents\test.txt" For Input As File
While Not EOF(File)
  Line Input #File, NextLine
  UserForm1.ComboBox1.AddItem NextLine
Wend
Close File

End Sub

并在TextBox1中显示文本：

Private Sub ComboBox1_Change()
Dim MyPos
MyPos = InStr(1, ComboBox1.Value, "|")

TextBox1.Value = " " & Right(ComboBox1.Value, MyPos - 1)
End Sub