Экспорт/импорт данных в Excel

Тема в разделе "Delphi - СОМ", создана пользователем Sour, 15 июн 2004.

Статус темы:
Закрыта.
  1. Sour

    Sour Гость

    Не могу сделать Экспорт/импорт данных в Excel (Delphi 7). Имеется StringGrid. Нужно всё в Excel и назад...
     
  2. admin

    admin Well-Known Member

    Регистрация:
    8 авг 2003
    Сообщения:
    2.811
    Симпатии:
    0
    Sour
    я уже как-то постил тут пример работы с экселем в форуме по делфям. если не найдешь - кину ещё раз.
     
  3. Barmutik

    Barmutik Гость

    Кусок из проги(могут быть мелкие бажки):

    var
    ExcelApp: Variant;
    ...
    begin
    try
    try
    ExcelApp := GetActiveOleObject('Excel.Application');
    except
    try
    ExcelApp := CreateOleObject ('Excel.Application');
    except
    MessageDlg('Не могу загрузить Microsoft Excel.', mtError, [mbOK], 0);
    Exit;
    end;
    end;
    Screen.Cursor := crHourGlass;
    ExcelApp.WorkBooks.Add;
    for I := 0 to пробежка по твоему гриду
    for J := 0 to пробежка по твоему гриду
    ExcelApp.ActiveWorkBook.WorkSheets[1].Cells[I + 1, J + 1] := знчеиния из ячеек
    finally
    ExcelApp.Visible := True;
    ExcelApp := UnAssigned;
    Screen.Cursor := crDefault;
    end;
    end;

    Ну и дальше уже украшай как хочеш .. Я обычно испольую заране заготовленные шаблоны и потом просто в нужные места распихиваю данные . а если в чистой странице то потом долго программить .. той ячейке такой цвет .. те слить .. там бордео поставить .. ну надеюсь общий смысл ты понял.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей