exporting objects from sheet to excel with the button by using macro

[#1]

hi

i have created a report and now i want to create a button 'export to excel' and this button must export the objects of the active sheet to the excel...how cani achieve that ???

explain it with a simple example???

[#2]

Define your macro as:

sub exportAll

          set s = ActiveDocument.ActiveSheet

          for i=0 to s.NoOfSheetObjects - 1

                         s.SheetObjects(i).SendToExcel

          next

end sub

Then make a button an make it run external->macro name exportAll

This will export everything on the active sheet to excel.

Hope this helps,

Brandon