VB操作Excel排序

[yy0481]

我有一个Excel里面有三列数据。我想通过VB实现排序功能。排序要求按第一列排序，如果第一列有相同值就按第二列排序。排序用升序。我知道Excel用这个很简单就能实现。但是我想通过VB实现，能不能？

[of123]

多种方法可实现。比较省事的是利用 Excel 的宏。 1 在 Excel 中记录宏，并保存。通过 VB 调用此宏。 2 在 Excel 中记录宏，将其保存为 VB 代码，通过 Excel 对象执行。

[yy0481]

引用 楼主 yy0481 的回复:

我有一个Excel里面有三列数据。我想通过VB实现排序功能。排序要求按第一列排序，如果第一列有相同值就按第二列排序。排序用升序。我知道Excel用这个很简单就能实现。但是我想通过VB实现，能不能？

能不能再VB里面实现 这个是我打开的代码 Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls", , ReadOnly:=True) Set xlSheet = xlBook.Worksheets(1)