保存現在のディレクトリにし、セルの値と現在のフォルダの場所に

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

出典

2017-06-01 Max Bridge

ご質問ありがとうございます。あなたのコードは動作しませんか？それはエラーを投げますか？もしそうなら、どんなエラーですか？それは実行されますが、保存されませんか？それは.... – BruceWayne

これは部分的に動作しますが、ワークブックが現在の場所に保存されません –

'SaveAs Filename：= nom＆Range（" G63 "）Value'？ '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

保存現在のディレクトリにし、セルの値と現在のフォルダの場所に

答えて

関連する問題