페이지 트리
메타 데이터의 끝으로 건너뛰기
메타 데이터의 시작으로 이동

현재 Active되어 있는 WorkBook의 Wrraper


typemember의미
stringFolderCode현재 Report의 FolderCode
stringFullName현재 Report의 Full 경로
stringCode현재 Report의 Code
stringName현재 Report의 이름


Example

Sub GetWorkbookCode()
    Dim mxmodule As Object
    Dim ReportCode
    Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
    ReportCode = mxmodule.xapi.ActiveBook.Code

    Debug.Print ReportCode
End Sub
  • 레이블 없음

2 댓글

  1. Sub GetWorkbookCode()

        Dim mxmodule As Object
        Dim ReportCode

        Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
        ReportCode = mxmodule.xapi.ActiveBook.Code

        Debug.Print ReportCode

    End Sub


  2. Sub GetWorkbookInfo()
    Dim mxmodule As Object

    Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object


    Debug.Print mxmodule.viewmodel.activebook.getdataset("DS").Name

    Debug.Print mxmodule.viewmodel.activebook.getdataset("DS").SourceType '0:연결 , 1:META, 3:QUERY

    Debug.Print mxmodule.viewmodel.activebook.getdataset("DS(1)").OutputAddress

    End Sub