создание приложения

[MarinaSt]

прошу мне помочь.Необходимо создать на форме компонент с помощью которого осуществляется выбор из какого-нибудь каталога нужной таблицы Excel, и за тем вывод этой таблицы на форму.Подскажите, пожалуйста,какой написать код и какие нужны компоненты, чтобы это сделать

[ZhekON]

для выбора таблицы используй компонент TOpenDialog, а далее работай с самим фалйлом OpenDialog.filename

Да, а если тебе нужно прям на форме выбирать из каталога, тогда используй такие компоненты : TFileListBox , TDirectoryListBox , TDriveComboBox.

[MarinaSt]

а где находятся эти компоненты, что-то не могу их найти ,а вы могли бы поподробнее когда нееобходимо на форме выбирать. Где будет выводится табли,которую выбрали?

[JTG]

Таблица нигде не будет. Я лично про такие компоненты не слышал (по крайней мере бесплатные).

ActiveX штучка есть (Try&Buy)
http://www.filedudes.com/Excel_Viewe...oad-37072.html

Не триал 99 американских денежек стоит =)


Вот ещё есть, не знаю бесплатное ли
http://www.safe-install.com/programs...iewer-ocx.html

[D-mon]

В Dialogs и Win 3.1

[MarinaSt]

а с помощью компонента TBGrid можно предоставить таблицу?

[JTG]

Ну если найдёшь спецификацию формата excel ... Нет наверно
по второй ссылке тоже только shareware
--
Можно тут что-то поискать, но в основном встречаентся только преобразование dbgrid в excel
http://www.torry.net/quicksearchd.ph...xcel&Title=Yes
--

BINGO!
MarinaSt с тебя пиво, чуть не обгуглился

http://www.scalabium.com/xls/xlslib.htm

тоже демо, с nagом и грузит только первые 50 строк, но уже ближе к теме. Если очень надо, могу дома попробовать поквырять
--

Автор видимо уже не с нами...

Исчо ссылок (вроде бесплатно)
http://axolot.com/components/xlsrwii30_delphi.exe
http://axolot.com/components/XLSMiniDelphi.exe

[Jeni]

Сообщение от MarinaSt

...и за тем вывод этой таблицы на форму.Подскажите, пожалуйста,какой написать код и какие нужны компоненты, чтобы это сделать

Теоретически, можно работать с Excel'ем внутри собственной программы. Для этого можно использовать компонент TOleContainer, расположенный на странице System - бросить на форму, щелкнуть по нему правой кнопкой мыши, в меню выбрать пункт "Insert Object...", а дальше указать ЧТО должно отображаться в контейнере (для Excel'я - Лист Microsoft Excel). Нажать OK. Вот собственно и всё, теперь внутри контейнера будет "запускаться" Excel. Чтобы его вызвать во время работы программы, нужно просто сделать на контейнере двойной щелчок. Правда там есть и свои тонкости, например нужно зарезервировать место для инструментальных панелей Excel'я и другое.

Но вот как им манипулировать из собственной программы - не знаю. Для этого нужно читать разделы книг типа "Автоматизация OLE".

[Sergey_nl]

Один из вариантов - использовать Excel как com-сервер. Это абсолютно бесплатно и всё уже есть.
Для начала следует импортировать библиотеку типов Excel и подключить её к проекту.
Затем можно будет используя функции библиотеки загружать с помощью Excel-сервера данные примерно следующим образом:

type
  IxlApplication = Excel_TLB._Application;
  IxlWorkbook = Excel_TLB.Workbook;
  IxlWorksheet = Excel_TLB._Worksheet;
  IxlRange = Excel_TLB.Range;

...
    FIXLSApp: IxlApplication;
    FLCID: LCID;
    fSheet : IxlWorksheet;

    IWorkbook: IxlWorkbook;
    ISheet: IxlWorksheet;
    Rng: IxlRange;
    CellVal: string;
....

//Инициализация 

  FLCID := LOCALE_USER_DEFAULT;
    if not Assigned(FIXLSApp) then begin
      isCreate := NewInstance or
        (not SUCCEEDED( GetActiveObject(Excel_TLB.CLASS_Application_, nil, IU) ) );
      if isCreate then
        begin

          FIXLSApp := CreateComObject(Excel_TLB.CLASS_Application_) as Excel_TLB._Application;
        end
      else
        FIXLSApp := IU as Excel_TLB._Application;
   end;

//Отображение
  wasError:=false; // Ошибки не было
  if Assigned(FIXLSApp) then 
  begin
    try
      FIXLSApp.Visible[FLCID] := true;
    except on E : EOleException do
    begin
....
     end;
  end;

//Загрузка данных
  XLFile:='MyTable.xls';

    try
      FIXLSApp.Interactive[FLCID] := false;
      FIXLSApp.ScreenUpdating[FLCID] := false;
      try
//load file
        IWorkbook := FIXLSApp.Workbooks.Add(XLFile, FLCID);
        fSheet := IWorkbook.Worksheets.Item[1] as IxlWorksheet;
        FIXLSApp.Visible[FLCID]:=true;
      except on E : EOleException do
        begin
.....
        end;
      end;

//Работа с данными

      with MainForm.Table1 do
          fSheet := IWorkbook.Worksheets.Item[1] as IxlWorksheet;
            sRange:='B3';
            Rng:=fSheet.Range[sRange,EmptyParam];
            CellVal:=Trim(Rng.Value);
            if (length(CellVal)<=0) then 
            begin
            //В ячейке ничего нет
            end;
            //Добавляем к таблице новую строку
            Append;
            //Формируем значения полей
            FieldValues['MyField']:= VRange;
......

Возможно, есть более элегантные способы борьбы с экселем.
При смене версии офиса может меняться API, могут измениться функции работы с данными, поэтому лучше отлаживать на той версии офиса, которая будет использоваться.