好库网 好库网首页 | 我的好库
VB爱好者

VB实现Excel按列或行排序

发布者:vbfans
发布日期:2011/5/20 21:10:35   更新日期:2011/5/20 21:10:35
阅读次数:5722
评分:4.80
介绍:利用excel automation来实现排序,按列或者按行排序,升序或降序都可以。
正文:

利用excel automation来实现排序,按列或者按行排序,升序或降序都可以。

首先我们看一下按行排序:

 

Const xlAscending = 1
Const xlNo = 2
Const xlSortRows = 2

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\okbase.net\Desktop\Docs1.xls")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(1,1).activate

Set objRange = objExcel.ActiveCell.EntireRow
objRange.Sort objRange, xlAscending, , , , , , xlNo, , , xlSortRows
set objExcel=nothing

下面是按列排序的代码:

 

Const xlAscending = 1  '1为升序,2为降序
Const xlYes = 1

Set objExcel = CreateObject("Excel.Application")  '建立Excel对象
objExcel.Visible = True  '使excel可见

' 打开excel文档
Set objWorkbook = objExcel.Workbooks.Open("C:\Documents and Settings\okbase.net\Desktop\Docs1.xls")

Set objWorksheet = objWorkbook.Worksheets(1) '选择工作表,基于索引1,2,3 …
Set objRange = objWorksheet.UsedRange  '已经使用的范围
Set objRange2 = objExcel.Range("A1")   ' 选择需要排序的列

objRange.Sort objRange2, xlAscending, , , , , , xlYes
set objExcel=nothing

 

 

 


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。