Rem 将文件数据一行一行添加到ListBox
Public Sub LoadFileToListBox(filePath As String, lb As ListBox)
'声明
Rem Dim filePath As String
Dim fs As Object
Dim otf As Object
Dim localylp As Double
Dim count As String
Dim line As String
'清空ListBox
lb.Clear
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filePath) = True Then
Open filePath For Input As #1
count = 0
'如果1号文件没有到文件结尾(EndOfFile)
Do While Not EOF(1)
'将1号文件的一行赋值给strX
Line Input #1, line
If Left(line, Len(YLP)) = YLP Then localylp = count
lb.AddItem line
count = count + 1
Loop
Close #1
lb.ListIndex = localylp
Else
MsgBox "文件""" & filePath & """不存在"
End If
End Sub
Rem 用户窗口初始化
Private Sub UserForm_Initialize()
Dim localylp As Double
localylp = 0
filePath = "C:\Test.txt"
LoadFileToListBox filePath, lstMat
End Sub
【SolidWorks宏】将文件数据一行一行添加到ListBox
最新推荐文章于 2024-09-11 10:34:49 发布