セルA1に含まれている名前に基づいて名前を変更する必要があるファイルをダウンロードします。ファイルはすでに現在のディレクトリに保存されているので、私が求めているのは、呼び出しA1のファイル名と拡張子「.xls」を使用して現在のディレクトリに保存することだけです。
このコードを試しました:
Sub SaveToRelativePath()
Dim relativePath As String, sname As String
sname = ActiveWorkbook.Worksheets(1).Range("A1") & ".xls"
relativePath = Application.ActiveWorkbook.Path & "\" & sname
ActiveWorkbook.SaveAs Filename:=relativePath
End Sub
ただし、デバッガーは最後の行にエラーを報告します:ActiveWorkbook.SaveAs Filename:= relativePath
これをどのように行うことができるかについての手がかりはありますか?