vba批量处理文件

目的：文件夹内所有txt文件，需要用excel打开，执行指定的宏，输出结果到log文件。
主要参考: 用VBA自动操作目录下所有Excel文件

例子如：

Sub 按钮1_Click()
    Dim Path As String
    Dim File As String
    Dim WB As Workbook
    'Application.ScreenUpdating = False
        Path = "C:\Users\SNGR\Desktop\up\deal\101\"
        File = Dir(Path & "*.txt")
    Do While File <> ""
        Set WB = Workbooks.Open(Path & File)
        Call 按钮2_Click
        File = Dir
    Loop
    'Application.ScreenUpdating = True
        
End Sub

自动保存并关闭处理的文件：

ActiveWorkbook.Save
ActiveWindow.Close

vba将数据写入txt文件，参考：

Sub CreateAfile()
      Set fs = CreateObject("Scripting.FileSystemObject")'创建一个新的文本文件对象
      Set a = fs.CreateTextFile("D:\工具\testfile.txt", True)'创建这个文件
      a.WriteLine ("This is a test.")'想数据写入TXT文件中
      a.Close'文件关闭
End Sub