作成者	カテゴリ	返答の対象		公開
ますこ 11/18/2009 04:43 PM		ビューの文書からフィールドの値を取得して配列に渡す

みなさま、お騒がせしてすみません。
何と解決できました。

後の方の参考のため以下をのせておきます。
もっとよい方法ありましたらレスしてください。

dim list() as variant
dim resultArr as variant
dim count as integer

While Not Doc Is Nothing
Redim Preserve list(i)
list(i) = Doc.category(0)
i = i + 1
Set Doc = View.GetNextDocument(Doc)
Wend
重複がないようにuniqueにする
resultArr = Arrayunique(list,0)
'重複を除いた数をカウント
count = Ubound(resultArr)
listCount = count