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
猜你喜欢
转载自blog.csdn.net/chenlu5201314/article/details/80287714
今日推荐
周排行