통합 문서간에 복사하여 붙여 넣기 VBA

Question

저와 함께하십시오. 나는 여전히 VBA를 배우고 있으며 약간의 도움을 줄 수 있습니다.

하나의 통합 문서에서 다른 통합 문서로 데이터를 복사하려고하는데,이 질문에 대한 답변을 많이 찾았지만 매우 복잡하므로 코드를 이해해야합니다. 누군가가 나를 읽고 이해하기 쉬운 기본 코드를 도울 수 있다면 좋겠다.

현재 3 개의 다른 통합 문서에서 모든 데이터를 복사하여 3 개의 워크 시트에 걸쳐 1 개의 통합 문서에 붙여 넣으려고합니다.

예를 들어

나는 3 개 통합 문서 나라는 통합 문서에 다음이 통합 문서에서 모든 데이터를 (값 만) 복사 및 붙여 넣기 할

AA BB CC

라는이

홈페이지

하지만 AA.to의 데이터를 기본 Worksheet1 및 에 넣으려고합니다. 그러나 BB의 데이터를 기본 Worksheet2 및에 넣기를 원합니다.CC의 해당 데이터를 주요 워크 시트 3에 입력하겠습니다.

이 질문을 올바르게 설명하고 도움을 주시면 감사하겠습니다.

Answer 1

코드를 입력하지 않았으므로 시작하기에 충분할 것입니다. 이 파일을 편집하여 필요에 맞게 수정해야합니다.

Sub test() 
    Dim Wb1 As Workbook, Wb2 As WorkBook, Wb3 As Workbook 
    Dim MainBook As Workbook 

    'Open All workbooks first: 
    Set Wb1 = Workbooks.Open(" path to copying book ") 
    Set Wb2 = Workbooks.Open(" path to copying book ") 
    Set Wb3 = Workbooks.Open(" path to copying book ") 
    Set MainBook = Workbooks.Open(" path to destination book ") 

    'Now, copy what you want from wb1: 
    wb1.Sheets("Sheet1").Cells.Copy 
    'Now, paste to Main worksheet: 
    MainBook.Sheets("Sheet1").Range("A1").PasteSpecial 

    'Now, copy what you want from wb2: 
    wb2.Sheets("Sheet1").Cells.Copy 
    'Now, paste to Main worksheet: 
    MainBook.Sheets("Sheet2").Range("A1").PasteSpecial 

    'Now, copy what you want from wb3: 
    wb3.Sheets("Sheet1").Cells.Copy 
    'Now, paste to Main worksheet: 
    MainBook.Sheets("Sheet3").Range("A1").PasteSpecial 

    'Close Wb's: 
    Wb1.Close 
    Wb2.Close 
    Wb3.Close 
    MainBook.Save 
    MainBook.Close 

End Sub