delphi对Excel排序问题!(困扰好久了) ( 积分: 100 )

K

kwayux

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-22

• #1

已经把排序在Excel中录好了宏
Sub 宏2()

Selection.Sort Key1:=Range("A2&quot, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub

但不知怎么转换成delphi语句。请各位指教一下，谢谢！！

 

K

kwayux

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-22

• #2

已经把排序在Excel中录好了宏
Sub 宏2()

Selection.Sort Key1:=Range("A2&quot, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub

但不知怎么转换成delphi语句。请各位指教一下，谢谢！！

 

Z

zhuyi111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-22

• #3

其实你可以再DELPHI中调用这个宏就可以了吗
var excelapp: variant;
excelapp.run('宏2')
就可以了

 

K

kwayux

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-22

• #4

zhuyi111,你的这种解决方法也不错!
可是我怎么把这个宏写到客户的机器上呢?

 

V

vaseman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-16

• #5

我也同样遇到这个问题:
myexcel.range['A1','X6'].Sort.key1:=myexcel.Range('E1',Order1:=xlDescending);
在delphi中使用上述语句进行排序,出错!!!

 

Z

zdr690929

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-16

• #6

在数据导出到EXCEL前，对数据先进行排序，然后输入到EXCE，不就行了？