VBA Excel 테이블(표) 데이터 읽기

 

[ Excel에서 실행하는 VBA 스크립트 ]

    Sub PrintMatrix(profileList As String)
        Dim profileArray As Variant
        Dim row As Long, col As Long
        Dim maxRows As Long, maxCols As Long

        ' 2차원 배열 초기화 (예: Range에서 가져온 데이터)
        profileArray = Range("profile_list").Value

        ' 배열 크기 확인
        maxRows = UBound(profileArray, 1) ' 행 개수
        maxCols = UBound(profileArray, 2) ' 열 개수

        ' 배열 데이터 출력
        For row = 1 To maxRows
            For col = 1 To maxCols
                Debug.Print "Row: " & row & ", Col: " & col & " = " & profileArray(row, col)
            Next col
        Next row
    End Sub
  

 

Sub PrintMatrix(profileList As String)

• 주어진 프로필 리스트를 매개변수로 받아서 2차원 배열의 내용을 출력하는 서브루틴.

배열 초기화:

• profileArray = Range("profile_list").Value: 주어진 범위의 데이터를 2차원 배열로 초기화.

배열 크기 확인:

• maxRows = UBound(profileArray, 1): 배열의 행 개수.
• maxCols = UBound(profileArray, 2): 배열의 열 개수.

배열 데이터 출력:

• For row = 1 To maxRows: 행을 순회하는 반복문.
• For col = 1 To maxCols: 열을 순회하는 반복문.
• Debug.Print "Row: " & row & ", Col: " & col & " = " & profileArray(row, col): 현재 배열 요소의 값을 디버그 출력.