Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Hi,
I have QV 9.0 PE.
But i want to Accessing QlikView documents from outside QlikView. So that i write the following vba code it throws an error. I added the references qv 9.0 type library in vb
Private Sub CommandButton1_Click()
Dim doc1 As New QlikView.ActiveDocument
Set app1 = doc1.GetApplication
Set doc2 = appl.OpenDoc("D:\Business.qvw", "", "")
doc2.Activate
End Sub
error as
automation error unspecified error vba
Thanks in advance
Murugavel
Hi Mugavel,
Yes my selected path variable is getting value.
check i have put the code again.Could you please now correct the same ,so taht i can open it in the server?
Sub Absorption
dim SelectedReportPath
set mySelections = ActiveDocument.fields("DESCRIPTION").GetPossibleValues
'Only if one selection is done
if mySelections.Count = 1 then
set FileName = ActiveDocument.fields("PATH").GetPossibleValues
SelectedReportPath = FileName.Item(0).text
Set App = ActiveDocument.GetApplication
Set newdoc = App.Opendoc (SelectedReportPath,"","")
End if
End Sub
Thanks,
Mahasweta
Hi Mugavel,
Yes my selected path variable is getting value.
check i have put the code again.Could you please now correct the same ,so taht i can open it in the server?
Sub
dim
set
'Only if one selection is done
if
then set FileName = ActiveDocument.fields("PATH").GetPossibleValues
mySelections.Count = 1 mySelections = ActiveDocument.fields("DESCRIPTION").GetPossibleValues SelectedReportPath AbsorptionSelectedReportPath = FileName.Item(0).text
Set
Set
End
ifEnd
newdoc = App.Opendoc (SelectedReportPath,"","") App = ActiveDocument.GetApplicationSub
Hi Mugavel,
Yes my selected path variable is getting value.
check i have put the code again.Could you please now correct the same ,so taht i can open it in the server?
Sub
dim
set
'Only if one selection is done
if
then set FileName = ActiveDocument.fields("PATH").GetPossibleValues
mySelections.Count = 1 mySelections = ActiveDocument.fields("DESCRIPTION").GetPossibleValues SelectedReportPath AbsorptionSelectedReportPath = FileName.Item(0).text
Set
Set
End
ifEnd
newdoc = App.Opendoc (SelectedReportPath,"","") App = ActiveDocument.GetApplicationSub
sorry for so many duplicate posts
Thanks,
Mahasweta
You can delete the duplicates by clicking on more...
Hi All,
Requesting the followers of this post to help me out here. I hope some here can help me out.