How to format data into excel?

[#1]

Hi,

I have a excel file with data as in attached input. I need to format the data which is shown in attached output excel file. can anyone suggest me whether would it be possible with qvw?

Thanks.

[MarcoWedel]

attachment missing

regards

Marco

[#3]

Please see attached.

[Anonymous]

FUNCTION ExcelExport(objID)

     set obj = ActiveDocument.GetSheetObject( objID )

w = obj.GetColumnCount

if obj.GetRowCount>1001 then h=1000 else h=obj.GetRowCount end if

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Add

objExcel.Worksheets(1).select()

objExcel.Visible = True

set CellMatrix = obj.GetCells2(0,0,w,h)

column = 1

for cc=0 to w-1

objExcel.Cells(1,column).Value = CellMatrix(0)(cc).Text

objExcel.Cells(1,column).EntireRow.Font.Bold = True

column = column +1

next

c = 1

r =2

for RowIter=1 to h-1

for ColIter=0 to w-1

objExcel.Cells(r,c).Value = CellMatrix(RowIter)(ColIter).Text

c = c +1

next

r = r+1

c = 1

next

END FUNCTION

SUB CallExample ExcelExport( "CH01" )

END SUB

VB Macro to Loop Field (Dynamic) and Export Chart (Dynamic) to Excel & Name Sheets by Field Valu...

Useful Qlikview Macros

QlikView automation by external VBScript scripts