求excel批量粘贴的宏代码

这个原公式所在的表里面，激活公式所在的表，运行代码看看。

Sub AAA()
    Dim Spath As String, Path As String, Sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.ShowWindowsInTaskbar = False
    Set Sh = Worksheets(1)
    Path = ThisWorkbook.Path
    Spath = Dir(Path & "*.XLS*")
    Do Until Spath = ""
        If Spath = ThisWorkbook.Name Then Spath = Dir
        With Workbooks.Open(Path & Spath)
            .Worksheets(1).Columns("H").FormulaLocal = Sh.Columns("H").FormulaLocal
            .Worksheets(1).Columns("J").FormulaLocal = Sh.Columns("J").FormulaLocal
            .Close True
        End With
        Spath = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.ShowWindowsInTaskbar = True
End Sub