如何将Excel中最后一列内容相同的所有行提取保存到文本文件中
向各位VB达人请教：如何用VB编写程序将Excel中最后一列内容相同的所有行提取保存到文本文件中？[color=#0000FF][/color]

十分谢谢！

……在线等……

[解决办法]

VB code

'先引用Microsoft Excell 11.0 Object liraryOption ExplicitPrivate Sub Command1_Click()    Dim xlExcel As New Excel.Application    Dim xlBook As New Excel.Workbook    Dim xlSheet As New Excel.Worksheet    Dim iRow As Long        xlExcel.Workbooks.Open "D:\Book1.xls"    Set xlBook = xlExcel.Workbooks(1)    xlBook.Sheets(1).Select        For iRow = 1 To xlExcel.ActiveSheet.UsedRange.Rows.Count        '将第F列（即第6列）的所有数据导入到List1中。要写文件就很简单了。        List1.AddItem xlBook.Worksheets(1).Cells(iRow, 6)    Next        xlBook.Close    xlExcel.Quit    Set xlSheet = Nothing    Set xlBook = Nothing    Set xlExcel = Nothing    End Sub