Foxtable(狐表)用户栏目专家坐堂 → 请问,对于excel报表,以及交叉统计和分组统计的结果我想定期备份,这个要怎么实现?


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

主题:请问,对于excel报表,以及交叉统计和分组统计的结果我想定期备份,这个要怎么实现?

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


加好友 发短信
等级:童狐 帖子:226 积分:1796 威望:0 精华:0 注册:2016/8/3 15:11:00
请问,对于excel报表,以及交叉统计和分组统计的结果我想定期备份,这个要怎么实现?  发帖心情 Post By:2017/10/20 13:28:00 [只看该作者]

请问,对于excel报表,以及交叉统计和分组统计的结果我想定期备份,这个要怎么实现?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/20 14:37:00 [只看该作者]

生成excel、交叉统计、分组统计的代码,拷贝出来,放到备份按钮去,一次性生成后导出成excel即可。

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


加好友 发短信
等级:童狐 帖子:226 积分:1796 威望:0 精华:0 注册:2016/8/3 15:11:00
回复:(有点甜)生成excel、交叉统计、分组统计的代码...  发帖心情 Post By:2017/10/20 14:59:00 [只看该作者]

能否实现按时间点的自动备份?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/20 15:02:00 [只看该作者]

参考

 

做个计划管理

 

static d1 As Date = Date.today.AddDays(-1)

 

'周日、23时 执行
If d1 <> Date.today AndAlso Date.today.DayOfWeek = 0 AndAlso Date.Now.Hour=23 Then
    d1 = Date.today

    msgbox(abc)

end if

 


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


加好友 发短信
等级:童狐 帖子:226 积分:1796 威望:0 精华:0 注册:2016/8/3 15:11:00
回复:(有点甜)参考 做个计划管理  ...  发帖心情 Post By:2017/10/20 17:11:00 [只看该作者]

还是不太懂,我是要先将报表的代码粘贴到备份按钮中,然后在做一个计划管理,让每天23点执行备份按钮吗?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/20 18:28:00 [只看该作者]

以下是引用约翰舒在2017/10/20 17:11:00的发言:

还是不太懂,我是要先将报表的代码粘贴到备份按钮中,然后在做一个计划管理,让每天23点执行备份按钮吗?

 

先测试备份功能是否有效,测试成功以后,把代码粘贴到红色位置

 

static d1 As Date = Date.today.AddDays(-1)

 

'23时 执行
If d1 <> Date.today AndAlso  Date.Now.Hour=23 Then
    d1 = Date.today

    msgbox(abc)

end if


 回到顶部