皆さん、こんにちは！今日は、Excel VBAとWord VBAを使って、ファイルを「名前を付けて保存」する方法をご紹介します。特に、パソコンやスマホに不安がある方でも安心して取り組めるように、わかりやすく解説しますね。
Excel VBAで「名前を付けて保存」する方法
Wordのイメージ
基本的な保存方法
まずは、Excel VBAでファイルを保存する基本的な方法から始めましょう。
- Excelを開き、Alt + F11キーでVBAエディタを起動します。
- 「挿入」→「標準モジュール」を選択し、以下のコードを入力します。
Sub 名前を付けて保存()
ActiveWorkbook.SaveAs Filename:="C:Usersユーザー名Documents保存用ファイル.xlsx"
End Sub
このコードを実行すると、指定した場所にファイルが保存されます。
ダイアログを使って保存先を選ぶ方法
次に、保存先をダイアログで選ぶ方法をご紹介します。
- 先ほどと同様にVBAエディタを開き、新しいモジュールを追加します。
- 以下のコードを入力します。
Sub 名前を付けて保存ダイアログ()
Dim 保存先 As String
保存先 = Application.GetSaveAsFilename
If 保存先 <> "False" Then
ActiveWorkbook.SaveAs Filename:=保存先
Else
MsgBox "保存がキャンセルされました。", vbExclamation
End If
End Sub
このコードを実行すると、保存先を選ぶダイアログが表示されます。キャンセルした場合は、メッセージが表示されます。
Word VBAで「名前を付けて保存」する方法
基本的な保存方法
次に、Word VBAでファイルを保存する基本的な方法をご紹介します。
- Wordを開き、Alt + F11キーでVBAエディタを起動します。
- 「挿入」→「標準モジュール」を選択し、以下のコードを入力します。
Sub 名前を付けて保存()
ActiveDocument.SaveAs2 FileName:="C:Usersユーザー名Documents保存用ドキュメント.docx"
End Sub
このコードを実行すると、指定した場所にドキュメントが保存されます。
ダイアログを使って保存先を選ぶ方法
保存先をダイアログで選ぶ方法もご紹介します。
- 先ほどと同様にVBAエディタを開き、新しいモジュールを追加します。
- 以下のコードを入力します。
Sub 名前を付けて保存ダイアログ()
Dim 保存先 As String
保存先 = Application.GetSaveAsFilename
If 保存先 <> "False" Then
ActiveDocument.SaveAs2 FileName:=保存先
Else
MsgBox "保存がキャンセルされました。", vbExclamation
End If
End Sub
このコードを実行すると、保存先を選ぶダイアログが表示されます。キャンセルした場合は、メッセージが表示されます。
よくある質問や疑問
Q1: 保存先のフォルダを指定するにはどうすればいいですか？
保存先のフォルダを指定するには、コード内のファイルパスを変更します。例えば、Cドライブの「Documents」フォルダに保存したい場合は、以下のように指定します。
ActiveWorkbook.SaveAs Filename:="C:Usersユーザー名Documents保存用ファイル.xlsx"
Q2: 保存形式を変更するにはどうすればいいですか？
保存形式を変更するには、SaveAsメソッドの引数である「FileFormat」を指定します。例えば、CSV形式で保存する場合は、以下のように指定します。
ActiveWorkbook.SaveAs Filename:="C:Usersユーザー名Documents保存用ファイル.csv", FileFormat:=xlCSV
まとめ
Excel VBAとWord VBAを使って、ファイルを「名前を付けて保存」する方法をご紹介しました。これらの方法を活用すれば、業務の効率化や作業の自動化が可能になります。ぜひ、実際に試してみてくださいね。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント