另存为当前目录并与单元格值连接

xlsm放在当前文件夹位置，并在名称之前连接单元格值的值

感谢名单

Private Sub CommandButton8_Click() Dim nom As String nom = Dir(ThisWorkbook.FullName) Range("F700").Value = nom ActiveWorkbook.SaveAs Filename:=Range("G63").Value & "_" & nom End Sub 

Answer 1

应该是这样的。

 Sub SaveToRelativePath() Dim relativePath As String relativePath = ThisWorkbook.Path & "\" & ActiveWorkbook.Name ActiveWorkbook.SaveAs Filename:=relativePath End Sub