时间戳

首页 > 解决方案 > 寻求更新同一目录中的多个 Excel 工作簿的解决方案？

excel - 寻求更新同一目录中的多个 Excel 工作簿的解决方案？

问题描述

尝试自动更新多个 Excel 文件。

（我可能会遇到不正确的文件路径调用）

我的代码：

Sub UpdateFiles()
    MyDir = Application.ThisWorkbook.Path
    DataDir = MyDir & "\folder1\"
    ChDir (DataDir)
    Nextfile = Dir("*.xlsx")
    While Nextfile <> ""
        Workbooks.Open (Nextfile)
        Workbooks(Nextfile).Sheets("sheet1").Range("F22") = "Major"
        Workbooks(Nextfile).Save
        Workbooks(Nextfile).Close
        Nextfile = Dir()
    Wend
End Sub

希望 sheet1 上的单元格 F22 中的数据读取“主要”

标签： excelvba

解决方案

* 代替 x

该模式"*.xls*"允许打开.xlsx和.xlsm文件以及另外的.xls文件

编码

Sub UpdateFiles()
    MyDir = Application.ThisWorkbook.Path
    DataDir = MyDir & "\folder1\"

Nextfile = Dir("*.xls*")

    While Nextfile <> ""
        With Workbooks.Open (Nextfile)
            .Sheets("sheet1").Range("F22") = "Major"
            .Save
            .Close
        End With
        Nextfile = Dir()
    Wend
End Sub

推荐阅读