向各位VB达人请教:如何用VB编写程序将Excel中最后一列内容相同的所有行提取保存到文本文件中?十分谢谢!……在线等……

解决方案 »

  1.   

    '先引用Microsoft Excell 11.0 Object lirary
    Option 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
      

  2.   

    1 把 Excel 当作外部数据库来查询。2 用记录集的 GetString 方法得到文本内容。3 写入文本文件。
      

  3.   

    首先,谢谢各位的回答。
    谢谢二楼“chenjl1031”大哥,我用你写的代码编译后出现写问题。
    我主要想用VB编写一个小的exe文件,有两个按钮,一个按钮是选择需要处理的excel原文件;另一个按钮的功能是执行“Excel中最后一列内容相同的所有行提取保存到文本文件中”,在生成的所有文件中都保留原文件的第一行。
    例如:
    Name Tag Description Type Unit SysID
    TEST01 W1 TEST1 int N AGM
    TEST02 W2 TEST2 str Y AGM
    TEST03 W3 TEST3 int N AGM