Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

Qlikview static reports

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

7 Replies
MK_QSL
MVP
MVP

Using an alert or Macro, you can send this report to the specific person via email...

ashfaq_haseeb
Champion III
Champion III

Check this

Regards

ASHFAQ

Not applicable
Author

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

ashfaq_haseeb
Champion III
Champion III

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

Not applicable
Author

Thanks, I will give it a whirl and see how it works

ashfaq_haseeb
Champion III
Champion III

Hi,

If it answer, make sure to close this thread.

Regards

ASHFAQ

Not applicable
Author

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