FiveTech Support Forums

Hi forum,

Can we read and save as DBF an excel (XLS) file, using only xHarbour + FWH, with not microsoft excel installed in the computer?

Regards,

George

You can also try FileXLS class, it writes direct XLS files, no need to have anything installed.

Ok, but George needs to read from an XLS and write to a DBF, if I understood correctly.

EMG

Enrico, Rene,

That is correct. I have to read an XLS file, created by another program, and save it as DBF in order to do some process with my xHarbour + FWH software.
By now I am using TEXCEL.PRG class. It is working fine, but as you know wee need to have Microsoft Excel installed.

BTW a do you know how to, when saving the XLS file as DBF, to have a field (in the generated DBF) as logical? Now I can have numerical and chars fields automatically created from the XLS, but not logical field.

Regards,

George

George,

>BTW a do you know how to, when saving the XLS file as DBF, to have a field (in the generated DBF) as logical? Now I can have numerical and chars fields automatically created from the XLS, but not logical field.

This is a round about way, but you could process the first DBF as a temp file, and change all the data in the field you want to be logical as you copy the data to a new file.

Or, another idea just came to me, you can subclass TDatabase and modify the load method to convert the data each time a record is read. This way there is another (mock) field that is logical. Let me know if you would like an example.

James

James,

I am trying to avoid modify the DBF. I would prefer using TEXCEL class to create a logical type column in the XLS file, before saving as DBF; I don't know if that is possible.

I am glad to see you example.

Regards,

George

George,

>I am trying to avoid modify the DBF. I would prefer using TEXCEL class to create a logical type column in the XLS file, before saving as DBF; I don't know if that is possible.

>I am glad to see you example.

First create a subclass of TDatabase. Lets assume your fieldname is "ACTIVE" (the one you want to be a logical). We create a new fake field ISACTIVE. I don't know what your field contains, but here lets assume it contains Y or N.

class TMyData from TDatabase
data isactive
method load
endclass

method load class TDatabase
super:load()
// Convert the real field to a logical
::isactive:= if(::ACTIVE="Y",.t.,.f.)
return self

Now to use it all you do is this:

use mydata
oMyData:= TMyData():new()

msgInfo( oMyData:isactive ) // returns .t. or .f.

Simple.

James

Anyone,

Where can I get a copy of the TExcel class?

James

James,

following the link:

http://fivetechsoft.com/forums/viewtopic.php?t=2765

Best regards,

Felix

Felix,

Thanks but the link to TXLS is now dead.

James

OK, I found the TXLS.ZIP file on my own disk. I was looking for TEXCEL.ZIP before.

Now I am confused. George, didn't you say that you were using TEXCEL to read an Excel file? The version I have only writes to Excel files.

James

I have code in VB for creating XLS file direct with FCREATE() and FWRITE()
If you interesting I can send this file for conversion to xHarbour

James

> Where can I get a copy of the TExcel class?
Sent to your email

Digicad,

Please send the VB code to georgeabinader@msn.com

Regards,

George

Here is it again.

http://misoft.blogspot.com/2005/05/txls.html