excel表格内容如下
快递公司 快递单号 寄件日期 寄件人姓名 寄件人电话
申通     123456    20131010  王二小    1102
圆通     3217876   20100909  王小二    1002
申通     8877221   20121212  王八蛋    10001

我用VB程序将表格导入之后，想对其进行筛选再重新导出。
例如 我需要筛选出 快递公司 全部为 申通 的数据。

代码改怎么弄呢？
目前我是使用ADO方式读取的excel

是不是修改此句代码就可以？
rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic
可是不知道该如何修改。。求指教。不甚感谢。

[ 本帖最后由 zyh1031 于 2013-7-27 09:44 编辑 ]

是使用OLE方式导入的

sFile = CommonDialog1.FileName
    Text1.Text = sFile
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile & ";Extended Properties=""Excel 8.0;HDR=YES;"""
    cn.CursorLocation = adUseClient
    rs.Open "SELECT * FROM [Sheet1$A1:C10002]", cn, adOpenStatic
    Set DataGrid1.DataSource = rs

现在困惑我的就是
如何将符合条件的excel表里某几行数据单独显示出来

不知道我这个方法可行吗
哪种筛选方法最简单快捷就用哪种吧

好吧。。。没想到我居然2到如此地步了

感谢版主。。。。

呵呵 现在用VB的人太少了 有人回复真是难得了。。

现在有个问题 就是导出excel的时候 为什么表头无法导出呢。。



代码如下：

   Dim ex As Object
    Dim i As Integer
    Dim j As Integer
    Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Set xlapp = CreateObject("Excel.Application")
    xlapp.Visible = True
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
    
    For i = 0 To DataGrid1.Columns.Count - 1
    For j = 0 To DataGrid1.ApproxCount - 1
    
    DataGrid1.Col = i
    On Error Resume Next
    DataGrid1.Row = j
   
    xlsheet.Cells(j + 1, i + 1) = DataGrid1.Columns.Item(i).Text
    Next j
    Next i

斑竹 想请问下
为什么我datagrid导出到excel后 表头的内容却无法导出呢？

额 斑竹没看清楚呀。。
我说的是导出excel的时候没有头呀

斑竹 fields(index).name 是Recordset 的属性吧
可我没用到Recordset 。。我没有连接数据库。。就是直接读取的excel文件

真是 太感谢你了 朋友
因为很久没来论坛。发帖的时候也没看见哪里有点数。。。
所以着急就发出去了。。
现在想追加点数也没办法了。。。真心不是在乎点数

可能因为是没有点数的原因。。
我找不到结贴的按钮