Создать объекты листа из XML

        '=== ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ ===
        Dim Qv As Object, qvActiveSheet As Object, qvSheetObjects As Object
        Dim fs As Object, xmlFileObj As Object
        Dim qvDocObjSource As Object
        Dim qvDocObjTarget As Object
        Dim vFileName As String, vXMLPath As String, vXMLFileName As String, qvPath As String
        Dim list As New ArrayList()

        '=== СОЗДАЕМ ОБЪЕКТЫ, КОТОРЫЕ В ДАЛЬНЕЙШЕМ БУДЕМ ИСПОЛЬЗОВАТЬ ===
        Qv = CreateObject("QlikTech.QlikView")
        fs = CreateObject("Scripting.FileSystemObject")

        qvPath = "C:\QVApp\"
        qvDocObjSource = Qv.OpenDoc(qvPath &amp; "Приложение источник.qvw", 3, False)


        qvActiveSheet = qvDocObjSource.ActivateSheetById("SH02")
        qvSheetObjects = qvActiveSheet.GetSheetObjects()
        vXMLPath = "C:\QVApp\XML\"

        For Each element In qvSheetObjects
            vFileName = element.GetObjectId.Replace("Document\", "")
            list.Add(vFileName.ToString())
            vXMLFileName = vXMLPath &amp; vFileName &amp; ".xml"
            xmlFileObj = fs.CreateTextFile(vXMLFileName, 2, True)
            xmlFileObj.Close
            Console.WriteLine(vFileName)
            element.WriteXmlPropertiesFile(vXMLFileName)
        Next

        qvDocObjSource.CloseDoc

        qvDocObjTarget = Qv.OpenDoc(qvPath &amp; "Пустое приложение.qvw", 3, False)

        'qvDocObjTarget.CreateSheet("SH0999")

        For Each fileNameInList In list
            vXMLFileName = vXMLPath &amp; fileNameInList &amp; ".xml"
            qvDocObjTarget.GetSheetById("SH02").CreateObjectFromXmlPropertiesFile(vXMLFileName)
        Next

        MsgBox("Press Key")

'=== ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ ===

Dim Qv As Object, qvActiveSheet As Object, qvSheetObjects As Object

Dim fs As Object, xmlFileObj As Object

Dim qvDocObjSource As Object

Dim qvDocObjTarget As Object

Dim vFileName As String, vXMLPath As String, vXMLFileName As String, qvPath As String

Dim list As New ArrayList()

'=== СОЗДАЕМ ОБЪЕКТЫ, КОТОРЫЕ В ДАЛЬНЕЙШЕМ БУДЕМ ИСПОЛЬЗОВАТЬ ===

Qv = CreateObject("QlikTech.QlikView")

fs = CreateObject("Scripting.FileSystemObject")

qvPath = "C:\QVApp\"

qvDocObjSource = Qv.OpenDoc(qvPath & "Приложение источник.qvw", 3, False)

qvActiveSheet = qvDocObjSource.ActivateSheetById("SH02")

qvSheetObjects = qvActiveSheet.GetSheetObjects()

vXMLPath = "C:\QVApp\XML\"

For Each element In qvSheetObjects

vFileName = element.GetObjectId.Replace("Document\", "")

list.Add(vFileName.ToString())

vXMLFileName = vXMLPath & vFileName & ".xml"

xmlFileObj = fs.CreateTextFile(vXMLFileName, 2, True)

xmlFileObj.Close

Console.WriteLine(vFileName)

element.WriteXmlPropertiesFile(vXMLFileName)

qvDocObjSource.CloseDoc

qvDocObjTarget = Qv.OpenDoc(qvPath & "Пустое приложение.qvw", 3, False)

'qvDocObjTarget.CreateSheet("SH0999")

For Each fileNameInList In list

vXMLFileName = vXMLPath & fileNameInList & ".xml"

qvDocObjTarget.GetSheetById("SH02").CreateObjectFromXmlPropertiesFile(vXMLFileName)

MsgBox("Press Key")

5 1 голос

Рейтинг статьи

Related posts: