Модераторы: MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> импорт из Excel в Delphi, импорт из Excel в Delphi 
:(
    Опции темы
ilias
Дата 22.3.2006, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Здраствуйте! помогите пожалуйста! мне нужно сделать програму в Дельфи так что она загружала большую базу Эксель и в ней можно было Выбирать какой Эксель открыть, поиск по определеным строкам, фильтрация, как мне это сделать незнаю я только начинающий и никогда с этим не сталкивался, помогите пожалуйста!!!!
PM MAIL   Вверх
Foley
Дата 22.3.2006, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: нет
Всего: 7



Тебе проще из Эксель это все dBase переконвертить (в экселе при сохранении можно выбрать), есть специальные драйвера Эксель (по моему в ОДБЦ, и вроде в БДЕ есть). Если просто считать данные то можно так:
Код

var
 Excel: variant;
  i, j: word;
     S: string; 
begin
     Excel := CreateOleObject('Excel.Application');
     Excel.Workbooks.Open(FileName);
     Excel.Visible:=True;
     for i := 1 to 5 do
       for j := 1 to 5 do 
        begin
          S := Excel.Sheets[1].Cells[i,j].Text;
          ShowMessage(S);
        end;
end;

(delphiworld.narod.ru)
PM MAIL ICQ   Вверх
Msl
Дата 24.3.2006, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Обмен данными с Excel.

1. Для затравки и утоления жажды -фрагменты кода с комментариями (Ishodniki.RU)

Автор: {Fernando Silva-mailto:[email protected]}

В Delphi 5, для обмена данными между Вашим приложением и Excel можно использовать компонент TExcelApplication, доступный на Servers Page в Component Palette.

Совместимость: Delphi (5.x или выше)

На форме находится TStringGrid, заполненный некоторыми данными и две кнопки, с названиями To Excel и From Excel. Так же на форме находится компонент TExcelApplication со свойством Name, содержащим XLApp и свойством ConnectKind, содержащим ckNewInstance.

Когда нам необходимо работать с Excel, то обычно мы открываем ExcelApplication, затем открываем WorkBook и в конце используем WorkSheet.

Итак, несомненный интерес представляет для нас листы (WorkSheets) в книге (WorkBook). Давайте посмотрим как всё это работает.

Посылка данных в Excel

Код

procedure TForm1.BitBtnToExcelOnClick(Sender: TObject); 
var 
WorkBk : _WorkBook; //  определяем WorkBook 
WorkSheet : _WorkSheet; //  определяем WorkSheet 
I, J, K, R, C : Integer; 
IIndex : OleVariant; 
TabGrid : Variant; 
begin 
if GenericStringGrid.Cells[0,1] <> '' then 
  begin 
   IIndex := 1; 
   R := GenericStringGrid.RowCount; 
   C := GenericStringGrid.ColCount; 
   // Создаём массив-матрицу 
   TabGrid := VarArrayCreate([0,(R - 1),0,(C - 1)],VarOleStr); 
   I := 0; 
   //  Определяем цикл для заполнения массива-матрицы 
   repeat 
   for J := 0 to (C - 1) do 
     TabGrid[I,J] := GenericStringGrid.Cells[J,I]; 
    Inc(I,1); 
   until 
    I > (R - 1); 

   // Соединяемся с сервером TExcelApplication 
   XLApp.Connect; 
    // Добавляем WorkBooks в ExcelApplication 
   XLApp.WorkBooks.Add(xlWBatWorkSheet,0); 
   // Выбираем первую WorkBook 
   WorkBk := XLApp.WorkBooks.Item[IIndex]; 
   // Определяем первый WorkSheet 
   WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet; 
   // Сопоставляем Delphi массив-матрицу с матрицей в WorkSheet 
   Worksheet.Range['A1',Worksheet.Cells.Item[R,C]].Value := TabGrid; 
   // Заполняем свойства WorkSheet 
   WorkSheet.Name := 'Customers'; 
   Worksheet.Columns.Font.Bold := True; 
   Worksheet.Columns.HorizontalAlignment := xlRight; 
   WorkSheet.Columns.ColumnWidth := 14; 
   // Заполняем всю первую колонку 
   WorkSheet.Range['A' + IntToStr(1),'A' + IntToStr(R)].Font.Color := clBlue; 
   WorkSheet.Range['A' + IntToStr(1),'A' + IntToStr(R)].HorizontalAlignment := xlHAlignLeft; 
   WorkSheet.Range['A' + IntToStr(1),'A' + IntToStr(R)].ColumnWidth := 31; 
   // Показываем Excel 
   XLApp.Visible[0] := True; 
   // Разрываем связь с сервером 
   XLApp.Disconnect; 
   // Unassign the Delphi Variant Matrix 
   TabGrid := Unassigned; 
  end; 
end; 


Получение данных из Excel

Код


   
procedure TForm1.BitBtnFromExcelOnClick(Sender: TObject); 
var 
WorkBk : _WorkBook; 
WorkSheet : _WorkSheet; 
K, R, X, Y : Integer; 
IIndex : OleVariant; 
RangeMatrix : Variant; 
NomFich : WideString; 
begin 
NomFich := ‘C:\MyDirectory\NameOfFile.xls’; 
IIndex := 1; 
XLApp.Connect; 
// Открываем файл Excel 
XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
EmptyParam,EmptyParam,0); 
WorkBk := XLApp.WorkBooks.Item[IIndex]; 
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet; 
// Чтобы знать размер листа (WorkSheet), т.е. количество строк и количество 
// столбцов, мы активируем его последнюю непустую ячейку
WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate; 
// Получаем значение последней строки
X := XLApp.ActiveCell.Row; 
// Получаем значение последней колонки
Y := XLApp.ActiveCell.Column; 
// Определяем количество колонок в TStringGrid 
  GenericStringGrid.ColCount := Y; 
// Сопоставляем матрицу WorkSheet с нашей Delphi матрицей
  RangeMatrix := XLApp.Range['A1',XLApp.Cells.Item[X,Y]].Value; 
// Выходим из Excel и отсоединяемся от сервера 
  XLApp.Quit; 
  XLApp.Disconnect; 
//  Определяем цикл для заполнения TStringGrid 
  K := 1; 
  repeat 
    for R := 1 to Y do 
      GenericStringGrid.Cells[(R - 1),(K - 1)] := RangeMatrix[K,R]; 
    Inc(K,1); 
    GenericStringGrid.RowCount := K + 1; 
  until 
   K > X; 
// Unassign the Delphi Variant Matrix 
   RangeMatrix := Unassigned; 
end; 



2. есть служба XL Report Support на http://www.delphikingdom.com/

3. VCL - XL Report - {http://www.afalinasoft.com/rus/}

4. Если задача серьезнее и есть желание- используй
библиотеки экспорта/импорта:

XLSReadWriteII 2.0 works with Delphi 5,6,7 and C++ Builder 5 and 6.
home: http://www.axolot.com/components/xlsrwii20.htm

Удачи!
PM MAIL   Вверх
Albinos_x
Дата 24.3.2006, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108



Цитата(Msl @ 24.3.2006, 07:45 Найти цитируемый пост)
На форме находится TStringGrid, заполненный некоторыми данными и две кнопки, с названиями To Excel и From Excel. Так же на форме находится компонент TExcelApplication со свойством Name, содержащим XLApp и свойством ConnectKind, содержащим ckNewInstance.

Когда нам необходимо работать с Excel, то обычно мы открываем ExcelApplication, затем открываем WorkBook и в конце используем WorkSheet.

Итак, несомненный интерес представляет для нас листы (WorkSheets) в книге (WorkBook). Давайте посмотрим как всё это работает.

Посылка данных в Excel
.....

http://forum.vingrad.ru/index.php?showtopic=84634


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
ilias
Дата 24.3.2006, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Да спасибо я по пробовал таким способом, но он так долго грузится если база большая, а комп у меня Р3 667 Мгц. Ждал минут 10-15
PM MAIL   Вверх
Albinos_x
Дата 24.3.2006, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108



можно попробовать писать напрямую в файл, например в формате csv, а потом открывать экселем...
кроме того, по указанной мной ссылке показано как работать с группой ячеек, через вариантный массив, при его использовании загрузка в несколько раз ускорится...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
wind1
Дата 7.4.2009, 20:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



Тоже понадобилось считать из экселя данные и возник один вопрос.
Когда выполняются следующие функции
Код

Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Open(FileName);

то создается новый процесс excel.exe.
Как корректно завершить этот процесс после того как я закончу считывание?
PM MAIL   Вверх
Данкинг
Дата 7.4.2009, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



Цитата(wind1 @  7.4.2009,  21:26 Найти цитируемый пост)
Как корректно завершить этот процесс после того как я закончу считывание? 

Код

excel.application.quit;
excel:=unassigned;



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
mr_tg
Дата 21.4.2010, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет




Здраствуйте я на этом форуме новечок и делетант в програмировании. Мня тоже мучает вопрос как получать данные из excel.
у меня получается заганять в Excel но из Excel в базу Парадокс7 не получается. 

Цитата

Получение данных из Excel
Код

Как пишет MSL на верху я пробовалб но 
Код

procedure TForm1.BitBtn4Click(Sender: TObject);
var
WorkBk : _WorkBook;

красном пишет UNDECLARED IDENTIFIER: '_WorkBook;' 


Заране благадарю за помощь.
MR_TG
PM MAIL   Вверх
Akella
Дата 21.4.2010, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: 2
Всего: 329



Выясни, в каком модуле _WorkBook и подключи в USES.
Скорее всего это в модуле ExcelXP
PM MAIL   Вверх
Данкинг
Дата 21.4.2010, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



mr_tg, используй CreateOleObject, там таких проблем нет.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Albinos_x
Дата 22.4.2010, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108



mr_tg
статью http://forum.vingrad.ru/forum/topic-84634/view-all.html читал?

ЗЫ: 1 тема - 1 вопрос


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
mr_tg
Дата 22.4.2010, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



спасибо друзя. я не волшебник я только учусь, и этот код скрипт я позаимствовал с этого сайта как вы понили, 
как сказал AKELLA  Uses добавил ExcelXP и отуда прошол но типер говорит 


Код

XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                                                                          EmptyParam,EmptyParam,0);

