Foxtable(狐表)用户栏目专家坐堂 → 合并数据,让用户自行选择工作簿里的某个工作表


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

主题:合并数据,让用户自行选择工作簿里的某个工作表

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


加好友 发短信
等级:九尾狐 帖子:2356 积分:16198 威望:0 精华:0 注册:2013/9/1 8:09:00
合并数据,让用户自行选择工作簿里的某个工作表  发帖心情 Post By:2018/1/2 16:48:00 [只看该作者]

合并数据,如何才能做到让用户自行选择excel的工作表,类似如系统自带的

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180102164427.png
图片点击可在新窗口打开查看

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xlsx;*.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.FieldMaps.Add("费率(‰)","费率")
    mg.Merge()
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/2 17:06:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2356 积分:16198 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2018/1/2 22:00:00 [只看该作者]

恩恩,谢谢甜老师!!

 回到顶部