UWSCでExcelの内容から連想配列を作成する

uwsc
連想配列作成のサンプル
以下「sample.xlsx」を用意します。

上記の表を連想配列に格納します。
連想配列については
https://www.sinmei.info/uwsc-basic-hashtbl/
以下を参照ください。
// 配列の宣言
HASHTBL levelAry = HASH_CASECARE or HASH_SORT
// Excelのオブジェクト生成
EXCEL = CREATEOLEOBJ("Excel.Application")
// Excelは非表示
EXCEL.visible = false
// 読み取り専用で開く
book = EXCEL.Workbooks.open(GET_CUR_DIR + "\" + "sample.xlsx", ReadOnly:=true)
// 最終行を取得する
maxRow = book.sheets(1).range("A65536").End(-4162).Row
sheet = book.sheets(1)
for i = 2 to maxRow
level1 = sheet.cells(i, 1).value
level2 = sheet.cells(i, 2).value
// 既にキーがある場合はカンマ区切りで追加
if levelAry[level1 , HASH_EXISTS] = true then
level = levelAry[level1]
level = level + "," + level2
levelAry[level1] = level
else
levelAry[level1] = level2
endif
next
// Excel閉じる(ダイアログ表示させない)
EXCEL.DisplayAlerts = False
book.Close
EXCEL.DisplayAlerts = True
// プロセス削除
ctrlwin(EXCEL, CLOSE)
// HashTableの表示
for i = 0 to length(levelAry) - 1
print "key=" + levelAry[i, HASH_KEY] + "," + "value=" + levelAry[i, HASH_VAL]
next
実行結果
