VBA Excel verileri başka bir çalışma kitabına kopyalarken yanıt vermiyor

Question

Bu basit kodu kullanarak, kitabımı çalışma kitabımdan (1) aynı klasördeki çalışma kitabına (2) kopyalamak için bu basit kodu kullanıyorum.

Sub Button27_Click() 
    Application.ScreenUpdating = False 
    Dim FileName As String 
    Workbooks.Open FileName:=ActiveWorkbook.Path & "\sefaresh.xlsm" 
    Application.Wait (Now + TimeValue("0:00:01")) 
    ThisWorkbook.Sheets("Sheet3").Copy 
    After:=Workbooks("sefaresh.xlsm").Sheets(Sheets.Count) 
    Application.ScreenUpdating = True 
End Sub 

kopya & yapıştır fonksiyonu süreci başarıyla ama ilk çalışma kitabını 2 kapatırsanız, ben excel için yanıt vermiyor olsun. Herhangi bir öneri?

Teşekkür

deneyin bu ( Untested)

Answer 1

. Şimdi bir hata yapmamalısın. Eğer nesnelerle çalışıyorsanız :)

Sub Button27_Click() 
    Dim wbThis As Workbook, wbThat As Workbook 
    Dim ws As Worksheet 
    Dim fName As String 

    On Error GoTo Whoa 

    Set wbThis = ThisWorkbook 
    Set ws = wbThis.Sheets("Sheet3") 

    fName = wbThis.Path & "\sefaresh.xlsm" 

    Application.ScreenUpdating = False 

    Set wbThat = Workbooks.Open(fName) 

    DoEvents 

    ws.Copy After:=wbThat.Sheets(wbThat.Sheets.Count) 

    '~~> close and save the workbook 
    wbThat.Close (True) 

    DoEvents '<~~ Give time for it to save and close 

LetsContinue: 
    Application.ScreenUpdating = True 
    MsgBox "Done" 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume LetsContinue 
End Sub