批量修改文件夹内多个工作薄同工作表同单元内容

zhongxingengen

[tr][/tr]
[tr][/tr]

检测结论：

该层填料压实质量符合《铁路路基工程施工质量验收标准》TB10414-2003及设计要求。《客货共线铁路路基工程施工技术指南》TZ202-2008。

更为检测结论：
该层填料压实质量符合设计图纸和《新建时速200公里客货共线铁路工程施工质量验收暂行标准》要求。

爱疯

Sub teset()
    Dim p, f, s
    Application.ScreenUpdating = False
    s = "该层填料压实质量符合设计图纸和《新建时速200公里客货共线铁路工程施工质量验收暂行标准》要求。"
    p = ThisWorkbook.Path & "\D4K15+014.98桥台\"
    f = Dir(p & "*")
    Do While f <> ""
        With Workbooks.Open(p & f)
            Sheets(2).[j38] = s
            .Close 1
        End With
        f = Dir
    Loop
    MsgBox "ok"
End Sub
新建文件夹.rar (476.05 KB, 下载次数: 2)

2015-7-15 10:25 上传

点击文件名下载附件