易表在线答疑技术与交流用户社区 → [求助]如何将Excel文件的多个表一次性导入到易表中的一个表中


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

主题:[求助]如何将Excel文件的多个表一次性导入到易表中的一个表中

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


加好友 发短信
等级:论坛游民 帖子:165 积分:100 威望:0 精华:0 注册:2007/11/16 15:08:00
[求助]如何将Excel文件的多个表一次性导入到易表中的一个表中  发帖心情 Post By:2011/8/3 13:16:00 [只看该作者]

必须得“一个表 And 一个表”的导入吗?。万分感谢。RAR文件下载

-=-=-=- 以下内容由 1322011年08月03日 01:20pm 时添加 -=-=-=-
如果Excel中的各表的名称并不一定的情况下,又该怎么办呢?

 回到顶部
帅哥哟,离线,有人找我吗?
lyang70
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:5115 积分:862 威望:0 精华:0 注册:2006/8/15 16:57:00
  发帖心情 Post By:2011/8/3 16:11:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
132
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:165 积分:100 威望:0 精华:0 注册:2007/11/16 15:08:00
  发帖心情 Post By:2011/8/3 16:30:00 [只看该作者]

[这个贴子最后由132在 2011/08/03 04:39pm 第 1 次编辑]

非常好。谢谢 lyang70 !!!
如果能够直接从Excel中取文件名称和表名称就完美了。这样的话可以适用于任何一个Excel文件。



 回到顶部
帅哥哟,离线,有人找我吗?
132
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:165 积分:100 威望:0 精华:0 注册:2007/11/16 15:08:00
  发帖心情 Post By:2011/8/4 8:19:00 [只看该作者]

文件名称与表名称不确定的情况下该怎么办呢?请赐教!谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
lyang70
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:5115 积分:862 威望:0 精华:0 注册:2006/8/15 16:57:00
  发帖心情 Post By:2011/8/4 8:45:00 [只看该作者]

就是考虑到不确定才只能通过手动添加EXCEL表名这个办法。
3楼问题无法实现。

 回到顶部
帅哥哟,离线,有人找我吗?
132
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:165 积分:100 威望:0 精华:0 注册:2007/11/16 15:08:00
  发帖心情 Post By:2011/8/4 10:36:00 [只看该作者]

谢谢lyang70 !
我参考了wjq1072版主的类似文件。是先设一个变量%A%:GetFileName("导入xls|*.xls","导入xls",0)
然后“导入文件”的按钮公式为:SetVariable("%K%",[%A%]) And ImportDBFile([%K%],6,“表名")
似乎可以解决Excel文件名的问题?这个基础上,怎么再手动添加表名呢?
万分感谢!


 回到顶部
帅哥哟,离线,有人找我吗?
lyang70
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:5115 积分:862 威望:0 精华:0 注册:2006/8/15 16:57:00
  发帖心情 Post By:2011/8/4 10:59:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
132
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:165 积分:100 威望:0 精华:0 注册:2007/11/16 15:08:00
  发帖心情 Post By:2011/8/4 12:05:00 [只看该作者]

非常感谢lyang70 !

只是有些不解,既然文件名已经通过“选择导入文件”解决了,为什么导入公式中还有""2011年旺季价格表.xls呢?
请指教,谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
lyang70
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:5115 积分:862 威望:0 精华:0 注册:2006/8/15 16:57:00
  发帖心情 Post By:2011/8/4 12:59:00 [只看该作者]

不好意思,公式有误修改下:
Eval("ImportDBFile([%文件路径%],6,""" + Substitute([%列表项目%],"|",""") And ImportDBFile([%文件路径%],6,""") + """)") And MsgBox("导入完毕!",1)

 回到顶部
帅哥哟,离线,有人找我吗?
132
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:165 积分:100 威望:0 精华:0 注册:2007/11/16 15:08:00
  发帖心情 Post By:2011/8/4 17:02:00 [只看该作者]

谢谢 lyang70 !
现在的方案已经近乎完美了。再次感谢!

 回到顶部