【マクロ】変数に入れるコードを少しでも短くする為には？

以下のコードを、もう少し短くする事はできますか？

別ファイルのファイルパスを変数に入れるコード
正常動作を確認

【条件】
マクロは、x.xlsmのに記載しています
転記元.xlsmのA10セルにある　ファイルパス　を変数に入れています


【コード】
Dim filepath3 As String
Dim wb3 As Workbook
Dim ws3 As Worksheet


filepath3 = "C:\Users\2020\OneDrive\マクロ\住所転記\コントロール.xlsm"
Set wb3 = Workbooks.Open(filepath3)
Set ws3 = wb3.Worksheets("転記元")


Dim filepath4 As String
Dim wb4 As Workbook
Dim ws4 As Worksheet


filepath4 = ws3.Cells(10, 1)
Set wb4 = Workbooks.Open(filepath4)
Set ws4 = wb4.Worksheets("サーベイデータ")

No.2 回答者： zongai 回答日時： 2025/05/10 09:19

書かれているコードだと、それぞれの変数を後に使用するのか不明です。

filepath3は独立で定義したほうが扱いやすいと思うので残すとして、
単にws4を取得するのが目的であるなら、こういうのではいかがでしょうか。

Dim filepath3 As String
Dim ws3 As Worksheet, ws4 As Worksheet
filepath3 = "C:\Users\2020\OneDrive\マクロ\住所転記\コントロール.xlsm"
Set ws3 = Workbooks.Open(filepath3).Worksheets("転記元")
Set ws4 = Workbooks.Open(ws3.Cells(10, 1).Value).Worksheets("サーベイデータ")

No.1 回答者： fadklsj 回答日時： 2025/05/10 07:54

Option Explicit ' 変数の宣言を強制することをお勧めします

Sub ShortenCode_Pattern1()
Dim filepath3 As String
Dim wb3 As Workbook
Dim ws3 As Worksheet

filepath3 = "C:\Users\2020\OneDrive\マクロ\住所転記\コントロール.xlsm"
Set wb3 = Workbooks.Open(filepath3)
Set ws3 = wb3.Worksheets("転記元")

' ここに ws3 を使った処理を記述します
' 例: MsgBox ws3.Name

' 元のコードにあった filepath4, wb4, ws4 の宣言は、
' この部分までの処理では使用されていないため削除しました。
' もし後続の処理で別のファイルやシートを参照するために必要であれば、
' その際に改めて宣言してください。