문자열을 통합 문서 이름으로 변환하는 방법

Question

Sub openwb() 

Dim x260path As String 

x260path = "E:\sarath\PTMetrics\20131002\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_" & Format(Date, "YYYYMMDD") - 1 

Workbooks("x260path").Activate 

ActiveWorkbook.SaveAs ["E:\sarath\PTMetrics\20131002\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_" & Format(Date, "YYYYMMDD")] 

Debug.Print x260path 

End Sub 

여기 실행하면 오류가 "범위 밖의 첨자"로 표시됩니다. 그리고 그것은 네 번째 줄에 나타납니다. 'x260path'대신 'x260path'를 선언 할 때 'workbook'을 사용하면 3 행에서 'Object variable or block variable not set'이라는 또 다른 오류가 표시됩니다. 왜 도움이 될까요? 왜 이런 일이 발생합니까?

Answer 1

통합 문서를 활성화하려면 통합 문서의 전체 경로가 아닌 & 이름을 참조로 설정해야합니다. 따라서 x260path 변수 중 이름 만 알아야합니다. 그렇게 할 수있는 방법은 거의 없습니다. 이것은 내가 염두에두고있는 것입니다 :

Dim x260path As String 

x260path = "E:\sarath\PTMetrics\20131002\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_" & Format(Date, "YYYYMMDD") - 1 

Dim x260name As String 
x260name = Split(x260path, "\")(UBound(Split(x260path, "\"))) 

Workbooks(x260name).Activate 

'the rest of your code here