VB打开并读取文件

 Sub search_MACRO()
Dim wktmp As String
Dim sysobj As Scripting.FileSystemObject
Dim sysfold As Scripting.Folder
Dim sysfile As Scripting.File
Dim txtfile As TextStream

Application.ScreenUpdating = False
Set sysobj = New FileSystemObject
Set sysfold = sysobj.GetFolder(ThisWorkbook.Path & "/PALNETMC5/macro_template")
For Each sysfile In sysfold.Files
    Set txtfile = sysfile.OpenAsTextStream(ForReading)
   
    Do Until txtfile.AtEndOfStream
        wktmp = txtfile.ReadLine
        'wktmp
    Loop
    txtfile.Close
Next
Application.ScreenUpdating = True
Set sysobj = Nothing
Set sysfold = Nothing
Set sysfile = Nothing
Set txtfile = Nothing
MsgBox "取得終り"
End Sub