ディクショナリの全項目を取得する

サンプルソース

' ディクショナリオブジェクトを生成
Set objDic = CreateObject("Scripting.Dictionary")

' キーと項目を追加
objDic.Add "aaa", "伊藤"
objDic.Add "bbb", "田中"
objDic.Add "ccc", "鈴木"

aryTemp = objDic.Items
For i = 0 To objDic.Count -1
    Cells(1,1) = "項目:" & aryTemp(i)
Next

' ディクショナリオブジェクトを解放
Set objDic = Nothing

解説

Scripting.Dictionaryは任意の形のデータを格納するディクショナリのオブジェクトです。

Itemsで全ての項目を格納した配列を返します。





ディクショナリ操作




Excel VBA講座




アクセスランキング


文字操作
関連する内容
データ型操作
日付操作
配列操作
ファイル操作
データベース操作
ディクショナリ操作


Copyright (C) Excel@Workshop All rights reserved.