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"这个代码该怎么写？
加好友 
发短信
Post By：2019/11/22 9:54:00 [只看该作者]
