エクセルVBAでセルの値を取得してファイル名にして保存するプログラムを組みたい。

Question

お世話になります。

エクセルVBAの勉強中です。
詰まってしまってます。
ご教授願いたいです。

▼やりたいこと
添付のように、ボタンを押すと、A1セルに入っている値を取得し
その名前でファイルを保存したい。（あいうえお.xlsmとして保存したい）

▼現在のコード（A1の値は変数に格納できたのですが、それをファイル名にして保存する処理ができません）

Sub getFileName()
Dim s As String
s = Range("A1").Value
End Sub

よろしくおねがいします。

Answer 1

保存はワークブックのSaveAsメソッドを使います。
ご提示のコードに埋め込むならこんな感じになるでしょう。

Sub getFileName()
    Dim s As String
    s = Range("A1").Value
    ThisWorkbook.SaveAs s, xlOpenXMLWorkbookMacroEnabled
End Sub

SaveAsの詳細は公式サイトを参照してください。

余談ですが現在のコードにある関数getFileNameはあくまでも関数名を取得する関数です。
なのでこれを利用するのであれば、SubからFunctionに変更し、呼び出し元でSaveAsする形になると思います。

Sub test()
    Dim s As String
    s = getFileName
    ThisWorkbook.SaveAs s, xlOpenXMLWorkbookMacroEnabled
End Sub

Function getFileName() As String
    getFileName = Range("A1").Value
End Function

Comments

[退会済みユーザー]

解決しました。ありがとうございます。

Answer 2

【初心者向けエクセルVBA】ワークブックを別名で保存して閉じる方法