하나의 Excel 파일에서 다른 Excel 파일로 선택 행을 복사하는 방법

Question

하나의 Excel 파일에서 다른 Excel 파일로 선택한 셀 범위를 복사하는 매크로를 작성하고 싶습니다. 그 코드를 시도했지만 작동하지 않습니다. 내가 볼 수있는 유일한 동작은 wbk 및 wbk 1 통합 문서가 열려 있지만 나머지 코드는 실행되지 않으므로 필요한 코드를 복사 할 수 없습니다. 어떤 아이디어가 잘못 되었나요?

Sub new() 

    Dim wbk As Workbook 
    Dim wbk1 As Workbook 

    Set wbk = Workbooks.Open("C:\Users\Marcin\Desktop\plik zrodkowy.xlsm") 
    Set wbk1 = Workbooks.Open("C:\Users\Marcin\Desktop\Zeszyt2.xlsm") 

    ' now you can manipulate the data in the workbook anyway you want, e.g. ' 

    Dim x, y As Variant 
    x = wbk.Worksheets("Sheet1").Range(Cells(1, 1), Cells(13, 2)) 
    y = wbk1.Worksheets("Sheet1").Range(Cells(1, 20), Cells(13, 23)) 

Answer 1

코드에 작업이 없습니다. 첫 번째 부분은 통합 문서를 열고 변수를 선언하고 설정하지만 아무 것도하지 않습니다. 복사 할 경우 범위는이 코드 줄을 추가 : 도움을

x.Copy (y) 

Answer 2

모두에게 감사, 내 코드를 편집 할 말을하고 내가 원하는처럼 지금은, 작동, 여기가에 사람을 도울 수 있다면 내 대구입니다 미래 :) 저는 폴란드 출신의 개발자이기 때문에 "Arkusz1"대신 영어 버전의 Excel을 사용하는 경우 "Sheet1"을 사용해야합니다. 감사합니다 Marcin

Dim strPath2 As String 

Dim wbkWorkbook1 As Workbook 
Dim wbkWorkbook2 As Workbook 
Dim wbThis As Workbook 

'define paths and filenames 
strPath2 = "C:\Users\Marcin\Desktop\plik zrodkowy.xlsm" 
Set wbThis = ThisWorkbook 
'open files 

Set wbkWorkbook2 = Workbooks.Open(strPath2) 
Set Workbook1 = ThisWorkbook 
'copy the values across 
'### change the sheet and range to what you need 
'wbkWorkbook2.Worksheets("Arkusz1").Range("A1:B3").Value = _ 
    wbkWorkbook1.Worksheets("Arkusz1").Range("A1:B3").Value' 

wbThis.Worksheets("Arkusz1").Range("E1:F3").Value = 
wbkWorkbook2.Worksheets("Arkusz1").Range("A1:C3").Value 

'close the workbook 
wbkWorkbook2.Close (True)