Page 1 of 1

FW_AdoToExcel and sheet

Posted: Tue Sep 28, 2021 7:47 am
by Maurizio
Hello Rao
it is possible with the function FW_AdoToExcel determine in which sheet to export ?

Maurizio

Re: FW_AdoToExcel and sheet

Posted: Tue Sep 28, 2021 12:11 pm
by nageswaragunupudi
FW_AdoToExcel( cSql ) --> oSheet

This function creates a new Excel Book, exports to only sheet available, i.e., "Sheet1" and returns the Sheet object.
You can use the oSheet object and do anything with it, including rename it :
oSheet:Name := "SomeOtherName".

Re: FW_AdoToExcel and sheet

Posted: Tue Sep 28, 2021 12:36 pm
by Maurizio
Thanks Rao
This Works :D ,
is there a possibility to export more recordest in different Sheets of the same Excel file?
Maurizio

Re: FW_AdoToExcel and sheet

Posted: Wed Sep 29, 2021 9:51 am
by nageswaragunupudi

Code: Select all | Expand

  local oExcel, oBook, oSheet
   local oCn, oRs, n

   oCn      := FW_MSSQLDB()
   oRs      := FW_OpenRecordSet( oCn, "states" )
   xbrowser oRs
   oExcel   := ExcelObj()
   oBook    := oExcel:WorkBooks:Open( "c:\fwh\tests\testbook.xlsx" )
   oSheet   := oBook:WorkSheets( "two" )
   oSheet:Activate()
   oSheet:Cells:Clear()
   for n := 1 to oRs:Fields:Count()
      oSheet:Cells( 1, n ):Value := oRs:Fields( n - 1 ):Name
   next
   oSheet:Cells( 2, 1 ):CopyFromRecordSet( oRs )
   oRs:Close()
   oCn:Close()

   oExcel:Visible := .t.

   return nil
 

Re: FW_AdoToExcel and sheet

Posted: Thu Sep 30, 2021 7:08 am
by Maurizio
Thanks Rao