기존 워크 시트를 현재 통합 문서로 복사하는 방법은 무엇입니까?

Question

나는 2 장, 한 장에 두 개의 버튼 Browsefile과 Openfile과 하나의 텍스트 박스 TextBox1이있다. Browsefile 단추를 사용하여 열려는 파일을 선택하고 Openfile 단추를 사용하여 통합 문서를 엽니 다.

문제는 내 통합 문서에 추가하는 대신 새 통합 문서에서 열리는 것입니다. 어떻게 해결할 수 있을까요?

Public fileStr As String 
Sub GetOpenFile() 

fileStr = Application.GetOpenFilename() 
Worksheets("Sheet1").TextBox1.Value = fileStr 

End Sub 
Sub Paste_Click() 
Dim wbk1 As Workbook, wbk2 As Workbook 

Set wbk1 = ActiveWorkbook 
Set wbk2 = Workbooks.Add(fileStr) 

wbk2.Sheets(1).Cells.Copy wbk1.Worksheets("Sheet2").Cells(1, 1) 

End Sub 

Answer 1

시도해보십시오 :) 파일을 선택하고 열린 통합 문서의 끝에 첫 번째 시트를 복사 할 수 있습니다.

Sub Paste_Click() 
Dim wbk1 As Workbook, wbk2 As Workbook 

fileStr = Application.GetOpenFilename() 

Set wbk1 = ActiveWorkbook 
Set wbk2 = Workbooks.Add(fileStr) 

wbk2.Sheets("Sheet1").Copy After:=Workbooks("WorkbookNameYouCopyCodeInto").Sheets(3) 
wbk2.Close 
End Sub