FiveTech Support Forums

#include "fivewin.ch"

ANNOUNCE RDDSYS

FUNCTION CRE_XLS()
LOCAL oExcel
LOCAL oAs
LOCAL nRow
FW_SetUnicode( .t. )

oExcel := CreateObject( "Excel.Application" )
oExcel:WorkBooks:Add()

oAs := oExcel:Activesheet()

SELECT 0
USE aa_chn
SET INDEX TO aa_chn
GO TOP
oAs:Range( "A1" ):Value := "English Description"
oAs:Range( "B1" ):Value := "Chinese Description"

nRow := 2
DO WHILE !EOF()
   IF !EMPTY( aa_chn->des_chn )
       MsgInfo( aa_chn->des_chn , aa_chn->descrizi )

       oAs:Range( "A" + cRow(nRow) ):Value := "'" + ALLTRIM( aa_chn->descrizi )
       oAs:Range( "B" + cRow(nRow) ):Value := "'" + ALLTRIM( aa_chn->des_chn )
       nRow ++
   ENDIF
   SKIP
ENDDO
oExcel:visible := .T.
USE
RETURN NIL


FUNCTION CROW( nRow )
LOCAL cRow := ALLTRIM( STR( nRow ) )
RETURN cRow


INIT PROCEDURE RddInit
REQUEST DBFFPT
REQUEST DBFCDX
rddSetDefault( "DBFCDX" )

RETURN

   
   DEFINE WINDOW oWnd
   USE UTF8_01
   aData    := FW_DbfToArray()
   AEval( aData, { |a,i| aData[ i ] := FW_ArrayAsList( a, Chr(9) ) } )
   aData    := FW_ArrayAsList( aData, CRLF )
   oClp     := TClipBoard():New()
   oClp:SetText( aData )
   oExcel   := ExcelObj()
   oBook    := oExcel:WorkBooks:Add()
   oSheet   := oBook:ActiveSheet
   oSheet:Cells( 1, 1 ):Select()
   oSheet:Paste()
   for n := 1 to 3
      oSheet:Columns( n ):AutoFit()
   next
   oClp:Clear()
   oExcel:Visible := .t.
   oWnd:End()