VBA 将格式应用到表格中

编程问答 2022-04-21

问题描述

我有一组 227 个工作簿来运行这个宏。我从给定文件路径中的工作簿名称列表开始。对于每个文件，宏打开它，转到指定的工作表，复制表格的第一行，然后通过表格/表格的其余部分对其进行格式绘制。它遍历每个工作簿，直到完成所有工作簿。出于某种原因，我在 PasteSpecial 函数上遇到了调试错误，我不太确定为什么。工作簿和工作表参考是有效的，我已经对它们进行了三重检查。我忽略了任何明显的问题？

Sub Macro2()

Application.ScreenUpdating = False
Application.displayAlerts = False

Path = ThisWorkbook.Sheets(1).Range("H6")

If Right(Path,1) <> "\" Then
    Path = Path & "\"
End If

wsheet = ThisWorkbook.Sheets(1).Range("F10")

ThisWorkbook.Sheets(3).Range("A2:B20000").ClearContents
OutLn = 2
Line = 1

do while ThisWorkbook.Sheets(2).Cells(Line,1) <> ""
    OpnFil = ThisWorkbook.Sheets(2).Cells(Line,1)
    Workbooks.Open fileName:=Path & OpnFil,UpdateLinks:=False
    ScanLn = 12
        do while Workbooks(OpnFil).Sheets(wsheet).Range("A8:V8").copy
            Workbooks(OpnFil).Sheets(wsheet).Cells.Range("A10:V1000000").PasteSpecial Paste:=xlPasteFormats
            Application.CutcopyMode = False
        Loop
    Workbooks(OpnFil).Close
    Line = Line + 1
Loop

End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelformatformatformatpaintvba