Importing data

[skiman]

Hi,

On a regular base I get datafiles from new customers to import and convert their data to use in my application. Normally they deliver XLS files.

I always convert them manually, I add the fieldnames in the first row, and I export to DBF. I was wondering if someone had a tool to do this?

[RDalzell]

Hi Chris,

I have used several converters from the below company, they are inexpensive and offer a trial for your review:

http://www.whitetown.com/xls2dbf/

Rick

[rdonnay]

Why don't you use DC_Excel2WorkArea() ?

[GeneB]

Can you provide an example of it's use? I can't find any documentation for DC_Excel2WorkArea()
I updated in April. Has it been added since?

GeneB

[skiman]

Hi,

I will check the possibilities of it. The structure of these XLS files is always different.

[rdonnay]

For a sample, look in \exp19\samples\excel.

[Auge_Ohr]

I always convert them manually, I add the fieldnames in the first row, and I export to DBF. I was wondering if someone had a tool to do this?

DC_Excel2WorkArea() ... For a sample, look in \exp19\samples\excel.

i do find DC_Array2Excel() but not DC_Excel2WorkArea() ?

anyway, both are using Excel as activeX so the "Trick" is

Code: Select all

// select Data in Sheed
         oWorkBook:workSheets(1):usedRange:Select
// Row and Col
         numRows    := oWorkBook:workSheets(1):usedRange:Rows:Count
         numColumns := oWorkBook:workSheets(1):usedRange:Columns:Count
// build a empty Array with Row/Col Dimension
         FOR i := 1 TO numRows
            AADD(aExcel,ARRAY(numColumns))
         NEXT
// same as Get_Excel_Column_ID
         cEnde := ZAHL2CHR(numColumns)
// assing hole "marked" Sheed to Array
         aExcel := oSheet:range( "A1:"+cEnde+LTRIM(STR(numRows)) ):value

now you can modify Array aExcel as you like and you do not need a temporary DBF to import.