lotus-notes - Lotus Notes: variant() を freefile() .csv に出力/書き込み

Question

variant() --> "tmpArray" を .csv に出力する方法を知りたいだけですか? 私が今持っているコードでは、配列の最初の値にしかアクセスしていないからです。配列内のすべての値にアクセスして、.csv ファイルに出力したいと考えています。以下は私のコードです。提案/ヘルプをいただければ幸いです。ありがとう。

たとえば、同じ値の 3 つのドキュメントがあります。

tmpArray3(0) = 2,999
tmpArray3(1) = 4,999
tmpArray4(0) = 1,000
tmpArray4(1) = 5,903

最初のドキュメントに印刷されているのは、2,999 と 1,000 です。2 番目のドキュメントに印刷されているのは、2,999 と 1,000 です。3 番目のドキュメントに印刷されているのは、2,999 と 1,000 です。

バリアント配列の 2 番目の値に進んでいません。

 Do While doccount1 < 11 AND Not v2entry Is Nothing

            ReDim Preserve tmpArray3(tmpcount3)
            ReDim Preserve tmpArray4(tmpcount4)

            tmpArray3(tmpcount3) = v2entry.ColumnValues(3)
            tmpArray4(tmpcount4) = v2entry.ColumnValues(4)
           

            doccount1 = doccount1 + 1

            tmpcount3=tmpcount3 + 1
            tmpcount4=tmpcount4 + 1
         

            Print #datafileNum%,(tmpArray3(0) & ";" & tmpArray4(0))
            Set v2entry = vc.GetNextEntry(v2entry)

        Loop
    Next
    Close datafileNum%
    Exit Sub