本人想按条件导入Excel 数据到 listbox中，不知代码怎样写？ 求大神帮助！

条件如下（VB操作）：
1、GP9列筛选非空项
2、筛选后编号列为升序排序
3、提取Orders列的后3位数导入到VB的listbox

版主好！

本人在读书时自学了一点VB，现因工作经常要大量处理上述的Excel文件，写了以下代码，只能导入具体的单元格，不知上述的条件要怎么写代码？还请版主指教，感谢！感谢！！


Private Sub Command1_Click()
On Error GoTo err
Dim Xls, Xlsbook, Xlssheet
    Set Xls = CreateObject("Excel.Application")
    Xls.Visible = False '
    CommonDialog1.ShowOpen
    Set Xlsbook = Xls.Workbooks.Open(CommonDialog1.FileName) '打开共公对话框，按“取消”也会导入上次导入的文件，不知是什么原因？也请版主帮忙修改，感谢了
    Set Xlssheet = Xlsbook.Worksheets(1) '
    Xlssheet.Activate '
    List1.AddItem Xlssheet.Cells(4, 2) '只会导入具体的单元格，按条件不知要怎么写代码？还请帮忙
    Xls.Quit
    Set Xlssheet = Nothing
    Set Xlsbook = Nothing
    Set Xls = Nothing
   
err:
Exit Sub
End Sub

感谢！

提示以下错误，不知是什么原因？

感谢版主回复！版主讲得太对了，很多东西都还给老师了，知识真的是用时方恨少呀！

但还要以下的第2个条件：“编号列为升序排序”时再导入，现导入的顺序与我想要的不一样，还请版主再指教？ 感谢了。

条件如下（VB操作）：
1、GP9列筛选非空项
2、筛选后编号列为升序排序
3、提取Orders列的后3位数导入到VB的listbox


现导入的顺序与我想要的不一样，如下图：



PS：
 if Xlssheet.Cells(i, 7)<>"" then List1.AddItem right(Xlssheet.Cells(i, 2) ,3)

[此贴子已经被作者于2017-7-26 23:56编辑过]

找不到呀？是不是要安装的？就像是office excel 的引用一样。

已引用，出现以下错误提示，不知是否安装的问题 ？。。。。

我是菜鸟，这代码看不懂

我是说要按“编号”列升序的顺序来导入数据，就是如下图所示的顺序，但不是在excel 操作，而是要在VB操作。这代码感觉是用导入的数据来排序。。。