目的:文件夹内所有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