Export to excel using script

[#1]

Hi folks,

i have a script that exports an object to excel.

i want to extend the script functionality to export only first 1000 records from the object.

Script:

SUB SendToExcel

SET chart = ActiveDocument.GetSheetObject("CH01")

SET p = chart.GetProperties

chart.SendToExcel

END SUB

Please advise me how do i can limit the export to 'n' no. of rows.

Thanks in advance.

regards,

Dathu

[bimartingo]

Hi, to copy the image you'll have to do is use the method CopyImageToClipboard, create the Excel workbook and execute the method paste.

1 - copy the objects image to clipbpoard:

     set obj = ActiveDocument.GetSheetObject( "CH01" )

     obj.CopyImageToClipboard

2 - create the Excel Workbook and paste the image into it:

     Set objExcel = CreateObject("Excel.Application")

     objExcel.Workbooks.Add

     objExcel.Worksheets(1).select()

     objExcel.Visible = True

     objExcel.ActiveWorksheet.Paste

[Anonymous]

Hi

     Hope the attached file will be helpful for your problem

Regards

Ashok