Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合并表时候，不想把要合并的表名写死


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

主题：合并表时候，不想把要合并的表名写死
美女呀，离线，留言给我吧！
lml88
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：212 威望：0 精华：0 注册：2016/9/8 16:08:00 		合并表时候，不想把要合并的表名写死  发帖心情 Post By：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 = "订单"  不想把指定要合并的表写死了， 想写成动态的，怎么做
 回到顶部
美女呀，离线，留言给我吧！
lml88
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：212 威望：0 精华：0 注册：2016/9/8 16:08:00 		  发帖心情 Post By：2016/9/20 9:49:00 [显示全部帖子]

很感谢您的回复，但是，您没明白我的意思，这个订单是excel表中第一个表的表名，应该怎么获取

 回到顶部
美女呀，离线，留言给我吧！
lml88
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：212 威望：0 精华：0 注册：2016/9/8 16:08:00 		  发帖心情 Post By：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  获取到了表名  但是后面要加$符号才能导入，要怎么加呢
 回到顶部
美女呀，离线，留言给我吧！
lml88
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：212 威望：0 精华：0 注册：2016/9/8 16:08:00 		  发帖心情 Post By：2016/9/20 10:10:00 [显示全部帖子]

已解决 
 str = Sheet.Name + "$"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 5 次数据查询