如何在EXCEL中对行列进行控制(100分)

D

djzxljb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #1

在Delphi6中好像不容易获取行列
ExcelApplication.ActiveSheet.Columns[1]这种对行列的引用是不被认可的，以前的文章中
都说该方法能操作，是不是在Delphi5中的原因
我用ExcelApplication.ActiveSheet.Range['A1','A1'].columns.delete(xlShiftToUp)才能
删除
请问有没有办法方便的对行列进行操作

 

A

aaab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #2

没问题。
我用原生com对象实现的
详情请参考excel help--excel vb language ref(custom 安装office带帮助)

大意如下：
1.EXCELAPP=createobject(EXCEL.APP)
2 EXCELAPP.WORKSHEETS(1).ACTIVE
2.EXCEL.CELLS(行，列)=即可

 

D

djzxljb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #3

我已经找到答案
ExcelApplication1.Activesheet.Range['A1','A1'].AllRow.delete
//删除一行
ExcelApplication1.Activesheet.Range['A1','A1'].AllRow.Insert(xlToUp)
//Insert a Row which will move up to current row

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #4

看一下VBA的幫助啊，我就是這樣子的

 

D

djzxljb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-11

• #5

多人接受答案了。