[已解决]按照日期自动生成文件夹

a8426048 · 发表于 2013-7-12 10:20

我想按照日期批量生成文件夹，把本月的文件夹一下全部生成，如20130701、20130702等

最佳答案

月排行榜 / 总排行榜

w2001pf

2013-7-17 16:04

本帖最后由 w2001pf 于 2013-7-17 16:16 编辑

a8426048 发表于 2013-7-16 09:54
楼上的，能把制作好的文档给我发个吗？

你把这段代码复制到一个新工作表中就能完成的。

VBA文件夹新建按日期130712.rar (7.97 KB, 下载次数: 122)

w2001pf · 发表于 2013-7-13 00:13

本帖最后由 w2001pf 于 2013-7-13 00:14 编辑

你看是这样的吧？假设文件夹放在F盘。如果放在其它盘自己修改。新建一个文件，把代码放在一个模块里。如果符合要求就评个最佳吧。
Sub 生成文件夹()
j = Day(DateSerial(Year(Now), Month(Now) + 1, 0))
For i = 1 To j
j = Day(DateSerial(Year(Now), Month(Now) + 1, 0))
If Len(i) = 1 Then
      n = "0" & i
Else
      n = i
End If
If Len(Month(Now)) = 1 Then
      m = "0" & Month(Now)
Else
      m = Month(Now)
End If
MkDir "F:\" & Format(Year(Now) & m & n)
Next
End Sub

a8426048 · 发表于 2013-7-16 09:54

楼上的，能把制作好的文档给我发个吗？

w2001pf · 发表于 2013-7-17 16:04

这个最佳答案由 w2001pf 给出，感谢 w2001pf 的回答。

单击隐藏图章

本帖最后由 w2001pf 于 2013-7-17 16:16 编辑

a8426048 发表于 2013-7-16 09:54
楼上的，能把制作好的文档给我发个吗？

你把这段代码复制到一个新工作表中就能完成的。

VBA文件夹新建按日期130712.rar (7.97 KB, 下载次数: 122)

a8426048 · 发表于 2013-7-18 11:31

楼上的，好高兴帮助我解决掉问题，谢谢了。

w2001pf · 发表于 2013-7-18 22:43

a8426048 发表于 2013-7-18 11:31
楼上的，好高兴帮助我解决掉问题，谢谢了。

问题解决了，能不能评个最佳啊？

		自动登录	找回密码
密码			注册

[已解决]按照日期自动生成文件夹

相关帖子