Недавно добавленные исходники

•  TDictionary Custom Sort  502

•  Fast Watermark Sources  868

•  3D Designer  1 799

•  Sik Screen Capture  1 454

•  Patch Maker  1 457

•  Айболит (remote control)  1 387

•  ListBox Drag & Drop  1 152

•  Доска для игры Реверси  21 138

•  Графические эффекты  1 330

•  Рисование по маске  1 271

•  Перетаскивание изображений  1 082

•  Canvas Drawing  959

•  Рисование Луны  795

•  Поворот изображения  753

•  Рисование стержней  801

•  Paint on Shape  485

•  Генератор кроссвордов  747

•  Головоломка Paletto  659

•  Теорема Монжа об окружностях  837

•  Пазл Numbrix  606

•  Заборы и коммивояжеры  835

•  Игра HIP  549

•  Игра Go (Го)  522

•  Симулятор лифта  543

•  Программа укладки плитки  504

•  Генератор лабиринта  560

•  Проверка числового ввода  517

•  HEX View  595

•  Физический маятник  522

•  Задача коммивояжера  554

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Передать данные из Excel в Word




{ Add these global variables/constants:
  als Globale Variablen/Konstanten deklarieren: } 

var 
  XLApp: Variant; 
  WordApp: Variant; 

const 
  xlWBATWorksheet = -4167; 
  wdDoNotSaveChanges = 0; 

{For creating data in Excel we shall start it first: 
Excel starten:} 

  //Starting Excel application: 
  XLApp := CreateOleObject('Excel.Application'); 
  // Making it visible: 
  XLApp.Visible := True; 
  // Adding workbook: 
  XLApp.Workbooks.Add[XLWBatWorksheet]; 
  // Specifying name of worksheet: 
  XLApp.Workbooks[1].Worksheets[1].Name := 'Delphi Data'; 

{Now inserting data to Excel: 
Daten in Excel einfugen:} 

procedure TForm1.InsertData2Excel; 
var 
  Sheet: Variant; 
  i: Integer; 
begin 
  Sheet := XLApp.Workbooks[1].Worksheets['Delphi Data']; 
  for i := 1 to 10 do 
    Sheet.Cells[i, 1] := i; 
end; 

{And copying data from Excel to Word. 
Daten von Excel nach Word kopieren. } 


{This process consists of two phrases: 
1) Data should be copied from Excel into Windows clipboard. 
2) Data should be pasted from Windows clipboard into the Word. 
For successful completion both Excel and Word should be running. 

Copying data from Excel into Windows clipboard: 
Daten von Excel in die Zwischenablage kopieren: } 

procedure TForm1.CopyData; 
var 
  Sheets: Variant; 
begin 
  SetFocus; 
  Sheets := XLApp.Sheets; 
  // Selecting our worksheet: 
  Sheets.Item['Delphi Data'].Activate; 
  // Selecting our cells: 
  Sheets.Item['Delphi Data'].Range['A1:A10'].Select; 
  // Copying selected cells into clipboard: 
  Sheets.Item['Delphi Data'].UsedRange.Copy; 
  // Inserting copied data into Word 
  InserData2Word; 
end; 

procedure TForm1.InsertData2Word; 
var 
  Range: Variant; 
  i: Integer; 
begin 
  // Starting Word: 
  WordApp := CreateOleObject('Word.Application'); 
  // Making it visible: 
  WordApp.Visible := True; 
  // Adding new document: 
  WordApp.Documents.Add; 
  // Inserting description text into new document: 
  Range      := WordApp.Documents.Item(1).Range; 
  Range.Text := 'This is a column from a spreadsheet: '; 
  for i := 1 to 3 do WordApp.Documents.Item(1).Paragraphs.Add; 
  // Inserting data from clipboard 
  Range := WordApp.Documents.Item(1).Range(WordApp.Documents.Item 
    (1).Paragraphs.Item(3).Range.Start); 
  Range.Paste; 
  for i := 1 to 3 do WordApp.Documents.Item(1).Paragraphs.Add; 
end; 

{Don't forget to close Excel and Word by your program termination: 
Excel und Word anschliessend wieder schliessen:} 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if not VarIsEmpty(XLApp) then 
  begin 
    XLApp.DisplayAlerts := False;  // Discard unsaved files... 
    XLApp.Quit; 
  end; 
  if not VarIsEmpty(WordApp) then 
  begin 
    WordApp.Documents.Item(1).Close(wdDoNotSaveChanges); 
    WordApp.Quit; 
  end; 
end;





Похожие по теме исходники

Экспорт баз данных в Excel

Transfer Tables Excel-Access

Excel Films Lister

Work with Word and Excel

 

Circle Word Wrap

Word List 1.5

Word Search in Text

Конвертер Word - HTML

 

Create document in Word

Golden Passwords

Grid Word Highlight




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram