'FilePathのエクセルファイルの、SeetNoのシートの、CellArea部分を取得する
Public Function getExcelFileData(ByVal FilePath As String, ByVal SeetNo As Integer, ByVal CellArea As String)
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim data As Variant
    
    'MsgBox FilePath

    Set wb = Workbooks.Open(FilePath) 'ワークブックを開く
    Set ws = wb.Worksheets(SeetNo) 'ワークシートを参照する
    
    getExcelFileData = ws.UsedRange.Range(CellArea) 'CellArea部分を取得して返す

    wb.Close 'ワークブックを閉じる
    Set ws = Nothing 'メモリの開放
    Set wb = Nothing 'メモリの開放

End Function