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

工人，

我现在有这个代码;

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