Using Excel To Create Reports

[si_the_geek]

Your code isn't quite right.. see my Excel tutorial (link in my signature) for the correct methods.

[songoku]

Hi Si _the_geek thanks i have try out it work. now i have another problem is where i need to print something like his

Movie id        Movie Name           Price

SD1              Superman                    9
MT1               Matrix                         9

but what i get is something like this

Movie id                      Movie Name          P rice
SD1                                MT1
Superman                           Matrix     
9                                         9

pls help me below is my coding

Dim objexcel As Excel.Application
Dim objsheet As Excel.Worksheet
Dim objbook As Excel.Workbook
 
 
Set objexcel = New Excel.Application
Set objbook = objexcel.Workbooks.Add
Set objsheet = objbook.Worksheets(1)
 
objexcel.Visible = True
For i = 0 To titlecount - 1
objsheet.Cells(1, i + 2).Value = List1.List(i)
 
 
objsheet.Cells(1, 2, i + 1).Value = List2.List(i)
 
 
objsheet.Cells(3 i + 1).Value = List3.List(i)
Next