VBA 붙여 넣기 값 오류

Question

다른 Excel 워크 시트에서 값을 붙여 넣으려고하지만 아래 코드에서 오류가 계속 반환됩니다. 내가 도대체 ​​뭘 잘못하고있는 겁니까 ?

설정 tempWB = Application.Workbooks.Open (vrtSelectedItem는) '이 기준 통합 문서를 OPENS

Sheets("Portfolio Worksheet 8.8").Select 'SELECT A SHEET if you need to 
Range("B16:B30").Select 'select SOME RANGE 
Selection.Copy 'COPY SOME RANGE 

mainWB.Activate 'activate your main workbook 
Sheets("Sheet1").Select 'select target sheet 
Range("C20").Select 'select target cell 
ActiveSheet.PasteSpecial xlPasteValues 'paste the data from the reference worksheet 

tempWB.Save 'save and close the reference workbook 
tempWB.Close 

Answer 1

당신이 당신의 변수를 선언 한 것은 보이지 않는

'mainWB '? 내가 동시에 여러 범위를 붙여 복사 할하지만 경우

Answer 2

어떤 선택하거나 복사 - 붙여 넣기

Set tempWB = Application.Workbooks.Open(vrtSelectedItem) 

With tempWB.Sheets("Portfolio Worksheet 8.8").Range("B16:B30") 

    mainWB.Sheets("Sheet1").Range("C20").Resize(.Rows.Count, _ 
               .Columns.Count).Value = .Value 
End With 

tempWB.Save 'save and close the reference workbook 
tempWB.Close 

Answer 3

이 아래 일, 제안을 주셔서 감사합니다 필요 없음. 그래서 아래의 코드는 "다음을위한 필요 없음"오류를 반환합니다. 나는 ** 문제

설정 tempWB = Application.Workbooks.Open (vrtSelectedItem에게) 원인이있는 코드의 두 번째 부분은 '이 기준 통합 문서에게 무엇 하위

   ' Sheets("Portfolio Worksheet 8.8").Select 'SELECT A SHEET if you need to 


       With mainWB.Sheets("Sheet1").Range("B16:B30") 

       tempWB.Sheets("Sheet5").Range("B16:B30").Resize(.Rows.Count, _ 
              .Columns.Count).Value = .Value 
       **With mainWB.Sheets("Sheet1").Range("D16:D30") 
       tempWB.Sheets("Sheet5").Range("D16:D30").Resize(.Rows.Count, _ 
              .Columns.Count).Value = .Value** 

       End With 

       tempWB.Save 'save and close the reference workbook 
       tempWB.Close 

     Next vrtSelectedItem 

    Else 'The user pressed Cancel. 
    End If 
End With 

Set fd = Nothing 'Set the object variable to Nothing. 

끝