你好，我现在在做导入数据部分遇到个问题，希望各位大大能帮忙看下，谢谢！
我要实现得是选择文件导入数据，同时还能让设定的自动编码生效。
我把原先新增行后自动生成日期修改到了数据内容行变动时候则写入当天日期后，可以实现导入数据自动编码了。
如果固定路径功能都OK，但是改成选择文件就不行，请问要怎么处理。 下面是写的导入按钮的代码。
Dim dlg As New OpenFileDialog
dlg.Filter= "EXCEL文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你要导入的表为:" & dlg.FileName,"提示")
Dim Book As New XLS.Book("dlg.filename")
Dim Sheet As XLS.Sheet= Book.Sheets(0)
Tables("表A").StopRedraw()
Dim nms() As String = {"序号","日期","内容"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("表A").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("表A").ResumeRedraw()
End If
加好友 
发短信
Post By：2018/9/8 22:58:00 [只看该作者]
