如何编写工作簿打开时自动创建桌面/FATURAS文件夹的VBA宏？

操作步骤 #

• 打开目标Excel工作簿，按下Alt + F11唤出VBA编辑器
• 在左侧工程面板中找到并双击ThisWorkbook对象，进入该对象的代码编辑页
• 将下方代码粘贴到编辑区域后，将工作簿保存为启用宏的工作簿格式（.xlsm 或 .xlsb），否则宏无法正常运行
• 下次打开该工作簿时，允许宏执行即可触发对应逻辑

完整VBA代码 #

Private Sub Workbook_Open()
    ' 定义文件夹路径变量
    Dim folderPath As String
    ' 拼接桌面下FATURAS文件夹的完整路径
    folderPath = Environ("USERPROFILE") & "\Desktop\FATURAS"
    
    ' 判断文件夹是否存在
    If Dir(folderPath, vbDirectory) = vbNullString Then
        ' 不存在则创建文件夹
        MkDir folderPath
        ' 弹出创建成功提示
        MsgBox "FATURAS文件夹已在桌面创建完成", vbInformation, "操作提示"
    End If
    ' 文件夹已存在的情况下无任何操作，直接结束过程
End Sub

注意事项 #

• 运行宏前需要在Excel信任中心设置中允许启用宏，否则自动触发逻辑不会执行
• 该代码仅在当前配置的工作簿打开时生效，不会影响其他Excel文件

内容的提问来源于stack exchange，提问作者João Paulo