Friends, has anyone tried this or has a solution to this. I have been trying multiple things but no luck as of yet. Below is sample of few trial and error statements.
Dim QVApp As New QlikView.Application
Dim QVDoc As QlikView.Document
Dim QVSheet As SheetObject
Dim SP As Object
Dim strFilename As String
Dim i As Integer
strFilename = "D:\QVReport.qvw"
Set QVDoc = QVApp.OpenDocEx(strFilename, 1, False, "001")
Set QVSheet = QVDoc.GetSheetObjectByInternalCtlNo(5)
QVSheet.GetSheet.GetProperties.Show.Always = True
For i = 0 To QVDoc.NoOfSheets