Excel VBA セルの値でフォルダ名とファイル名を決めて保存する方法

ExcelのVBAでセルの値を使って、フォルダ名、ファイル名にして保存するサンプルを記録しました。

下図は、Excel2016です。

 

下図のA1セルをフォルダ名、A2セルをファイル名にして、Kドライブに保存します。

ExcelVBAセル値ファイル名

ExcelVBAセル値ファイル名

< スポンサーリンク >





方法

VBEに下記のように書きます。

Sub hozon()
    Dim wb As Workbook      ‘ワークブック
    Dim ws As Worksheet     ‘ワークシート
    Dim hozonPath As String ‘ドライブ等のパス用
    Dim FolName As String   ‘A1セル用のフォルダ名用
    Dim FilName As String   ‘A2セル用のファイル名用

    ‘自ワークブック
    Set wb = ThisWorkbook
    ‘アクティブシート
    Set ws = ActiveSheet

    ‘ドライブ等の名前を変数に
    hozonPath = “K:\”
    ‘A1セルの値を変数に
    FolName = ws.Range(“A1”).Value
    ‘A2セルの値を変数に
    FilName = ws.Range(“A2”).Value

    wb.SaveAs Filename:=hozonPath & FolName & “\” & FilName
End Sub

ExcelVBAセル値ファイル名

  

VBAを実行すると保存されました。

ExcelVBAセル値ファイル名

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします