값과 일치하고 다른 통합 문서로 데이터를 복사하는 VBA 선택 열

Question

두 Excel 2007 Excelbook 통합 문서가 있습니다. 및 요약입니다. 요약에 rh 파일을 검사하여 그 안에있는 텍스트를 기반으로 특정 열을 찾습니다. 이 열을 찾아 복사하고 요약 시트에 데이터를 보내야합니다.

Sub Main() 

' Declare hr workbook file 
Dim rh As Excel.Workbook 

' initialise hr workbook file 
Set rh = Workbooks.Open("C:\Users\AC74338\Desktop\ac\rh") 

'select the rh file 
rh.Select 

'select the open worksheet 
Sheets("Open").Select 

' search for the column header that matches e.g. "Org Level 6" 
OrgLevel6 = WorksheetFunction.Match("Org Level 6", Rows("1:1"), 0) 
OrgLevel7 = WorksheetFunction.Match("Org Level 7", Rows("1:1"), 0) 

'activate this workbook where the code is 
ThisWorkbook.Activate 

'paste the data that was copied to this workbook in the NxNOpen worksheet 
ThisWorkbook.Sheets("NxNOpen").Columns(OrgLevel6).Copy Destination:=Sheets("Sheet2").Range("A1") 
ThisWorkbook.Sheets("NxNOpen").Columns(OrgLevel7).Copy Destination:=Sheets("Sheet2").Range("B1") 

End Sub 

데이터를 OrgLevel6 변수에 할당 할 때 디버깅을 수행하고 오류가 발생합니다. 누구든지이 문제를 해결하는 방법에 대한 제안이 있습니까? VB에서는 익숙하지 않으므로 간단한 실수 일 수 있습니다.

Answer 1

VBA에서 WorksheetFunction을 사용하는 경우 VBA Range 참조를 계속 사용해야하므로 Rows(1:1)을 사용하는 대신 VBA 코드의 행을 참조해야합니다.

OrgLevel6 = WorksheetFunction.Match("Org Level 6", rh.Sheets("Open").Rows(1), 0) 
OrgLevel7 = WorksheetFunction.Match("Org Level 7", rh.Sheets("Open").Rows(1), 0) 

Answer 2

변경 Rows(1)-Rows("1:1") 예를 들면 다음과 같습니다.

"열기"라는 워크 시트에서 일치 기능을 적용했지만 시트 "NxNOpen"에서 데이터를 복사하고 있습니다. 오른쪽 열, 잘못된 시트

Answer 3

나는 OrgLevel6 = 라인을 테스트했으며 하나의 시트에서 정상적으로 작동하므로 정확한 시트가 활성화되어 있지 않아서 "Org Level 6"을 찾을 수 없습니다.

아래의 코드 시도하십시오 Sheets("Open").Activate

Answer 4

에 Sheets("Open").Select을 변경해보십시오 :

Sub Main() 

' Declare hr workbook file 
Dim rh As Excel.Workbook 
Dim sum As Excel.Workbook 

Dim b As Integer 

' initialise hr workbook file 
Set rh = Workbooks.Open("C:\Users\AC74338\Desktop\ac\rh") 
Set sum = ThisWorkbook 


b = 1 

lcol = rh.Sheets("Open").Cells(1, Columns.Count).End(xlToLeft).Column 

For i = 1 To lcol 

If rh.Sheets("Open").Cells(1, i).Value = "Org Level 6" Or "Org Level 7" Then 

rh.Sheets("Open").Columns(i).Copy sum.Sheets("Sheet2").Cells(1, b) 
b = b + 1 

End If 

Next i 

End Sub