本人对于代码不是很熟，但是可以看懂一点，现想修改以下代码。把自动导入改成手动指定导入。看了帮助修改也不成功，麻烦大神帮一下，谢谢。
For Each file As String In filesys .GetFiles("c:\XX")
If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If DataTables("POlist").Find("P") Is Nothing Then
Dim dr As DataRow = DataTables("POlist").AddNew
dr("PONo") = sheet(3,5).Text
dr("PODate") = sheet(4,5).text
Dim i As Integer = 10
Do While (sheet(i,0).Text)<>""
Dim dro As DataRow = DataTables("PO").AddNew
i = i + 1
Loop
End If
End If
Next
加好友 
发短信
Post By：2017/7/24 18:35:00 [显示全部帖子]
