08 2019 档案

摘要:Sub createMenus() Dim cmdBar As CommandBar Dim cmdMenu As CommandBarPopup Dim cmdBtn As CommandBarButton Set cmdBar = Application.CommandBars("WorkSheet Menu Bar") 'Set cmdBar = Application.CommandBar 阅读全文
posted @ 2019-08-20 13:36 tec2019 阅读(3178) 评论(0) 推荐(0)
摘要:在windows里新建一个计划任务定期去执行以下脚本,脚本会自动执行备份任务,并记录执行结果到日志文件。(执行时间,备份是否成功) 阅读全文
posted @ 2019-08-19 08:56 tec2019 阅读(1288) 评论(0) 推荐(0)
摘要:Sub ImportData() ' ' Copy Data from one workbook to the Current Workbook ' Place the macro file in the same folder as the source file ' p = ThisWorkbook.Path & "\" f = Dir(p & "*.xlsx")... 阅读全文
posted @ 2019-08-15 15:47 tec2019 阅读(911) 评论(0) 推荐(0)
摘要:单账号: 多账号: 详细参见原文https://www.jianshu.com/p/4f0ed762f521 给多个地址发邮件: 阅读全文
posted @ 2019-08-08 09:03 tec2019 阅读(9812) 评论(0) 推荐(1)