シートモジュール

Option Explicit

Public Sub データ集積ボタン()

'###①オブジェクトのデータ型を定義


Dim folderPath As String
Dim destinationFile As String
Dim destinationSheet As String

'###②フォルダのパスと対象ファイルのパスを設定


'参照対象フォルダのパス
folderPath = "C:\Users\bluet\OneDrive\デスクトップ\xxx\会社\人事部・運用企画部研修\練習用ファイル\"

'出力先ファイルのパス
destinationFile = "C:\Users\bluet\OneDrive\デスクトップ\xxx\会社\IT推進部_研修\VBA研修\課題用book.xlsm"

'出力先シートの名前
destinationSheet = "Sheet2"



'###③標準モジュールから、作ったプロシージャを呼び出す
Call date_collect( _
    folderPath, _
    destinationFile, _
    destinationSheet)

End Sub