🚀 go-pugleaf

Hi Dmitry,

Dmitry <ivanov@iamm.ac.donetsk.ua> wrote:
>Vladimir, I need realize reverse problem: convert data from XLS file 
>into any C++ Builder DataSet. Can you help me in this?
>Sincerely, Dmitry
>

The main problem it is how to find where data ends in the Excel.
If you will save data manually from Excel to dBase the Excel 
ask you about boundary of data. It doesn't know where end 
line and end column. 
Another problem it is type of data. In DB the data is structured.
The data in the same field for every record has the same format.
But for Excel A1 can be number and A2 can be string.

I think that easiest way to solve your task it save data in the 
csv (linear format with separators).

Separator: You can set separator by next Win32 API function:

bool result=SetLocaleInfo(
    LOCALE_SYSTEM_DEFAULT,	// locale identifier
    LOCALE_SLIST,	// type of information to set
    "#" 	// pointer to information to set
   );

In this sample: # - separator. You can find this 
separator in the Control Panel -> Local Options  
(or Language and Standards dependely from Windows language).


Converting .xls to .csv:

if(FileExists("c:\\1.csv"))DeleteFile("c:\\1.csv");
int csvType=6;
Variant covFalse((short)false);
Variant vExcel;
Function WorkbooksP("Workbooks");
Function OpenF("Open");
Variant WorkBooks;
Variant WorkBook;
Function SaveAsF("SaveAs");
Function CloseF("Close");
Function QuitF("Quit");
  vExcel=Variant::CreateObject("Excel.Application");

//no need to do next command - it only do Excel visible on 
//Screen
  vExcel.Exec(PropertySet("Visible") << Variant((short)true));

  WorkBooks=vExcel.Exec(WorkbooksP);
  WorkBook=WorkBooks.Exec(OpenF << "c:\\1.xls");

  WorkBook.Exec(SaveAsF << AnsiString("c:\\1.csv") << Variant(csvType));
  WorkBook.Exec(CloseF << covFalse);

  vExcel.Exec(QuitF);

How to create table in run time you can find in Borland's Help 
for "TTable::CreateTable" method. There you can find example.

Best regards,
Vladimir.