Question

VBA如何将我的代码作用到指定文件夹的所有EXCEL文件？

Sub ceshi()
Dim i As Integer
For i = 3 To 69
If Cells(1, i) <> i + 1946 Then
Columns(i).Insert
Cells(1, i) = i + 1946
End If
Next i
End Sub
这是代码

Answer 1

可以考虑将文件依次打开执行代码后，保存关闭

代码及注释如下：
Sub main()

f = Dir("D:\*.xlsx") '遍历D盘根目录下所有xlsx文件
Do While f <> ""
Workbooks.Open ("D:\" & f) '依次打开各个文件
With Workbooks(f)
.Sheets(1).Cells(1, 1) = 1 '自行添加需要执行的代码，这里以让每个工作表第一个单元格内容变为1为例
.Save '保存工作表
.Close '关闭工作表
End With
f = Dir '继续下一个文件
Loop
End Sub