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 编辑 ]

你用vb程序是如何导入Excel表格的？是用OLE控件，还是用自动化的方式，或者其它什么方法导入的？你导入的方式不同，筛选的方法也不同。希望你描述清楚，最好贴上你导入的代码上来。

收到的鲜花

• zyh1031 于 2013-07-30 21:11 送鲜花  3朵   附言：我很赞同

是使用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表里某几行数据单独显示出来

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

rs.Open "SELECT * FROM [Sheet1$A1:C10002] where 快递公司='申通'", cn, adOpenStatic

应该行吧

收到的鲜花

• zyh1031 于 2013-07-30 21:44 送鲜花  3朵   附言：谢谢斑竹

好吧。。。没想到我居然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后 表头的内容却无法导出呢？

不是已经用数据库的方式打开了么，直接用数据库的方式读取数据不就行了？
【HDR=YES】而且，“有头的啊！”