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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как экспортировать StringGrid в MS Word таблицу? 
:(
    Опции темы
Pakshin A. S.
Дата 10.11.2004, 20:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Код

uses  
  ComObj;  

procedure TForm1.Button1Click(Sender: TObject);  
var  
  WordApp, NewDoc, WordTable: OLEVariant;  
  iRows, iCols, iGridRows, jGridCols: Integer;  
begin  
  try  
    // Create a Word Instance  
    // Word Instanz erzeugen  
    WordApp := CreateOleObject('Word.Application');  
  except  
    // Error...  
    // Fehler....  
    Exit;  
  end;  

  // Show Word  
  // Word anzeigen  
  WordApp.Visible := True;  

  // Add a new Doc  
  // Neues Dok einfugen  
  NewDoc := WordApp.Documents.Add;  

  // Get number of columns, rows  
  // Spalten, Reihen ermitteln  
  iCols := StringGrid1.ColCount;  
  iRows := StringGrid1.RowCount;  

  // Add a Table  
  // Tabelle einfugen  
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);  

  // Fill up the word table with the Stringgrid contents  
  // Tabelle ausfullen mit Stringgrid Daten  
  for iGridRows := 1 to iRows do  
    for jGridCols := 1 to iCols do  
      WordTable.Cell(iGridRows, jGridCols).Range.Text :=  
        StringGrid1.Cells[jGridCols - 1, iGridRows - 1];  

  // Here you might want to Save the Doc, quit Word...  
  // Hier evtl Word Doc speichern, beenden...  

  // ...  
    
  // Cleanup...  
  WordApp := Unassigned;  
  NewDoc := Unassigned;  
  WordTable := Unassigned;  
end;  

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

Rrader
Girder

Запрещено:

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

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


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

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

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


 




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


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

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