QlikView API Экспорт значений переменных из InputBox в текстовый файл

Dim qvPath As String, qvTargetAppName As String
Dim Qv As Object, fs As Object, txtFileObj As Object, rowText As String
Dim qvDocObjTarget As Object, InputBoxData As Object
Dim strTextFile As String

qvPath = "C:\VisualStudioProjects\"
Qv = CreateObject("QlikTech.QlikView")
fs = CreateObject("Scripting.FileSystemObject")
strTextFile = qvPath &amp; "Variables\InputBoxFile.txt"


qvTargetAppName = "Приложение с InputBox.qvw"

qvDocObjTarget = Qv.OpenDoc(qvPath &amp; qvTargetAppName, 3, False)

InputBoxData = qvDocObjTarget.GetSheetObject("IB03")


txtFileObj = fs.CreateTextFile(strTextFile, 2, True)

For iRowIB = 0 To InputBoxData.GetNoOfRows - 1
	rowText = InputBoxData.GetCell(iRowIB, 0).Text &amp; "|" &amp; InputBoxData.GetCell(iRowIB, 2).Text
	txtFileObj.WriteLine(rowText)
Next
txtFileObj.Close

qvDocObjTarget.Save
qvDocObjTarget.CloseDoc
Qv.Quit

Dim qvPath As String, qvTargetAppName As String

Dim Qv As Object, fs As Object, txtFileObj As Object, rowText As String

Dim qvDocObjTarget As Object, InputBoxData As Object

Dim strTextFile As String

qvPath = "C:\VisualStudioProjects\"

Qv = CreateObject("QlikTech.QlikView")

fs = CreateObject("Scripting.FileSystemObject")

strTextFile = qvPath & "Variables\InputBoxFile.txt"

qvTargetAppName = "Приложение с InputBox.qvw"

qvDocObjTarget = Qv.OpenDoc(qvPath & qvTargetAppName, 3, False)

InputBoxData = qvDocObjTarget.GetSheetObject("IB03")

txtFileObj = fs.CreateTextFile(strTextFile, 2, True)

For iRowIB = 0 To InputBoxData.GetNoOfRows - 1

rowText = InputBoxData.GetCell(iRowIB, 0).Text & "|" & InputBoxData.GetCell(iRowIB, 2).Text

txtFileObj.WriteLine(rowText)

txtFileObj.Close

qvDocObjTarget.Save

qvDocObjTarget.CloseDoc

Qv.Quit

0 0 голос

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

Related posts: