topic Re: Heading in Straight table in QlikView

Heading in Straight table

Mon, 21 Jan 2013 10:00:08 GMT

Hi All,

How can i create a Heading for the straight table like.

			Volume YTD July			O/s
Code	Details	Location	2011	2012	Growth	Dec-11	Sep-11	Sep-12	NOC	%	Var

Attach is a sample example.

Thanks

Ritul

Re: Heading in Straight table

Mon, 21 Jan 2013 10:22:16 GMT

Simple solution is to hide the heading of the straiht table and add the required headings as labels (text Object) on top Straight table

Hope this helps

Regards

Mallik

Re: Heading in Straight table

Mon, 21 Jan 2013 10:38:50 GMT

Hi,

Thanks, But i have to take report from this as send to excel option. The suggestion that you provide on that send to excel option hides.

Let me know how this could be achieve

Thanks

Re: Heading in Straight table

Mon, 21 Jan 2013 12:23:29 GMT

The workaround is to write a macro on click of button to export the Text obj and Straight table as well,but i am not sure on export how would be the alignment in excel

Give a try

Regards

Mallik

Re: Heading in Straight table

Tue, 22 Jan 2013 05:12:26 GMT

Hi,

Thanks can you provide any macro code for send to excel.

Thanks

Ritul

Re: Heading in Straight table

Tue, 22 Jan 2013 06:00:32 GMT

The link below could be help ful to you but you need to customise according to your need

http://www.qlikblog.at/971/qliktip-32-exporting-multiple-objects-single-excel-document/

http://quickdevtips.blogspot.in/2012/06/qlikview-macro-how-to-export-multiple.html

also search in qlikview community, you will get lots of post on this.

Re: Heading in Straight table

Tue, 22 Jan 2013 12:13:32 GMT

Hi,

I hope below script helps u.

Sub Export

Path = "E:\"

FileName = "Export1.xlsx"

FullPath=Path&FileName

Set objFSO = CreateObject("Scripting.FileSystemObject")

if objFSO.FileExists(FullPath) then

objFSO.Deletefile FullPath

End if

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = False

set XLDoc = XLApp.Workbooks.Add

txt1=ActiveDocument.GetSheetObject("TX02").GetText

txt2=ActiveDocument.GetSheetObject("TX03").GetText

XLDoc.Sheets(1).Cells(1,1).Value=txt1

XLDoc.Sheets(1).Cells(1,3).Value=txt2

'XLDoc.Sheets(1).Paste()

XLDoc.Sheets(1).Range("A1:B1").Merge

XLDoc.Sheets(1).Range("C1:D1").Merge

XLDoc.Sheets(1).Range("A2").Select

ActiveDocument.GetSheetObject("CH03").CopyTableToClipboard true

XLDoc.Sheets(1).paste()

'ActiveDocument.GetSheetObject("CH03").CopyTableToClipboard true

'XLDoc.Sheets(1).paste()

XLDoc.Sheets(1).Name = "Export"

XLDoc.SaveAs Path & FileName

XLDoc.Close

MsgBox("Success!")

XLApp.Quit

end sub

PFA ...

Regards

Kabilan K.