如何将excel表插入word文档？(100分)

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #1

[]这个问题已经困扰我多时了，哪位大虾帮帮我！

 

W

wghmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #2

请问你会录制宏吗？根据录制的宏的BASIC代码，再嵌入到OLE中去！

 

S

shiwee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #3

在word文档中
点击菜单"插入"--"文件",然后选择就行了.

 

Y

yifeibbs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #4

在excel中选择要复制的区域，并复制！
打开word，在编辑中找到“选择性粘贴”，出现一个对话框，选择excel项，打确定！

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #5

可是要通过delphi编程实现

 

S

shiwee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #6

找OLE控件.
Microsoft Excel 9.0 Object Library

 

W

wghmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #7

点击录制宏，
然后 在word文档中点击菜单"插入"--"文件".
停止录制宏。然后打开编辑宏，就能看到宏的源代码，然后在DELPHI中根据宏的源代码去
编定Delphi代码就不用我说了吧！！

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #8

to wghmy
不瞒您说我是个新手，刚开始学delphi这是我们领导交代的任务，我快要急死了，请问如何选择excel范围，最好有源码，拜托了！

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #9

to wghmy
能给我一个完整的源码吗？如分不够可以再加，我的邮箱：[green]sunyp@slof.com[/green]

 

S

SPYSKY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #10

怎樣啟動Word和Excel我就不說了,
//復制Excel
var sheets:variant;
begin
sheets:=ExcelApplication1.sheets;
sheets.ITEm['Delphi Data'].ActivaTE;
sheets.ITEm['Delphi Data'].Range['A1:A10'].Select;
sheets.ITEm['Delphi Data'].UsedRange.Copy;
end;
//粘貼到Word
Var Wordrange:variant;
begin
Wordrange:=WordDocument1.Range;
WordRange.PasTE;
end;

 

W

wghmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #11

不好意思，今天不能给你源代码了，因为我只是以前那家公司做过类似的工作，
源代码还在家里面呢，而且是用C++ Builder，不过原理都差不多。你看明天行
不？

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #12

to wghmy
可以，非常感谢！

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #13

to spysky
谢谢！

 

大

大鼻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #14

to spysky
当我运行到 sheets.ITEm['Delphi Data'].ActivaTE; 时会出现‘不正确的变量类型’，请问如何解决？是什么原因？

 

S

SPYSKY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #15

這幾天我加家了,不知你有沒有搞掂?

 

S

starpc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #16

user
OleServer,Excel2000,ComObj;
Excel: Variant;
WBk, WS, SheetName,RG: OleVariant;

try
Excel := GetActiveOleObject('Excel.Application');
except
MessageBox(form1.WindowHandle,'请先打开Excel的XLS文件.',myts,MB_OK+MB_ICONINFORMATION);
//Excel := CreateOleObject('Excel.Application');
exit;
end;
wbk:=Excel.ActiveWorkbook;
Excel.Application.Visible:= true;
WS:=Excel.Worksheets[1]



RG:=ws.Range['A1:A10'];
RG.UsedRange.Copy;
end;
//粘貼到Word
Var Wordrange:variant;
begin
Wordrange:=WordDocument1.Range;
WordRange.PasTE;
end;