以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  这个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143370)

--  作者：ygg8310 --  发布时间：2019/11/22 9:54:00 --  这个问题 For Each file As String In filesys .GetFiles("D:\\测试")     If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then         Dim  Book As New XLS.Book(file)         Dim  Sheet As XLS.Sheet = Book.Sheets(0)         \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致         Dim nms() As  String = {"产品","物料","编号","客户","公司名称"}         \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题         For n As Integer = 1 To Sheet.Rows.Count -1             Dim bh0 As String = sheet(n,0).Text             Dim bh1 As String = sheet(n,1).Text             Dim bh2 As String = sheet(n,2).Text             Dim bh3 As String = sheet(n,3).Text      问题是这样的，如果我只想提取产品为"PD01"的那一部分，即"bh0" = "PD01"这个代码该怎么写？

--  作者：狐狸爸爸 --  发布时间：2019/11/22 10:20:00 --   For n As Integer = 1 To Sheet.Rows.Count -1             Dim bh0 As String = sheet(n,0).Text             If bh0 <> "PD01" Then Continue for             End If             Dim bh1 As String = sheet(n,1).Text             Dim bh2 As String = sheet(n,2).Text             Dim bh3 As String = sheet(n,3).Text