VBA (복사하여 붙여 넣기)

Question

이유를 모르겠다. 작동하지 않을 수 있습니다. 나는 그것을 3 줄로 단순화했습니다. 그러나 그것은 여전히 ​​나에게 문제를 일으키고 있습니다.

기본적으로 통합 문서를 열고 그 중 일부 데이터를 마스터 통합 문서에 복사하려고합니다.

나는이 :

내가 런타임 오류 438 (개체가이 속성 메소드를 지원하지 않음) 본 적이

Sub copypaste() 

Workbooks.Open("...Test.xlsx").Sheets("Sheet1").Cells(1, 1).Copy 
ActiveWorkbook.Close 
Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues 

End Sub 

, 그 붙여 넣을 수 있지만 단지 1004 응용 프로그램 정의 오류 또는 개체 정의 오류를 칠 수있다.

솔직히 내가이 간단한 작업에서 어디로 잘못 가고 있는지 전혀 알지 못합니다!

데이터를 붙여 넣은 후 통합 문서를 닫으십시오, 사전에

톰

Answer 1

을 주셔서 감사합니다. 데이터가 실패 붙여 전에 Workbook을 닫기 때문에

Sub copypaste() 

    Dim WBopen As Workbook, Wb As Workbook 

    Set Wb = ActiveWorkbook 
    Set WBopen = Workbooks.Open("...Test.xlsx") 

    WBopen.Sheets("Sheet1").Cells(1, 1).Copy 
    Wb.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues 
    WBopen.Close 

End Sub 

Answer 2

: 당신은 같은 것을 사용할 수 있습니다 예를 들어 .

피할 수있는 경우 .Copy 및 .Paste을 사용하지 않는 것이 좋습니다.

Sub copypaste() 

    Dim wbMaster As Workbook, wbData As Workbook 

    Set wbMaster = Workbooks("Master.xlsm") 
    Set wbData = Workbooks.Open("Data.xlsx") 

    wbMaster.Sheets("Sheet1").Range("A1").Value = wbData.Sheets("Sheet1").Range("A1").Value 
    wbData.Close False 

End Sub 

:

는 Values의 직접적인 설정은 아래의 예를 참조하십시오