Как экспортировать StringGrid в MS Word таблицуDelphi , Технологии , OLE Automation MSOfficeКак экспортировать StringGrid в MS Word таблицуАвтор: http://www.swissdelphicenter.ch
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; В статье описывается процесс экспорта StringGrid в таблицу Microsoft Word с помощью Delphi и использования компонента ComObj. Комментарии и вопросы:: 2011-06-18 20:23:15 :: re:Как экспортировать StringGrid в MS Word таблицупользователь: Maral. как экспортировать данные из нескольких StringGrid в несколько таблиц MS Word, и как можно добавить текст после таблицы?? :: 2011-06-27 16:11:29 :: re:Как экспортировать StringGrid в MS Word таблицупользователь: kan. Для каждой таблицы повторить код начиная с iCols := StringGrid1.ColCount; Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |