Foxtable(狐表)用户栏目专家坐堂 → 请教怎么把几个Excel表导入到Foxtable已存在的表格中


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

主题:请教怎么把几个Excel表导入到Foxtable已存在的表格中

帅哥哟,离线,有人找我吗?
lrh9537
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3154 威望:0 精华:0 注册:2012/11/16 12:19:00
请教怎么把几个Excel表导入到Foxtable已存在的表格中  发帖心情 Post By:2012/11/27 20:37:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:未命名1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
请教:比如我在D盘一个文件夹中有三个工作表,怎么把它们导入到FOXTABLE已设好格式的表格中,格式都一样,提示外部表不是预期的表,怎么解决?

 

For Each fl As String In FileSys.GetFiles("d:\手术信息")

    If fl.EndsWith(".xls") 

    Dim mg As New Merger
    mg.SourcePath = fl
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "手术信息查询$" '指定要合并的表
    mg.DataTableName = "手术" '指定接收数据的表
    mg.Merge() '开始合并

End If
Next


 回到顶部