Foxtable(狐表)用户栏目专家坐堂 → [求助]导入文件到窗口中的table的代码指导


  共有1958人关注过本帖平板打印复制链接

主题:[求助]导入文件到窗口中的table的代码指导

帅哥哟,离线,有人找我吗?
huangfanzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]导入文件到窗口中的table的代码指导  发帖心情 Post By:2018/1/16 14:51:00 [只看该作者]

项目中有个窗口,窗口中有个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



 回到顶部