特定のフォルダに保存する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