保存在当前目录下，并用细胞值连接在当前文件夹位置

感谢名单

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

来源

2017-06-01 Max Bridge

好 - 什么是你的问题？你的代码不工作？它抛出一个错误（如果是的话，什么样的错误，在哪里）？它运行，但不保存？它是否... – BruceWayne

它的工作部分，但不保存在当前的位置工作簿是 –

你也许是要做'... SaveAs文件名：= nom＆范围（“G63”）。价值？ G63是什么？什么是'nom'？ – BruceWayne

应该是这样的前连接一个单元格值的值。

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

来源

2017-06-01 16:06:15 ryguy72

保存在当前目录下，并用细胞值连接在当前文件夹位置

回答

相关问题