操作 ExcelApplication1 的问题？急！(50分)

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #1

我程序用了 TExcelApplication、TExcelWorkbook、TExcelWorksheet来操作Excel，对单元格的写数据没有问题，但我要设置一行单元格的格式或者Copy一行就不行了

ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 100; －－ 这句根本不能编译？

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #2

RowHeight换成Height

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #3

to Avalon： ExcelApplication1.ActiveSheet.Rows[2]
这样就提示不能编译的，即ActiveSheet没有Rows属性

 

S

SiWeiLiuLang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #4

ExcelWorksheet1.Cells.Item[1,2]

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #5

我先要设置一行字体并合并，然后Copy这一行，在这行下面粘贴 10行，怎样操作？

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #6

(ExcelApplication1.ActiveSheet as ExcelWorksheet).Cells.Item[5,6].RowHeight := 100;

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #7

(ExcelApplication1.ActiveSheet as ExcelWorksheet).Rows.Item[11,EmptyParam].RowHeight := 100;

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #8

怎么Copy呢？

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #9

我先要设置一行字体并合并，然后Copy这一行，在这行下面粘贴 10行，怎样操作？

这个你在VB里录制一个宏然后转换过来即可

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #10

to Avalon： 能QQ联系吗？比较急

我的是 28261363！

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #11

Rows("18:18&quot.Select
Selection.Copy
以上是VBA宏代码，那个Selection在delphi中是什么？

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #12

selecttion就是range 或者item[...]
vba中的代碼一般是寫activesheet,selection等等,但是在delphi中一般不會這麼用.
如有疑問,可以qq聯繫!!

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #13

To eastweast ： 你QQ是多少阿
我是 28261363 验证 dfw

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #14

Range("F22&quot.Select
ActiveSheet.Pictures.Insert( _
"C:/Documents and Settings/Administrator/My Documents/My Pictures/样品.jpg&quot. _
Select

以上是插入图片的VBA代码，但在Delphi中怎么访问 Pictures 呢？

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #15

procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open ('C:/111.xls',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);


(ExcelApplication1.ActiveSheet as ExcelWorksheet).Cells.Item[1,'A'].Copy;
(ExcelApplication1.ActiveSheet as ExcelWorksheet).Cells.Item[2,'A'].PasteSpecial;
(ExcelApplication1.ActiveSheet as ExcelWorksheet).Cells.Item[3,'A'].PasteSpecial;
(ExcelApplication1.ActiveSheet as ExcelWorksheet).Cells.Item[4,'A'].PasteSpecial;
ExcelApplication1.Save;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end;

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #16

TO Avalon ： 谢了，Copy功能测试通过！
再麻烦你一下，怎样插入一个图片？

Range("F22&quot.Select
ActiveSheet.Pictures.Insert( _
"C:/Documents and Settings/Administrator/My Documents/My Pictures/样品.jpg&quot. _
Select

以上是插入图片的VBA代码，但在Delphi中怎么访问 Pictures 呢？

 

S

sqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #17

大家帮帮忙我也想知道怎么插入图片.

 

J

janixd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-17

• #18

图片插入可以copy 先复制图片到剪贴板 然后用RANG定位要粘贴的位置 然后copy代码如下:
v:= CreateOleObject('Excel.Application');
Sheet:= v.Workbooks[1].WorkSheets[1];
Sheet.Range['A1','b1'].Select;
Sheet.Paste;
复制到剪贴板可以用CopyToClipboardBitmap;

 

S

SeekMyself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-17

• #19

用CopyToClipboardBitmap 怎样把 D:/1.jpg 复制到剪贴板？怎样的格式？

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-18

• #20

楼主 一次全提出吧 别和挤牙膏一样
I 服了 U 啊 []

procedure TForm1.Button1Click(Sender: TObject);
const
msoFalse = $00000000;
msoCTrue = $00000001;

begin
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open ('C:/111.xls',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);

(ExcelApplication1.ActiveSheet as ExcelWorksheet).Shapes.AddPicture(
'C:/111.bmp',
msoFalse,
msoCTrue,
10, // Left
10, // Top
300, // Width
300); // Height


ExcelApplication1.Save;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end;