Excel VBA保存到特定文件夹（使用当前代码生成文件名）

Question

工作人员，

我现在有这段代码；

Public Sub SaveAsA1()
    ActiveWorkbook.SaveAs Filename:=Range("P4").Value & ";" & Range("F6").Value & ";" & Range("R6").Value & ";" & Range("R4").Value
End Sub

我想修改以保存在某个文件映射中； \\ S31000265 \\ Users $ \\ NR4236 \\ My Documents \\ TV-01-project \\ TestmapWeek9GOED。 一直在尝试，但它一直覆盖文件名代码。 希望你们能帮助我。

Answer 1

Public Sub SaveAsA1()
    ChDir ("C:\work\testout\") ' Directory you need to save the file as xlsm
    Filename = Range("P4").Value & ";" & Range("F6").Value & ";" & Range("R6").Value & ";" & Range("R4").Value
    ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=52
End Sub