求助代码求助代码

1吧吧

打开的两个工作薄  表一和 表二   


将  表一工作薄  的  表4   

复制到  
    表二工作薄   的   表4         
求助代码

quqiyuan

直接复制工作表过去，原有的删除，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Set sht = ThisWorkbook.Sheets("sheet4")
    p = ThisWorkbook.Path
    f = p & "\" & "表二.xlsm"
    If Dir(f) <> "" Then
        With Workbooks.Open(f, 0)
            On Error Resume Next
            Application.DisplayAlerts = False
            .Sheets("sheet4").Delete
            Application.DisplayAlerts = True
            On Error GoTo 0
            sht.Copy after:=.Sheets(Sheets.Count)
            .Close 1
        End With
    End If
    Beep
    Application.ScreenUpdating = True
End Sub

gwjkkkkk

Sub test()
With Workbooks("表一.xlsm").Worksheets("Sheet4")
    Set Rng = Range(.UsedRange, .[A1])
    Rng.Copy Workbooks("表二.xlsm").Worksheets("Sheet4").[A1]
End With

End Sub