有没有办法在vba中从文本文件中获取信息？
有没有办法在vba中从文本文件中获取信息？
我需要将文本文件中的信息保存到一个数组中，但我不知道具体的语法是什么。文本文件中的信息大约有2000行，显然无法在VBA脚本中存储。文本的格式如下所示：
35SLFR0006350 35SLFR0026350 35SLFR0106350 BARSQR1306000 C280BD1016000 C280BD1016000_mitre C280BD1016000_square C280FR0006000 C280MU0006000 C280MU0026000 C280SH0006000 C280SH0006000_outer frame C305BD0006000 C305BD0006000_mitre C305BD0006000_square C305BD0016000 C305BD0016000_mitre C305BD0016000_square C305BD2006000 C305BD2006000_mitre C305BD2006000_square C305FR0006000 C305MU0006000 C305MU0026000 C305MU0046000 C305SH0006000 C305SH0006000_Un E frame C340BD1006000_mitre C340BD1006000_Right,Left,Horizontal C340BD1006000_Right,Left,Vertical C340BD1006000_square C340FR00060000 C340MU0006000 C340MU0026000 C340SH0006000
有没有办法从VBA中的文本文件中检索信息？
问题的原因是无法识别程序中的文件，显示错误消息“需要常量表达式”。
解决方法是将文件路径保存在一个字符串变量中，并将其传递给Open语句的文件参数。
以下是一个示例代码，演示了如何在VBA中从文本文件中检索信息：
Sub TextFile_PullData()
Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
'文本文件的路径
FilePath = "C:\Users\chris\Desktop\MyFile.txt"
'确定用于FileOpen函数的下一个可用文件编号
TextFile = FreeFile
'打开文本文件
Open FilePath For Input As TextFile
'将文件内容存储在变量中
FileContent = Input(LOF(TextFile), TextFile)
'关闭文本文件
Close TextFile
End Sub
这个解决方法在Excel的VBA中有效。你可以根据你的实际情况修改文件路径，并在调用Open语句时传递正确的文件参数。
这样，你就可以从文本文件中检索信息并将其存储在变量中，以供后续处理和使用。