ワークシートを配列に格納する

Worksheet2Array.bas

''' <summary>
''' ワークシートを配列に格納する
''' インデックスは1始まり、実際のセル位置と対応
''' </summary>
''' <param name="objWorksheet">対象のワークシート</param>
''' <returns>配列</returns>
Public Function Worksheet2Array(ByVal objWorksheet As Worksheet) As String()

    Dim strArray() As String, objCell As Range
    Dim Row As Long, Column As Long
    ReDim strArray(1 To objWorksheet.UsedRange.Rows.Count, 1 To objWorksheet.UsedRange.Columns.Count)

    For Each objCell In objWorksheet.UsedRange
        Row = objCell.Row
        Column = objCell.Column
        strArray(Row, Column) = objCell.Value
    Next objCell

    Worksheet2Array = strArray
End Function