| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 定时执行计划问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172614) |
| -- 作者：hopestarxia -- 发布时间：2021/10/21 23:47:00 -- 定时执行计划问题 老师，任务计划是间隔多长时间执行一次任务，请问能否实现固定时间点执行任务代码？ |
| -- 作者：有点蓝 -- 发布时间：2021/10/22 8:29:00 -- 间隔是自己设置的，想多长都行。 比如要中午12点整执行，间隔设置为1分钟：60000毫秒，代码 if date.today.hour = 12 andalso Date.today.Minute = 0 then msgbox("12点整")
|
| -- 作者：hopestarxia -- 发布时间：2021/10/22 9:14:00 -- 谢谢老师！ |
| -- 作者：hopestarxia -- 发布时间：2021/10/22 10:59:00 -- 老师，我想将导出的文件名字加上导出的时间，请问怎么个发？ Dim flg As New SaveExcelFlags flg.RowNumber = True flg.CellStyle = True Tables("主窗口_Table1").SaveExcel("d:\\data\\出库明细 + 年月日时分秒.xls","出库明细",flg)
例如生成日期文件名： 出库明细20211021091622.xls |
| -- 作者：有点蓝 -- 发布时间：2021/10/22 11:32:00 -- Tables("主窗口_Table1").SaveExcel("d:\\data\\出库明细“ & format(date.now,"yyyyMMddHHmmss") & ”.xls","出库明细",flg) |
| -- 作者：hopestarxia -- 发布时间：2021/10/22 19:32:00 -- 谢谢老师！ |
| -- 作者：hopestarxia -- 发布时间：2021/10/26 23:40:00 -- 老师，我想在导出文件之前先加一句删除导出目录下所有文件，请问如何处理？ 删除 d:\\data 下所有文件 （都是上次导出的EXCEL文件） 再执行下面的导出代码。 Dim flg As New SaveExcelFlags flg.RowNumber = True flg.CellStyle = True Tables("主窗口_Table1").SaveExcel("d:\\data\\出库明细“ & format(date.now,"yyyyMMddHHmmss") & ”.xls","出库明细",flg) |
| -- 作者：有点蓝 -- 发布时间：2021/10/27 8:39:00 -- 参考：http://www.foxtable.com/webhelp/topics/0331.htm |
| -- 作者：hopestarxia -- 发布时间：2021/10/27 16:23:00 -- 老师，请问为什么我的代码这两个都不管用？ If Date.today.hour = 16 And Date.today.Minute > 15 Then msgbox("计划执行了") End If If Date.today.hour = 16 AndAlso Date.today.Minute > 15 Then msgbox("第二个代码能执行") End If 判断时间不管用。 |
| -- 作者：有点蓝 -- 发布时间：2021/10/27 16:30:00 -- 上面2个代码效果完全一样的，事件在16:15:01~16:59:59之间都会执行。 计划管理的间隔是多少？必须在45分钟以内 |