VB.NET excel 列排序


VB.NET excel 按列排序

今天在VB.NET的项目中需要导出数据到EXCEL,并且还要对VB.NET EXCEL进行列的排序操作(sort),总结了下,把关键代码帖出来,备用下

        Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序
        Dim Xlsbook As Excel.Workbook '定义工作簿
        Dim Xlssheet As Excel.Worksheet '定义工作表

	Xlsbook = Xls.Application.Workbooks.Open("c:\sort.xls")
	Xlssheet = Xlsbook.Sheets(1)

	CType(Xlssheet.Columns(1), Excel.Range).ColumnWidth = 30
	CType(Xlssheet.Columns(2), Excel.Range).ColumnWidth = 60
	CType(Xlssheet.Columns(3), Excel.Range).ColumnWidth = 10

	Xlssheet.UsedRange.Sort(Key1:=Xlssheet.Range(Xlssheet.Cells(1, 3).Address), _
							  Order1:=Excel.XlSortOrder.xlAscending, _
							  Header:=Excel.XlYesNoGuess.xlNo, _
							  Orientation:=Excel.XlSortOrientation.xlSortColumns)

关键的一句VB.NET EXCEL sort 列排序代码就是

Xlssheet.UsedRange.Sort(Key1:=Xlssheet.Range(Xlssheet.Cells(1, 3).Address), _
							  Order1:=Excel.XlSortOrder.xlAscending, _
							  Header:=Excel.XlYesNoGuess.xlNo, _
							  Orientation:=Excel.XlSortOrientation.xlSortColumns)
时间: 2024-10-06 00:53:53

VB.NET excel 列排序的相关文章

Excel小技巧-你是否只知道表格按列排序?其实也可以按行排序!excel数据按行排序

Excel小技巧-你是否只知道表格按列排序?其实也可以按行排序!excel数据按行排序.系统默认情况下,数据都是按列进行排序的,可以通过简单的操作,让其进行按行进行排序. [解决方法,教程视频资料如下] 本教程视频资料来源:http://edu.51cto.com/course/15404.html 完整博客资料:http://blog.51cto.com/13172026/2292179 完整视频资料:http://edu.51cto.com/lecturer/13162026.html 原文

VB操作EXCEL文件大全

Private Sub writeToExcel(strTmp1() As String, colTmp1 As Collection) ' '    Dim tmp1 Dim i1 As Integer, intCol As Integer, intRow As Integer Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Dim st

机房管理系统——VB与Excel的链接

今天在敲机房管理系统--学生查看上机状态的时候发现有一个"导出为excel"的按钮.我去,感情还得跟excel表链接.于是我咬碎了一地小银牙,一个下午都在查询vb与excel 的链接的问题. 我大体的思路是: 首先,在vb中引用Excel类型库. 如图: 其次,声明excel的对象.这里不单单只是声明一个excel表,还要声明工作簿和工作表 如下代码: Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlS

VB读写Excel

近期用excel和VB比較多,就简单的学习了一下VB中对Excel的处理.今天就介绍一些吧. 在VB中要想调用Excel,须要打开VB编程环境“project”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项.因为你的Excel版本号不同,所以这个选项的版本号号也是不同的. 由于EXCEL是以层次结构组织对象的,其对象模型中含有很多不同的对象元素. 第一层:Application对象,即Excel本身: 第二层:workbooks对

VB操作EXCEL文件

用VB操作Excel(VB6.0)(整理) 首先创建Excel对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application 1)显示当前窗口:ExcelID.Visible:=True2)更改Excel标题栏:ExcelID.Caption:='应用程序调用MicrosoftExcel'3)添加新工作簿:ExcelID.WorkBooks.Add4)打开已存在的工作簿:ExcelID.WorkBo

三重for循环实现对二维数组的按列排序(JavaScript)

由C语言联想到的:三重for循环实现对二维数组的按列排序. 自己写的,水平有限,可能存在错误,忘指正~ function circle() { var a = [ [1, 4, 3, 2], [8, 6, 5, 7], [3, 7, 2, 5], [4, 8, 6, 1] ], t = 0, i, j, k; for(i = 0;i < 4;i++) { for(j = 0;j < 3;j++) { for(k = j + 1;k < 4;k++) { if(a[j][i] > a

datagridview 日期列排序

1.datagridview 日期列排序 private void Form1_Load(object sender, EventArgs e) { //方法1 dataGridView1.ColumnHeaderMouseClick += tempView_ColumnHeaderMouseClick; DataTable dt = Create(); dataGridView1.DataSource = dt; //方法2 dataGridView2.SortCompare += dataG

C语言之基本算法42—矩阵转置及按行按列排序

//矩阵转置 按行按列排序 /* ================================================================== 题目:输入m*n矩阵,按行升序排列输出. 输入: 4 3 5 6 2 9 8 1 2 8 7 1 2 3 8 输出: 2 3 4 5 6 1 2 8 8 9 1 2 3 7 8 ================================================================== */ #includ

二维数组的列排序

给出一个二维数组,请将这个二维数组按第i列(i从1开始)排序,如果第i列相同,则对相同的行按第i+1列的元素排序,如果第i+1列的元素也相同,则继续比较第i+2列,以此类推,直到最后一列.如果第i列到最后一列都相同,则按原序排列. 实现以下接口: 输入一个m*n 的整数数组,实现按规则排列,返回排列后的数组. 调用者会保证: 比如输入数组为: 1,2,3 2,3,4 2,3,1 1,3,1 按第二列排序: 输出: 1,2,3 2,3,1 1,3,1 2,3,4 分析:从最后一列开始使用稳定的排序