[엑셀VBA] 현재 작업 디렉토리 경로 찾기 및 피벗실행

현재 작업 디렉토리 경로 찾기 및 피벗실행 방법

전체코드

Sub 피벗실행()
'
' 피벗실행 매크로
'

'
    Dim ThisWorkbookPath As String

    ThisWorkbookPath = ThisWorkbook.Path
    MsgBox "Working-Directory = " & ThisWorkbookPath
    
    
    Sheets("채널별").Select
    Range("A3").Select
    ActiveSheet.PivotTables("피벗 테이블1").ChangePivotCache ActiveWorkbook.PivotCaches. _
        Create(SourceType:=xlDatabase, SourceData:= _
        ThisWorkbookPath & "\[■ 마케팅내실화_유선상품부적격 현황.xlsm]raw!R3C1:R50000C19" _
        , Version:=xlPivotTableVersion15)
    ActiveWorkbook.RefreshAll
    ActiveSheet.PivotTables("피벗 테이블1").PivotCache.Refresh
End Sub

현재경로 구하는 법

Sub 현재경로 구하기()
'
' 현재경로 구하기 매크로
'

'
    Dim ThisWorkbookPath As String

    ThisWorkbookPath = ThisWorkbook.Path
    MsgBox "Working-Directory = " & ThisWorkbookPath
   
End Sub