VBA如何循环打开关闭同一文件夹内的所有xlsx文件?
发布网友
发布时间：2022-04-24 10:55
共2个回答
热心网友
时间：2023-10-10 15:11
Sub 打开文件并写入数据()
Dim wkb As Workbook
Path = "C:\Users\Administrator\Desktop\3.19"
File = Dir(Path & "*.xlsx")
Do While File <> ""
Set wkb = Workbooks.Open(Path & File)
wkb.Sheets(1).Cells(2, 2) = "999公司"
wkb.Close False
File = Dir
Loop
End Sub
热心网友
时间：2023-10-10 15:12
这个主要是用循环，百度一下，应该就能找到答案
