Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экспорт данных с Excel в Paradox, ^^^^^^^^^^^^^^^^^^^^^^ 
:(
    Опции темы
X-Vlad
  Дата 17.10.2003, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Привет всем.

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

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

Спасибо.



--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
pigas
Дата 18.10.2003, 04:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 29.4.2003

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

или не надежно .
Переделать екселевкий файл в разделенный запятыми .
BDE поодерживает этот тип файлов . ( или в ало есть метод сохранения в другом формате )
PM MAIL   Вверх
<Spawn>
Дата 18.10.2003, 06:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64
Короче, все довольно просто:

Код
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;


Это сообщение отредактировал(а) <Spawn> - 18.10.2003, 06:23


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
December
Дата 18.10.2003, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
<Spawn> вот только типы данных надо контролировать дополнительно...


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
X-Vlad
Дата 19.10.2003, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Цитата
<Spawn> вот только типы данных надо контролировать дополнительно...


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

<Spawn> Спасибо.





--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
December
Дата 19.10.2003, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

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


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
X-Vlad
Дата 20.10.2003, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
понял. спасибо


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
BunnyBoy
Дата 21.11.2009, 18:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 22.1.2007

Репутация: нет
Всего: нет
Доброго времени суток!
Используя приложенный исходник отлично получилось экспортировать, однако возникла проблема, русские символы использующиеся в excel-файле в таблице Paradox отображаются знаками вопроса. Подскажите, пожалуйста, как можно это исправить?
Хотя тема старая, надеюсь мне кто-нибудь ответит.
Заранее спасибо!
PM MAIL   Вверх
Akella
Дата 22.11.2009, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
В BDE настрой драйвер языка на pdox ansi cyrylic
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0944 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.