[转]VB.net导EXCEL 实用

PS：另附 SELECT 方法 

        Dim ds As DataSet = TestGetEXCELFile()

        Dim dvIsProposerY As New DataView()
        dvIsProposerY.Table = ds.Tables(0)
        dvIsProposerY.RowFilter = "[Partner Code]='608088'"

        Dim dt As DataTable = dvIsProposerY.ToTable()