工程师你好!我想请教一下,如果要对连续几千个Excel表格进行打开一保存一关闭的批处理怎么操作

2025-04-04 03:30:09
推荐回答(2个)
回答1:

VBA程序代码:

Option Explicit

Sub x()
    Dim pt$, fn$
    pt = "D:\test\"
    fn = Dir(pt & "*.xls")
    While fn <> ""
        With Workbooks.Open(pt & fn)
            .Save
            .Close
        End With
        fn = Dir
    Wend
End Sub

回答2:

VBA编程完成