| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求教，如何获取excle表格所有sheet的名称 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97418) |
| -- 作者：flashwing2 -- 发布时间：2017/3/11 23:24:00 -- 求教，如何获取excle表格所有sheet的名称 我刚刚开始学习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 -- 发布时间：2017/3/12 19:15:00 -- 呃，想了很久，还是没有想到好的解决办法 |
| -- 作者：有点色 -- 发布时间：2017/3/12 19:25:00 -- 参考这里
http://www.foxtable.com/webhelp/scr/1150.htm
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog |