【Excel】VBAマクロで別ブックのからセルの値を取得・転記する（開かずに：複数の範囲：コピー：別ファイル：変数）方法

Sub Copy_Cell_Betsu_To_Moto()

  'betsu_filePath は、コピー元のファイルパス
  Dim betsu_filePath As String
  betsu_filePath = "C:\Users\user\Documents\betsu.xlsx"

  'betsu_wbは、コピー元のブック
  Dim betsu_wb As Workbook
  'ReadOnlyで開く（上書きしない）
  Set betsu_wb = Workbooks.Open(betsu_filePath, ReadOnly:=True)  
  
  'betsu_wsは、コピー元のシート
  Dim betsu_ws As Worksheet
  Set betsu_ws = betsu_wb.Worksheets(1)
  
  'コピー元範囲の値を変数:betsu_cellに取得
  Dim betsu_cell As Variant
  betsu_cell = betsu_ws.Range("C6").Value
  
  'コピー元ブックを閉じる
  betsu_wb.Close SaveChanges:=False
  
  'moto_wsは、貼り付け先のシート
  Dim moto_ws As Worksheet
  Set moto_ws = ThisWorkbook.Worksheets(1)

  '変数:betsu_cellの値をmoto_wsのE4セルへペースト  
  moto_ws.Range("E4").Value = betsu_cell
  
End Sub

  
Sub Copy_Cells_Betsu_To_Moto()

  'betsu_filePathは、コピー元のファイルパス
  Dim betsu_filePath As String
  betsu_filePath = "C:\Users\user\Documents\betsu.xlsx"
  
  'betsu_wbは、コピー元のブック
  Dim betsu_wb As Workbook
  'ReadOnlyで開く（上書きしない）
  Set betsu_wb = Workbooks.Open(betsu_filePath, ReadOnly:=True)
  
  'betsu_wsは、コピー元のシート 
  Dim betsu_ws As Worksheet
  Set betsu_ws = betsu_wb.Worksheets(1)
  
  'betsu_copyRangeは、コピー元の複数の範囲
  Dim betsu_copyRange As Range
  Set betsu_copyRange = betsu_ws.Range("B2", betsu_ws.Range("C2").End(xlDown))
  
  'コピー元ブックを閉じる
  betsu_wb.Close SaveChanges:=False

  'moto_wsは、貼り付け先のシート  
  Dim moto_ws As Worksheet
  Set moto_ws = ThisWorkbook.Worksheets(1)
  
  'moto_pasteRangeは、貼り付け先の範囲
  Dim moto_pasteRange As Range
  Set moto_pasteRange = moto_ws.Range("A2").Resize(betsu_copyRange.Rows.Count, betsu_copyRange.Columns.Count)
  
  'コピー元の範囲を貼り付け先へペースト
  moto_pasteRange.Value = betsu_copyRange.Value

End Sub