求助动态年、月代码，谢谢

杨建营

dzsrmyh 发表于 2023-3-28 10:15
老师你好，结果有点不对，能在5楼附件里看看吗？

按照你的格式修改了下添加文件夹的代码，请楼主参考。

dzsrmyh

杨建营 发表于 2023-3-28 11:04
按照你的格式修改了下添加文件夹的代码，请楼主参考。

老师您好，麻烦您在看看好吗？我在压缩文件中添加了一个PDF文件，麻烦您了！
主要功能就是打印文件后，将文件移动到新建或已有的动态年月文件夹里

ykcbf1100

Yalishanda30 发表于 2023-3-28 09:20
今天1朵花没送出去咋就没了呢

还没到时候，要间隔24小时才会有花送。

gbgbxgb

对应你原代码的位置，修改成如下试试：   
old_path = myDeskTopPath = CreateObject("WScript.Shell").SpecialFolders("DeskTop") & "\"
    Dim theDate As Date, theYear$, theMonth&
    theDate = VBA.Date
    theYear = Year(theDate): theMonth = Month(theDate)
    ext = "pdf*"
    With CreateObject("Scripting.FileSystemObject")
        new_path = old_path & "ETC发票\"
        If Not .FolderExists(new_path) Then .CreateFolder new_path
        new_path = new_path & theYear & "年\"
        If Not .FolderExists(new_path) Then .CreateFolder new_path
        new_path = new_path & theMonth & "月\"
        If Not .FolderExists(new_path) Then .CreateFolder new_path

杨建营

dzsrmyh 发表于 2023-3-28 11:27
老师您好，麻烦您在看看好吗？我在压缩文件中添加了一个PDF文件，麻烦您了！
主要功能就是打印文件后， ...

请楼主参考。

dzsrmyh

杨建营 发表于 2023-3-28 12:15
请楼主参考。

老师您好，这里又报错了？

dzsrmyh

杨建营 发表于 2023-3-28 12:15
请楼主参考。

1. With fso 'CreateObject("Scripting.FileSystemObject")
   
2.         'If Not .folderExists(new_path) Then .createfolder (new_path)
   
3.         For Each f In .getfolder(sPath).Files
   
4.             If .getextensionname(f.Name) Like ext Then
   
5.                 If Not .fileexists(new_path & f.Name) Then
   
6.                     f.Move (fold2)        ‘这里改成fold2，可以移动到2023年的根目录里，我的要求是移动月份目录里面，
   
7.                 Else

复制代码

如果不改的话，就报错？？

杨建营

文件移动是这个操作， 我安装的PDF文件跟你的不是一个盘，这个需要你自己改动一下。

dzsrmyh

杨建营 发表于 2023-3-28 14:29
文件移动是这个操作， 我安装的PDF文件跟你的不是一个盘，这个需要你自己改动一下。

这下终于完美了，谢谢了
还有一个小问题就在运行代码时弹出打开对话框默认是文档目录，可以修改成打开位置默认是桌面吗？谢谢了

dzsrmyh

杨建营 发表于 2023-3-28 14:29
文件移动是这个操作， 我安装的PDF文件跟你的不是一个盘，这个需要你自己改动一下。

这下完美了，谢谢
还有一个问题，就是打开文件对话框默认是文档目录，如何修改为默认位置是桌面呢