工,
我现在有这个代码;
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。一直在尝试,但它不断覆盖文件名代码。希望你们能帮助我。
答案 0 :(得分:2)
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