[求助]自动导出数据为Excel的公式怎么写啊？ - 用户社区 - 易表在线答疑 - 简单实用的数据管理软件|数据统计软件|数据分析软件|电子表格软件

易表在线答疑 → 技术与交流 → 用户社区 → [求助]自动导出数据为Excel的公式怎么写啊？

共有19686人关注过本帖树形打印复制链接主题：[求助]自动导出数据为Excel的公式怎么写啊？

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2007/1/27 17:41:00 [显示全部帖子]

下面引用由h508588在 2007/01/27 04:50pm 发表的内容：
顺便再问一句,能不能将导出来的一百多个EXCEL表,集中到一个EXCEL表中???

如果只看结果不计过程，我想用易表还是可以达到的。

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2007/2/1 12:57:00 [显示全部帖子]

下面引用由tzszw在 2007/01/29 01:47pm 发表的内容：
长今老师:
你好啊!
这个文件一使用就出现问题了,可能有嵌套问题！

改成这样应该不会有问题。
egd文件下载

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13147 积分：-89 威望：0 精华：0 注册：2006/8/11 11:14:00

Post By：2007/2/2 12:32:00 [显示全部帖子]

将公式拆分来看就很容易理解了。

将焦点移到客户列：Move(Row,"客户") And
排除客户列重复内容：Do(220,1) And
将焦点移到可见第一行：First() And
动态生成新表、清除新生成表的数据、复制数据到新表、删除新生成表中第一行，执行上述重复次数为当前可见的总行数：Eval(Mid(Rept(" And Next() And [%b%] And ClearGrid([客户]) And CopyRows([客户],""客户"",""="",[客户]) And DelRow([客户],1)",VisibleRows),17)) And
显示所有行：Do(112) And
模拟键盘将数据导出：SendKeys("客户资料{Tab}{Down}{Up 5}{tab}~")And Do(5) And
删除新建的表：Eval("RemoveGrid("""+Substitute([%e%],"|",""") And RemoveGrid(""")+""")")

下一主题 >> << 上一主题

主题：[求助]自动导出数据为Excel的公式怎么写啊？