Foxtable(狐表)用户栏目专家坐堂 → [求助]想要实现导入Excel文件,


  共有3901人关注过本帖树形打印复制链接

主题:[求助]想要实现导入Excel文件,

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


加好友 发短信
等级:婴狐 帖子:6 积分:134 威望:0 精华:0 注册:2020/9/8 10:49:00
[求助]想要实现导入Excel文件,  发帖心情 Post By:2020/9/8 14:29:00 [显示全部帖子]

点想要实现点击按钮导入Excel数据,可点击后没任何反应图片点击可在新窗口打开查看是发生了什么

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

   Dim mg As New Merger
    mg.Format = "excel" '指定格式
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "sheet1"
    mg.DataTableName = "顺丰数据明细"
    mg.Merge()
End If

 回到顶部