如何实现点击btn_Finished时将Statement_file存入对应或备用子文件夹？

原代码核心问题 #

• 字符串语法错误：TempDAPath赋值语句末尾缺少双引号，导致路径变量无法正常初始化
• 路径拼接错误：用户子文件夹名称与上级路径间未添加分隔符\，生成的路径格式无效（比如会变成FLD_ReportPickupfld_Abi而非FLD_ReportPickup\fld_Abi）
• 逻辑覆盖不全：仅处理了User为空/Null的情况，未覆盖User有值但对应子文件夹不存在的场景，也缺少实际执行文件保存的代码
• 变量使用不规范：User和USER大小写混用，易引发变量识别问题；TempDAPath、DAPath未显式声明为String类型

修正后的完整代码 #

Dim User As String
Dim TempDAPath As String
Dim targetFolder As String

' 假设User变量已通过其他逻辑赋值（比如从窗体控件读取）
' User = Me.txt_UserName.Value ' 示例：从文本框获取用户名称

' 处理用户为空/Null的情况
If User = "" Or IsNull(User) Then
    targetFolder = "fld_TEMPFolder"
Else
    targetFolder = "fld_" & User ' 拼接用户子文件夹前缀，如fld_Abi
End If

' 构建合法的目标文件夹路径
TempDAPath = "W:\Service Center\Reports\Dealerships\DealershipsONLY\PROCESSORS\FLD_ReportPickup\" & targetFolder

' 检查目标文件夹是否存在，不存在则自动创建
If Dir(TempDAPath, vbDirectory) = "" Then
    MkDir TempDAPath
End If

' 执行文件保存（根据Statement_file的实际类型调整）
' 示例1：Excel工作簿保存
' Statement_file.SaveAs TempDAPath & "\Statement_File.xlsx"
' 示例2：Access报表导出为PDF
' DoCmd.OutputTo acOutputReport, "Statement_Report", acFormatPDF, TempDAPath & "\Statement_File.pdf"

关键修正说明 #

1. 修复路径语法：补充缺失的双引号，添加路径分隔符\，确保生成的文件夹路径格式合法
2. 完善逻辑分支：覆盖User有值的场景，同时自动检查并创建不存在的目标文件夹
3. 规范变量使用：统一变量大小写，显式声明变量类型，符合VBA代码规范
4. 补充保存逻辑：预留了不同类型文件的保存示例代码，需根据Statement_file的实际类型调整调用方式

内容的提问来源于stack exchange，提问作者Datament