Excel文件复制粘贴

1. use ComObj;
3. procedure TFm_main.BitBtn1Click(Sender: TObject);
4. var SourceFile: string;
5.   Sourcexlapp, Sourcexlsheet, xlapp, xlsheet: variant;
6.   RowNum, RowJ, Cols, i: integer;
7. begin
8.   try
9.     Tbutton(sender).Enabled := false;
10.     if trim(edit1.Text) = '' then
11.     begin
12.       if OpenDialog1.Execute then
13.         edit1.Text := OpenDialog1.FileName;
14.     end;
15.     RowNum := strtoint(trim(MaskEdit1.Text));
16.     Cols := strtoint(trim(MaskEdit3.Text));
17.     screen.Cursor := crHourGlass;
18.     SourceFile := trim(edit1.Text);
19.     try
20.       Sourcexlapp := createoleobject('excel.application');
21.     except
22.       showmessage('not found excel in your system, so can not create file!');
23.       exit;
24.     end;
25.     Sourcexlapp.Visible := false;
26.     Sourcexlapp.workbooks.open(SourceFile);
27.     Sourcexlsheet := Sourcexlapp.ACTIVESHEET;
29.     try
30.       xlapp := createoleobject('excel.application');
31.     except
32.       showmessage('not found excel in your system, so can not create file!');
33.       exit;
34.     end;
35.     xlapp.workbooks.add; //添加新工作簿
36.     xlapp.visible := true;
37.     xlsheet := xlapp.activesheet;
39.     for i := 1 to Cols do
40.     begin
41.       xlsheet.columns[i].columnwidth := Sourcexlsheet.columns[i].columnwidth;
42.     end;
43.     RowJ := 1; i := RowNum + 1;
44.     while i <= 2000 do
45.     begin
46.       if length(trim(Sourcexlsheet.cells[i, 1])) = 0 then break;
47.     //copy title
48.       Sourcexlapp.Range[Sourcexlsheet.cells[1, 1], Sourcexlsheet.cells[RowNum, Cols]].select;
49.       Sourcexlapp.selection.copy;
51.       xlapp.Range[xlsheet.cells[Rowj, 1], xlsheet.cells[Rowj, 1]].select;
52.       xlsheet.Paste;
54.     //copy data
55.       inc(Rowj, RowNum);
56.       Sourcexlapp.Range[Sourcexlsheet.cells[i, 1], Sourcexlsheet.cells[i, Cols]].select;
57.       Sourcexlapp.selection.copy;
59.       xlapp.Range[xlsheet.cells[Rowj, 1], xlsheet.cells[Rowj, 1]].select;
60.       xlsheet.Paste;
61.       inc(Rowj, 2);
62.       inc(i);
63.     end;
64.     try
65.       Sourcexlapp.Quit;
66.     except
67.     end;
68.     VarClear(Sourcexlapp);
69.     VarClear(Sourcexlsheet);
70.     VarClear(xlapp);
71.     VarClear(xlsheet);
72.   finally
73.     screen.Cursor := crDefault;
74.     Tbutton(sender).Enabled := true;
75.   end;
76. end;
78. Word文档  use ComObj,WordXP;
80. procedure Pub_TChartToWord(F_TChart: TChart);
81. var i: integer;
82.   wordapp: variant;
83. begin
84.   if F_TChart = nil then exit;
85.   try
86.     try
87.       wordapp := createoleobject('word.application');
88.     except
89.       showmessage('not found word in your system, so can not create file!');
90.       exit;
91.     end;
92.     wordapp.visible := true;
93.     wordapp.Documents.Add(DocumentType := wdNewBlankDocument);
94.     F_TChart.CopyToClipboardBitmap;
95.     wordapp.Selection.Paste;
96.     for i := 0 to F_TChart.Series[0].Count - 1 do
97.     begin
98.       wordapp.Selection.TypeParagraph;
99.       wordapp.Selection.TypeText(F_TChart.Series[0].XLabel[i] + '  ' + FloatToStr(F_TChart.Series[0].YValue[i]));
100.     end;
102.     wordapp.Selection.TypeParagraph;
103.     wordapp.Selection.TypeText('打印时间: ' + DateTimeToStr(now));
104.   finally
105.     varclear(wordapp);
106.   end;
107. end;