以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于导入Excel表格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51229)

--  作者:lesliecheung912
--  发布时间:2014/5/22 11:35:00
--  [求助]关于导入Excel表格

[此贴子已经被作者于2014-5-28 17:52:43编辑过]

--  作者:Bin
--  发布时间:2014/5/22 11:37:00
--  
http://www.foxtable.com/help/topics/0685.htm

表名改为窗口表名即可

或者


--  作者:lesliecheung912
--  发布时间:2014/5/22 11:43:00
--  
上面例子中,要导入的表名为什么都得是在代码中定死的啊,我想要出现一个openfiledialog然后去选择表,应该怎么做呢?您说的表名改为窗口名是指例子中所说的”指定接收数据的表“
--  作者:Bin
--  发布时间:2014/5/22 11:44:00
--  
openfiledialog 看法给你的帮助里的示例9

是的

--  作者:lesliecheung912
--  发布时间:2014/5/22 11:55:00
--  

[此贴子已经被作者于2014-5-28 17:53:05编辑过]

--  作者:Bin
--  发布时间:2014/5/22 11:57:00
--  

示例七

合并Excel文件:

Dim mg As New Merger
mg
.SourcePath = "c:\\data\\销售管理.xls"
mg
.Format = "excel" \'指定格式
mg
.SourceTableName = "订单" \'指定要合并的表
mg
.DataTableName = "订单" \'指定接收数据的表
mg
.Merge() \'开始合并


看帮助要仔细




Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
       mg.Format = "excel" \'指定格式
        mg.SourcePath = fl
        mg.SourceTableName = "人力资源管理系统"
        mg.DataTableName = "人力资源管理系统"
        mg.Merge()
    Next
End If

--  作者:lesliecheung912
--  发布时间:2014/5/22 12:02:00
--  
嗯,好的,太不仔细了,谢谢老师
那个窗口名是窗口属性中的窗口标题呢还是窗口管理中的那个窗口名?怎么两个试了试都不行啊,还是提示没有名字叫主窗口的datatable控件

--  作者:lesliecheung912
--  发布时间:2014/5/22 12:04:00
--  
代码中指定要合并的表 ”应该是什么呢?
--  作者:Bin
--  发布时间:2014/5/22 12:05:00
--  
问这个问题,说明你从来就没仔细看过帮助.


"窗口_控件名"

例如 "窗口1_Table1"

新手建议你先按部就班认真看一遍帮助会比较好.

--  作者:lesliecheung912
--  发布时间:2014/5/22 12:08:00
--  
冤枉啊,窗口名_控件名我也试过了,也不对啊