Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Экспорт данных с Excel в Paradox

Автор: X-Vlad 17.10.2003, 12:17

Привет всем.

Можно ли реализовать експорт даных с таблицы в excel-е в таблицу Paradox?

Если можно то как?
Если можно то киньте примерчик...

Спасибо.

Автор: pigas 18.10.2003, 04:37

да =
подсоеденится любым способом к кекселю и гнать цыкл вставки.
(это трудоемко но надежно)

или не надежно .
Переделать екселевкий файл в разделенный запятыми .
BDE поодерживает этот тип файлов . ( или в ало есть метод сохранения в другом формате )

Автор: <Spawn> 18.10.2003, 06:22

Короче, все довольно просто:

Код

uses ActiveX, ComObj, Registry...

function ActivateOLEObject(AppProgId:string):OleVariant;
var
hRes:HRESULT;
Unknown:IUnknown;
Reg:TRegistry;
begin
Result:=UnAssigned;

try
 Reg:=TRegistry.Create;
 with Reg do
 begin
   RootKey:=HKEY_CLASSES_ROOT;
   if not KeyExists(AppProgId) then
     Exit;
 end;
finally
 FreeAndNil(Reg);
end;

hRes:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
if hRes=MK_E_UNAVAILABLE then
 Result:=CreateOleObject(AppProgID)
else
 Result:=GetActiveOleObject(AppProgID);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Excel, WorkBook:OleVariant;
i, j:integer;
begin
Excel:=ActivateOLEObject('Excel.Application');
WorkBook:=Excel.WorkBooks.Open(ExtractFIlePath(ParamStr(0))+'Книга1.xls');
for i:=1 to 3 do
  for j:=1 to 3 do
    ShowMessage(WorkBook.WorkSheets[1].Cells[i,j])
    //Тут можешь запихивать данные куда угодно
    //Добраться до количества строк можно, например, так WorkBook.WorkSheets[1].Rows.Count
end;

Автор: December 18.10.2003, 13:29

<Spawn> вот только типы данных надо контролировать дополнительно...

Автор: X-Vlad 19.10.2003, 14:36

Цитата

<Spawn> вот только типы данных надо контролировать дополнительно...

а можно поподробней?

<Spawn> Спасибо.

Автор: December 19.10.2003, 17:46

Ты когда выдираешь одни и те же данные из ексцеля, можешь их брать как строку, как число, как дату и т.д. А для парадокса это крайне существенно.

Автор: X-Vlad 20.10.2003, 13:37

понял. спасибо

Автор: BunnyBoy 21.11.2009, 18:20

Доброго времени суток!
Используя приложенный исходник отлично получилось экспортировать, однако возникла проблема, русские символы использующиеся в excel-файле в таблице Paradox отображаются знаками вопроса. Подскажите, пожалуйста, как можно это исправить?
Хотя тема старая, надеюсь мне кто-нибудь ответит.
Заранее спасибо!

Автор: Akella 22.11.2009, 22:44

В BDE настрой драйвер языка на pdox ansi cyrylic