求用VB语言编写读取EXCEL单元格的帅选排序操作，并能进行对其判断正误及其评分的功能，本人将感激不尽！
求用VB语言编写读取EXCEL单元格的帅选排序操作，并能进行对其判断正误及其评分的功能，本人将感激不尽！排序如果按照降序排列，有标题行，筛选就选最大的前10个，如果这两个操作每对一个就加一分，否则不加没有任何操作，跪求代码！ --------------------编程问答-------------------- 贴出Excel表具体格式。 --------------------编程问答-------------------- 在EXCEL表格中随便建几个数据就可以，不需要格式，只要很简单很简单的代码就行，麻烦大侠帮帮忙！ --------------------编程问答-------------------- [em:27:]麻烦大侠帮帮忙帮我写个排序筛选的代码，不需要很复杂，木有EXCEL表格格式，随便的建几个数就可以，如果好了就发给我吧，在线等[em:18:]谢谢啦！ --------------------编程问答-------------------- VB操作excell,应该不难吧，以前搞过一个，你自己摆渡一下就可以了 --------------------编程问答-------------------- 百度不到啊，你以前搞过的那个现在还有吗？是不难，可是我是VB小白，不会啊，烦的也不想学了，帮忙找找吧！小弟在这里提前谢过了 --------------------编程问答-------------------- 先按正确的操作得到一个操作后的excel,然后与所要判断的excel进行比较，一致就对了~~~~ --------------------编程问答-------------------- 这种态度不行呢，上来就要代码，你要不会的话，给你代码有啥用呢 --------------------编程问答-------------------- 我初学者……有代码的，可是不对调不出来，我本来就不懂VB，不知道哪错了，Columns("A1:A10").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
这个是VBA编辑器的代码，如果加上评分的话，假如说用If then语句，为什么加不 进去啊？非诚勿扰^^^^ --------------------编程问答-------------------- Public filepath As String
Private Sub alldata_Click()
Dim adoCnn As New ADODB.Connection
Dim adoRst As New ADODB.Recordset
MSHFlexGrid1.FixedCols = 0 '添加MSHFlexGrid1控件，并去掉MSHFlexGrid最前面的列，就是最前面银灰色没数据的那列
On Error GoTo 100
filepath = Text1.Text '在text1中输入excel文件的路径
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & filepath & ";Extended Properties='Excel 8.0;HDR=Yes'"
adoRst.Open "Select * From [sheet1$] order by time ", adoCnn, adOpenKeyset, adLockOptimistic
'sql语句的用法，*可以改为你要选取的列名称
'例如： Select 标题1 From [sheet1$] where sign=1 order by time 在表[sheet1$]中选取“标题1”中符合“sign=1”条件的所有内容并按时间排序（升序）
Set Me.MSHFlexGrid1.DataSource = adoRst
100:
If frmDataEnv.Text1.Text = "" Then MsgBox ("未选取excel文件")
End Sub --------------------编程问答-------------------- 楼上的是VB吗？怎么看怎么不像……
补充：VB , 基础类
