Excel VAB経由でkintoneのデータをダウンロードしたいです。
下記にサンプルを基にPG修正をしているのですが、サブテーブルのデータを抽出仕方がわかりません。
https://github.com/marmeleiro/kintoneDataReaderforVBA
すみませんが、どのよう記述したらサブテーブルからデータを抽出できるのかを教えて頂けるでしょうか?
よろしくお願いいたします。
下記がVBAデバックでテーブルを確認した結果です。
fval > fVal(0) > Item1~Item4の配列の値を抽出したいです。
Isozumiさん
fvalの中に、1レコード中のテーブルデータがすべて入っています。
テーブルの値はコレクション型の配列になっており、このようなイメージで値が入っています。
fVal(0)(1) ・・・テーブル1行目・1つ目のフィールド値
fVal(0)(2) ・・・テーブル1行目・2つ目のフィールド値
fVal(0)(3) ・・・テーブル1行目・3つ目のフィールド値
fVal(1)(1) ・・・テーブル2行目・1つ目のフィールド値
fVal(1)(2) ・・・テーブル2行目・2つ目のフィールド値
fVal(1)(3) ・・・テーブル2行目・3つ目のフィールド値
上記を踏まえて、以下のように記述すればよいかと思います。
For j = LBound(fVal) To UBound(fVal) '行のループ
For Each v In fVal(j) 'フィールドのループ
'取得したフィールド値の処理
Next
Next
なお、テーブル内のフィールド並び順やフィールドタイプなどの情報取得方法については、サンプルコードの「アプリ・フィールドコード情報取得」部分に記載されていますので、そちらを参照ください。
Caryncoさん
ご教授有難うございます。
教えて頂いた方法でPG修正してみます。