セル値でExcelファイルを保存する方法は？

ブックを使用するときに、セルの内容に基づいてExcelファイルを保存することを考えたことはありますか？ たとえば、セルA1に「Saleprice」があり、ワークブックをSalepriceという名前で保存したいとします。 もちろん、[名前を付けて保存]ダイアログに名前を入力して保存することもできます。 しかし、これはあなたの仕事量において非効率的な方法になります。 今日は、それを解決するための簡単なトリックについてお話します。

VBAコードを使用して特定のセル値でExcelファイルを保存する

VBAコードを使用して特定のセル値でExcelファイルを保存する

次のVBAコードは、指定したセル値でブックを保存するのに役立つ場合があります。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：特定のセル値でExcelファイルを保存します

Private Sub filename_cellvalue()
'Updateby Extendoffice
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3。 そして、 F5 コードを実行するためのキー。ワークブックはセルA1のセルコンテンツとして名前が付けられています。 スクリーンショットを参照してください：

注意：

1.上記のコードでA1を他のセル参照に変更するだけで、ファイル名として任意のセル値を指定できます。

2.アクティブなワークブックはのフォルダに保存されます C：\ Users \ dt \ Desktop \ my information \ （場所を貼り付けるときは、最後のスラッシュをそのままにしておく必要があります）場所、必要に応じてパスを変更できます。

関連記事：

Excelで日付と時刻のファイルを保存するにはどうすればよいですか？

Excelのタイトルバーまたはツールバーにファイルパスを表示するにはどうすればよいですか？