项目中有个窗口,窗口中有个table表与按钮,在按钮中有以下代码,希望将EXCEL文件的Sheet1表导入到这个table中,但执行不成功,请老师看看如何修正
另外,如果EXCEL文件中有多个Sheet表,能让用户选择某个Sheet表吗?而不是非要在代码中指定。
谢谢!
Dim dlg As New OpenFileDialog
dlg.Filter= "EXCEL文件|*.xlsx" '设置筛选器
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel" '指定格式
mg.SourceTableName = "Sheet1"
mg.DataTableName = e.Form.Controls("Table1").Name
mg.Merge()
Next
End If