VBA에서 파일 경로 읽기

Question

저는 VBA에서 매우 새로 운 것이지만 운이없는 질문을 검색해 보았습니다. A1의 파일 경로, B1의 통합 문서 이름 및 C1 & D1의 탭 이름을 나열하는 통합 문서가 있습니다. 셀 A1에서 파일을 열 다음 방금 원래 B1에서 연 통합 문서를 설정하고 C1 & D1에 워크 시트 이름을 설정하는 매크로를 작성하려고합니다. 그런 다음 한 줄 아래로 이동하여 프로세스를 반복하십시오. 나는 변수 경로/워크 북/시트를 정의하는 것을 제외하고 대부분을 처리 할 수 ​​있었다고 생각합니다. 아래는 지금까지 내가 생각해내는 것입니다. 누구든지 어떤 제안이 있겠습니까? 미리 감사드립니다!

Dim Macro As Workbook 
Set Macro = Workbooks("Macros.xlsb") 
Workbooks.Open Range("A1") 
Dim WBRange As Range 
WBRange = Macro.Range("B1").Value 
Dim ParRange As Range 
Set ParRange = Macro.Range("C1").Value 
Dim CurrentWB As Workbook 
Set CurrentWB = WBRange 
Dim CurrentWS As Worksheet 
Set CurrentWS = ParRange 

Answer 1

대신 사용해보십시오. 변수에 범위를 사용하는 것에 대해 약간 혼란스러운 것처럼 보입니다. 아래 코드를 참조하십시오.

' Use a better name than this for your variable 
Dim Macro As Workbook 
Set Macro = Workbooks("Macros.xlsb") 

Dim NewWorkbook As Workbook 
' Notice that I fully qualify my range reference here, and then specifically retrieve the value from the cell. 
Set NewWorkbook = Workbooks.Open(ThisWorkbook.Sheets("Sheetname").Range("A1").Value) 

' You dont retrieve the value here. You also don't specify the workbook/sheet the range is in. 
' Workbooks.Open Range("A1") 

Dim WBRange As Range 
' You always have to use set when assigning a value to an object 
' This was a mistake as well. 
' Set WBRange = Macro.Range("B1").Value 
Set WBRange = Macro.Range("B1") 

Dim ParRange As Range 
' This was my mistake and causes an error. See the fix below: 
' Set ParRange = Macro.Range("C1").Value 
Set ParRange = Macro.Range("C1") 

Dim CurrentWB As Workbook 
' Set CurrentWB = WBRange 
' I think you mean this: 
Set CurrentWB = Workbooks(WBRange.Value) 

Dim CurrentWS As Worksheet 
'Set CurrentWS = ParRange 
' Use this instead 
Set CurrentWS = CurrentWB.Sheets(ParRange.Value) 

먼저 범위를 사용할 때 항상 경로를 정규화하는 것이 가장 좋습니다. 먼저 통합 문서를 만든 다음 워크 시트를 만듭니다. 또한 설정된 워크 시트 변수를 사용할 수 있습니다.

다음으로 범위에서 값을 검색하는 경우 Range.Value을 사용해야합니다. Range의 기본 멤버가 Value 인 동안 잘못된 멤버가 검색되는 경우 (예 : Range 자체를 검색 할 수 있음)로 실행됩니다. 또한 한정자없이 해당 이름을 참조하여 워크 시트의 이름과 동일한 워크 시트를 설정할 수 없습니다. 이 이름을 인덱서로 사용할 수 있습니다. 위의 코드에서 통합 문서 이름을 사용하여 Workbooks 컬렉션에서 찾습니다. 워크 시트와 동일합니다.

이것이 도움이 되었기를 바랍니다.