| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- EXCEL导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104168) |
| -- 作者：ming8604 -- 发布时间：2017/7/24 18:35:00 -- EXCEL导入 本人对于代码不是很熟，但是可以看懂一点，现想修改以下代码。把自动导入改成手动指定导入。 看了帮助修改也不成功，麻烦大神帮一下，谢谢。 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 |
| -- 作者：有点蓝 -- 发布时间：2017/7/24 20:09:00 -- Dim dlg As New OpenFileDialog dlg.MultiSelect = True dlg.Filter= "Excel文件|*.xls;*.xlsx" If dlg.ShowDialog = DialogResult.OK Then For Each file As String In dlg.FileNames 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 NextEnd If |
| -- 作者：ming8604 -- 发布时间：2017/7/26 17:17:00 -- 请问，重复导入同一个excel文件，为什么会没反应？ 应该多次导入时候，会出现多次一样的订单才对啊。
|
| -- 作者：有点甜 -- 发布时间：2017/7/26 17:24:00 -- 你执行下面的代码，有什么问题？
Dim dlg As New OpenFileDialog |