专家坐堂-合并表时候，不想把要合并的表名写死Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并表时候，不想把要合并的表名写死  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90694)

--  作者：lml88
--  发布时间：2016/9/20 9:38:00
--  合并表时候，不想把要合并的表名写死
Dim dlg As New OpenFileDialog
dlg.Filter = "Access文件|*.mdb"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "订单" \'指定要合并的表
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If

这段代码中 mg.SourceTableName = "订单" 不想把指定要合并的表写死了，想写成动态的，怎么做

--  作者：有点蓝
--  发布时间：2016/9/20 9:41:00
--

dim name as string = "订单"

mg.SourceTableName = name

mg.SourceTableName = e.form.controls("textbox1").text

--  作者：lml88
--  发布时间：2016/9/20 9:49:00
--
很感谢您的回复，但是，您没明白我的意思，这个订单是excel表中第一个表的表名，应该怎么获取

--  作者：有点蓝
--  发布时间：2016/9/20 9:57:00
--
没有办法获取，你必须自己预先知道表名

不然就用其它方式导入http://www.foxtable.com/webhelp/scr/2334.htm

--  作者：狐狸爸爸
--  发布时间：2016/9/20 9:58:00
--

Dim Book1 As New XLS.Book("C:\\data\\N91SIZIP.xls")
For i As Integer = 0 to book1.Sheets.count -1
    output.show(book1.Sheets(i).name)
Next

--  作者：lml88
--  发布时间：2016/9/20 10:05:00
--
对的，我也找到了这个方法，但是遇到新的问题，如下是我的代码
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
dlg.MultiSelect = False \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
Dim mg As New Merger
mg.SourcePath = dlg.FileName
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
mg.SourceTableName =Sheet.Name
mg.DataTableName = "候运超速统计明细表"
mg.Format = "excel" \'指定格式
mg.Merge()
End If

Sheet.Name  获取到了表名但是后面要加$符号才能导入，要怎么加呢

--  作者：有点蓝
--  发布时间：2016/9/20 10:08:00
--
mg.SourceTableName =Sheet.Name & “$”

--  作者：lml88
--  发布时间：2016/9/20 10:10:00
--
已解决
str = Sheet.Name + "$"