UWSC辞典

CONST xlFillDefault = 0
CONST xlFillCopy = 1
CONST xlFillSeries = 2
CONST xlFillFormats = 3
CONST xlFillValues = 4
CONST xlFillDays = 5
CONST xlFillWeekdays = 6
CONST xlFillMonths = 7
CONST xlFillYears = 8
CONST xlLinearTrend = 9
CONST xlGrowthTrend = 10
CONST xlFlashFill = 11

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM array[] = "北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", "茨城県", "栃木県", "群馬県", + _
				"埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", + _
				"岐阜県", "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", "奈良県", "和歌山県", + _
				"鳥取県", "島根県", "岡山県", "広島県", "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", + _
				"佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県"

Excel.AddCustomList(SLICE(array))

WITH Excel.Range("A1")
	.Value = array[0]
	.AutoFill(.Resize(47))
ENDWITH

//Excel.Quit

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM array[] = "甲子", "乙丑", "丙寅", "丁卯", "戊辰", "己巳", "庚午", "辛未", "壬申", "癸酉", + _
				"甲戌", "乙亥", "丙子", "丁丑", "戊寅", "己卯", "庚辰", "辛巳", "壬午", "癸未", + _
				"甲申", "乙酉", "丙戌", "丁亥", "戊子", "己丑", "庚寅", "辛卯", "壬辰", "癸巳", + _
				"甲午", "乙未", "丙申", "丁酉", "戊戌", "己亥", "庚子", "辛丑", "壬寅", "癸卯", + _
				"甲辰", "乙巳", "丙午", "丁未", "戊申", "己酉", "庚戌", "辛亥", "壬子", "癸丑", + _
				"甲寅", "乙卯", "丙辰", "丁巳", "戊午", "己未", "庚申", "辛酉", "壬戌", "癸亥"

Excel.AddCustomList(SLICE(array))

WITH Excel.Range("A1")
	.Value = array[0]
	.AutoFill(.Resize(60))
ENDWITH

//Excel.Quit

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM array[] = "おひつじ座", "おうし座", "ふたご座", "かに座", "しし座", "おとめ座", "てんびん座", "さそり座", "いて座", "やぎ座", "みずがめ座", "うお座"
// DIM array[] = "牡羊座", "牡牛座", "双子座", "蟹座", "獅子座", "乙女座", "天秤座", "蠍座", "射手座", "山羊座", "水瓶座", "魚座"

Excel.AddCustomList(SLICE(array))

WITH Excel.Range("A1")
	.Value = array[0]
	.AutoFill(.Resize(12))
ENDWITH

//Excel.Quit

WITH EXCEL.Range("A1")
	.Value = "1月"
	.AutoFill(.Resize(12))
ENDWITH