topic-16122

Board index FiveWin for Harbour/xHarbour How to save xls to dbf

fafi

Posts: 169

Joined: Mon Feb 25, 2008 02:42 AM

How to save xls to dbf
Posted: Tue Jul 14, 2009 12:05 PM

Please Help

I have xls file with 3 sheets

How to save every sheet with different DBF file

Best Regards
Fafi

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: How to save xls to dbf
Posted: Tue Jul 14, 2009 08:41 PM

Code (fw): Select all Collapse

#define xlDBF3 8


FUNCTION MAIN()

    LOCAL oExcel := CREATEOBJECT( "Excel.Application" )

    LOCAL oWorkBook, oSheet

    oWorkbook = oExcel:WorkBooks:Open( "E:\XHARBOUR\MYTEST.XLS" )

    oSheet = oExcel:Sheets( "Your sheet name" )

    oSheet:SaveAs( "E:\XHARBOUR\MYTEST.DBF", xlDBF3 )

    oWorkBook:Close( .F. )

    oExcel:Quit()

    RETURN NIL

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

fafi

Posts: 169

Joined: Mon Feb 25, 2008 02:42 AM

Re: How to save xls to dbf
Posted: Wed Jul 15, 2009 12:03 PM

Thank to Mr. Enrico..

Best Regards
Fafi

FiveTech Support Forums

Continue the discussion