求写VBA，自动生成日期，要求：起始日期为2000-01-01，截止日期为当天，且去除周六日

自由心　发表于：2016-07-01 08:37:46 　

求老师们写VBA，当我们点击此按钮时，在表“自动生成日期”中自动生成日期

要求：1、起始日期为2000-01-01，截止日期为当天date()；

2、不含周六日

即生成的数据如下：

2000-01-03

2000-01-04

2000-01-05

2000-01-06

2000-01-07

2000-01-10

2000-01-11

…………

附件在后面

zch 发表于：2016-07-01 08:57:09

试试下面这个

Dim i
For i = #1/1/2000# To Date()
If Weekday(i) <> 1 and Weekday(i) <> 7 Then DoCmd.RunSQL " insert into 表（字段） values(#" & i & "#)"
Next i

自由心发表于：2016-07-01 09:30:01

多谢 @zch

问题已经解决，多谢

出现的问题是，生成的数据太多，出现程序未响应，的假死状态！

总记录：2篇页次：1/1 9 1 :

Access交流中心