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

実行結果

関連記事一覧

NEW