Not enough actual parametres
 а сам код вот в таком виде
Код

procedure TForm1.BitBtn4Click(Sender: TObject);

var
//XLApp:ExcelApplication;
WorkBk : _WorkBook;
WorkSheet : _WorkSheet;
K, R, X, Y : Integer;
IIndex : OleVariant;
RangeMatrix: Variant;
NomFich : WideString;
XLApp:_Application;

begin
//XLApp:=CreateOleObject('Excel.application');
NomFich :='C:\MyDirectory\NameOfFile.xls';
IIndex := 1;
// Открываем файл Excel
XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                                EmptyParam,EmptyParam,0);

WorkBk:= XLApp.WorkBooks.Item[IIndex];
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
// Чтобы знать размер листа (WorkSheet), т.е. количество строк и количество 
// столбцов, мы активируем его последнюю непустую ячейку
WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
// Получаем значение последней строки
X := XLApp.ActiveCell.Row;
// Получаем значение последней колонки
Y := XLApp.ActiveCell.Column; 
// Определяем количество колонок в TStringGrid
  GenericStringGrid.ColCount := Y; 
// Сопоставляем матрицу WorkSheet с нашей Delphi матрицей
  RangeMatrix := XLApp.Range['A1',XLApp.Cells.Item[X,Y]].Value; 
// Выходим из Excel и отсоединяемся от сервера 
  XLApp.Quit; 
  XLApp.Disconnect; 
//  Определяем цикл для заполнения TStringGrid 
  K := 1; 
  repeat 
    for R := 1 to Y do 
      GenericStringGrid.Cells[(R - 1),(K - 1)] := RangeMatrix[K,R]; 
    Inc(K,1); 
    GenericStringGrid.RowCount := K + 1; 
  until 
   K > X; 
// Unassign the Delphi Variant Matrix 
   RangeMatrix := Unassigned; 
end;


я еще не успел там напартачить (изменение внести). но прога не запускается.
хотелось бы запустит и потом посмотрет как работает. и подганять под себя smile


Заране благадарю за помощь.
MR_TG


PM MAIL   Вверх
Albinos_x
Дата 25.4.2010, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108



Цитата(mr_tg @  22.4.2010,  11:09 Найти цитируемый пост)
Uses добавил ExcelXP и отуда прошол но типер говорит 


Цитата(mr_tg @  22.4.2010,  11:09 Найти цитируемый пост)
XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
            EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                                                                          EmptyParam,EmptyParam,0);


ммм... могу сказать, что это не мой код... поэтому и спросил, читал ли ты статью по ссылке: в твоей команде не хватает двух параметров:
Код

XLApp.WorkBooks.Open(NomFich, EmptyParam, EmptyParam, EmptyParam,
                                       EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                       EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                                       EmptyParam, EmptyParam, EmptyParam, 0);



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Norfonzor
Дата 19.5.2010, 08:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



Подскажите как указать кол-во листов при создании, добавить/удалить новый лист после последнего в эксел? 

добавление через
Код

ExcelApplication1.Worksheets.Add(Before,1,EmptyParam ,lcid);

не работает

у меня в программе работа с эксел по другому совершенно.
открываю эксел (у меня):
Код

XL := CreateOleObject('Excel.Application');
  try
XL.Visible:=false;
XL.DisplayAlerts:=False;
XL.WorkBooks.Open(ExtractFilePath(Application.Exename)+'LIB\'+Global_test);


в примерах:
Код

ExcelApplication1.AutoConnect:=true;    
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.OpenXML(OpenDialog1.FileName,EmptyParam));    
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.ActiveSheet as ExcelWorksheet);    
ExcelApplication1.Visible[0]:=true;


это разные способы, если да то как в моем работать с листами?

PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

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

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


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

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




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


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

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