Excel VBA 문을 반환하는 형식이 일치하지 않음

Question

"수평 데이터"라는 스프레드 시트에서 채워진 데이터를 가져 와서 "마스터 계획 데이터"라는 워크 시트에 붙여 넣기 위해 VBA 코드를 만들었지 만 Workbook (wb1)이 던지고 있습니다 형식 불일치 오류, 여기에 뭐가 잘못 되었나요?

Dim WBA as Variant  
Dim WB1, WB2 As Workbook 
Dim L As Long 

Set WB2 = ThisWorkbook 

MsgBox "Select Master Plan File" 
WBA = Application.GetOpenFilename(_ 
       FileFilter:="Excel Files (*.XLSX), *.XLSX", _ 
       Title:="Select Master Plan File") 
If WBA = False Then 
MsgBox "You have not selected a file" 
Exit Sub 
End If 
Set WB1 = Workbooks.Open(WBA) 

WB2.Activate 
With Worksheets("Master Plan Data") 
     .Rows("2:100000").Clear 
End With 


'ERROR BEGINS HERE 
With Workbooks(WB1) ' <-- Getting Type Mismatch here 
    Worksheets("HORIZONTAL_DATA").Cells.Select 
    Selection.Copy 
End With 

Answer 1

Workbooks 개체는 확실히 통합 문서를 찾는 데 사용할 수 있습니다. 당신이 그것을 찾아 갈 필요가 없습니다 그래서, WB1에있어, 이미 은 당신이 재생하려는 통합 문서이

Workbooks(42) 
Workbooks("paxsheet.xls") 

: 그러나, 숫자 인덱스 또는 통합 문서 이름 자체 중 하나가 필요합니다.

With Workbooks(WB1) ' <-- Getting type mismatch here ' 

로 :

그래서 변경

With WB1    ' <-- Should not get type mismatch here ' 

모두 잘해야한다.

---

, 당신이 통합 문서의 워크 시트 내 를 사용하고자하기 때문에 즉각적인 오류, 지정해야 넘어 그 .를 앞에하여 : 또한,

With WB1 
    .Worksheets("HORIZONTAL_DATA").Cells.Select 
    Selection.Copy 
End With 

가정 해당 사본 이외의 항목을 유지 관리 할 필요가없는 경우 을 먼저 복사하여없이 복사 할 수 있습니다.

With WB1 
    .Worksheets("HORIZONTAL_DATA").Cells.Copy 
End With 

하지만, 물론 그때는 그냥 모든 일을 단순화 할 수 있도록, 심지어는 with을 사용하는 꽤 쓸모가된다 :

WB1.Worksheets("HORIZONTAL_DATA").Cells.Copy