getxls.hsp

sample\comobj\getxls.hsp » Plain Format

	;
	;	xlsのデータを取得する
	;
	myname = "test.xls"
	fname = dir_cur+"\\"+myname	; フルパスを作成する
	;
	newcom xlApp, "Excel.Application"
	xlApp("Visible") = 0; Excelウィンドウは非表示
	xlApp("DisplayAlerts") = 0; 警告メッセージを表示させない
	xlBooks = xlApp("Workbooks") ; Workbooks コレクション取得
	xlBooks->"Open" fname		; 指定ファイルを開く
	xlBook = xlBooks("Item",myname)		; book取得
	xlSheet = xlBook("Worksheets","Sheet1") ; Sheet取得
	xlRange = xlSheet("Range","A1")
	xlCurReg = xlRange("CurrentRegion")
	xlRows = xlCurReg("Rows")
	xlColumns = xlCurReg("Columns")

	sy = 0+xlRows("Count")			; 縦の項目数を取得
	sx = 0+xlColumns("Count")		; 横の項目数を取得

	repeat sy:y=cnt
	repeat sx:x=cnt
		xlCur = xlRange("Offset",y,x)	; X,Yのセルを取得
		data = xlCur("Text")		; 内容テキストを取り出す
		mes "("+x+","+y+")="+data	; 表示する
	loop
	loop

	;	COMのあとしまつ
	delcom xlCur : delcom xlColumns : delcom xlRows
	delcom xlCurReg : delcom xlRange : delcom xlSheet
	delcom xlBook
	xlBooks->"Close" : delcom xlBooks
	xlApp->"Quit" : delcom xlApp