Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教，如何获取excle表格所有sheet的名称


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

主题：求教，如何获取excle表格所有sheet的名称
帅哥哟，离线，有人找我吗？
flashwing2
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：3 积分：110 威望：0 精华：0 注册：2017/2/25 20:58:00 		求教，如何获取excle表格所有sheet的名称  发帖心情 Post By：2017/3/11 23:24:00 [只看该作者]

我刚刚开始学习foxtable，觉得很好用，正在一遍学习一遍尝试做一个项目。
目前写了一段代码，希望从excle文件导入数据，具体如下
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
Dim mg As New Merger
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    mg.SourcePath = dlg.FileName '导入文件的目录为通过OpenFileDialog获取的目录和文件名
     mg.Format ="excel"'导入的格式为excel
    mg.SourceTableName = "测试" '指定要合并的表
    mg.DataTableName = "测试" '指定接收数据的表
    mg.Merge() '开始合并
End If

这是我目前的代码，我希望对
mg.SourceTableName = "测试" '指定要合并的表
    mg.DataTableName = "测试" '指定接收数据的表
进行修改，成为获取已经选择的EXCEL文件的所有sheet的名称，在导入对应的DataTable中，请问如何实现呢
 回到顶部
帅哥哟，离线，有人找我吗？
flashwing2
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：3 积分：110 威望：0 精华：0 注册：2017/2/25 20:58:00 		  发帖心情 Post By：2017/3/12 19:15:00 [只看该作者]

呃，想了很久，还是没有想到好的解决办法

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/12 19:25:00 [只看该作者]

参考这里

 

http://www.foxtable.com/webhelp/scr/1150.htm

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    For Each s As XLS.Sheet In book.Sheets
        msgbox(s.Name)
    Next
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询