老师好：
我从电脑文件中合并文件中内容到系统中，这个代码我已经通过帮助文件中写好。
但是，这个导入只能制定文件路径，我如果想打开OpenFileDialog文件对话框，选定文件改如何改写。？谢谢
If FileSys.FileExists("d:\入库订单\订单.xls") Then
Dim Book As New XLS.Book("d:\入库订单\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("入库主表.入库明细").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"料号","数量"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("入库主表.入库明细").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("入库主表.入库明细").ResumeRedraw()
FileSys.MoveFile("d:\入库订单\订单.xls", "d:\入库订单\已导入\订单.xls")
加好友 
发短信
Post By：2014/3/4 9:49:00 [只看该作者]
