Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Qlikview Extension
As a newcomer to qlikview I would really appreciate your comments. I have created a dashboard on PE edition of qlikview and was wondering is there anyway of sharing a static report to non qlikview users via an excel or powerpoint qlikview extension? Or am I dreaming that this could be possible.
Thanks in advance
Using an alert or Macro, you can send this report to the specific person via email...
Check this
Regards
ASHFAQ
Thanks guys, Ashfaq unfortunately I cant access your qvw as I am on PE of Qlikview, Please could you copy and post the vbscript
Thanks
Phil
Hi,
Check this
sub ExcelFile
strDate = CDate(Date)
strDay = DatePart("d", strDate)
strMonth = DatePart("m", strDate)
strYear = DatePart("yyyy", strDate)
If strDay < 10 Then
strDay = "0" & strDay
End If
If strMonth < 10 Then
strMonth = "0" & strMonth
End If
GetFormattedDate = strMonth & "-" & strDay & "-" & strYear
Path = "C:\temp\"
FileName = "Test_" & GetFormattedDate & ".xlsx"
set XLApp = CreateObject("Excel.Application")
XLApp.Visible = False
set XLDoc = XLApp.Workbooks.Add
Set v = ActiveDocument.Variables("vCount")
Selection=v.GetContent.String
ActiveDocument.GetSheetObject("CH26").CopyTableToClipboard true
XLDoc.Sheets(1).Paste()
XLDoc.Sheets(1).Columns("A:K").EntireColumn.AutoFit
XLDoc.Sheets(1).Name = "Export"
Set XLSheet = XLDoc.Sheets("Export")
ActiveDocument.GetSheetObject("TX46").CopyTextToClipboard
XLSheet.Range("A" & Selection).Select
XLSheet.Paste
XLSheet.Range("A1").Select
XLDoc.Sheets(2).Delete
XLDoc.Sheets(2).Delete
XLDoc.SaveAs Path & FileName
XLApp.Quit
Set myApp = CreateObject ("Outlook.Application")
Set myMessage = myApp.CreateItem(olMailItem)
myMessage.BodyFormat = 3 'Outlook.OlBodyFormat.olFormatRichText
myMessage.To = InputBox("Enter email address in johnsmith@mail.com format","Email Address")
myMessage.Attachments.Add "C:\temp\" & FileName
myMessage.Subject = "Test File " & Date()
myMessage.Send
msgbox("Mail Send")
Set myMessage = Nothing
Set myApp = Nothing
Set myInspector = Nothing
Set myDoc = Nothing
end sub
Regards
ASHFAQ
Thanks, I will give it a whirl and see how it works
Hi,
If it answer, make sure to close this thread.
Regards
ASHFAQ
Hi Manish, Like the sound of creating an alert that emails the report. Had a play to try and achieve this, but couldnt see how you would attach a created report once the alert triggers. Any thoughts you have of how to achieve this would be great
Thanks
Phil