Excelにてテーブル内のデータを取得

GetTableInformation.vba

Sub GetTableInformation()
    Set 購入リストテーブル = Worksheets("購入").ListObjects("購入リストテーブル")
    
    For i = 1 To 購入リストテーブル.ListRows.Count
        商品名 = 購入リストテーブル.ListColumns("商品名").DataBodyRange(i)
        Debug.Print 商品名
        
        単価 = 購入リストテーブル.ListColumns("単価").DataBodyRange(i)
        Debug.Print 単価
        
        数量 = 購入リストテーブル.ListColumns("数量").DataBodyRange(i)
        Debug.Print 数量
        
        金額 = 購入リストテーブル.ListColumns("金額").DataBodyRange(i)
        Debug.Print 金額
    Next
End Sub