Sngr

vba批量处理文件
目的:文件夹内所有txt文件,需要用excel打开,执行指定的宏,输出结果到log文件。主要参考: 用VBA自动操...
扫描右侧二维码阅读全文
15
2018/10

vba批量处理文件

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

例子如:

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
Last modification:October 15th, 2018 at 10:51 am
If you think my article is useful to you, please feel free to appreciate

Leave a Comment