「2012年10月」のアーカイブ

DIM SHEET[2] = "UWSC","KOBA","YASHI"


Excel = XLOPEN(,True) //ファイルオープン

MSGBOX("シートの追加します")

FOR KAISU = 0 TO 2
	SHEETNAME = SHEET[KAISU]
	PRINT SHEETNAME + "追加"
	XLSHEET(Excel,SHEETNAME,FALSE)
	MSGBOX(" OK ")
NEXT

MSGBOX("追加したシートを削除をします")

FOR KAISU = 0 TO 2
	SHEETNAME = SHEET[KAISU]
	PRINT SHEETNAME + "削除"
	XLSHEET(Excel,SHEETNAME,TRUE)
	MSGBOX(" OK ")
NEXT

EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.add()
PRINT "絶対参照："   + EXCEL.ActiveCell.Address()

EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.add()
EXCEL.activeworkbook.worksheets.add()
FOR A = 1 TO Excel.activeworkbook.worksheets.count
 PRINT Excel.activeworkbook.worksheets(A).name
NEXT

EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.open("C:\Users\root\Desktop\yes.xls")

EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.add()
EXCEL.activeworkbook.worksheets.add()

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true
IE.navigate("http://canal22.org/sample0005/")
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
MSGBOX("ウィンドウを閉じます")
IE.quit

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true
IE.navigate("http://canal22.org/sample0012/")
 
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4

//「名前」=大小山田を入力
IE.document.forms[0].elements[0].value = "大小山田"
//「都道府県」=北海道を選択
IE.document.forms[0].elements[1].selectedIndex =  3
//「性別」=女性にチェック
IE.document.forms[0].elements[3].checked = True
//「好きな色」=赤、青、黄にチェック
IE.document.forms[0].elements[5].checked = True
IE.document.forms[0].elements[6].checked = True
IE.document.forms[0].elements[7].checked = True
//「パスワード」=1234567890を入力
IE.document.forms[0].elements[8].value = "1234567890"
//「備考」=改行を含む文字列を入力
IE.document.forms[0].elements[9].value = "Hola!<#CR>こんにちは"

MSGBOX("一度リセットします")
IE.document.forms[0].reset()

MSGBOX("再度入力します")

//「名前」=大小山田を入力
IE.document.forms[0].elements[0].value = "大小山田"
//「都道府県」=北海道を選択
IE.document.forms[0].elements[1].selectedIndex =  3
//「性別」=女性にチェック
IE.document.forms[0].elements[3].checked = True
//「好きな色」=赤、青、黄にチェック
IE.document.forms[0].elements[5].checked = True
IE.document.forms[0].elements[6].checked = True
IE.document.forms[0].elements[7].checked = True
//「パスワード」=1234567890を入力
IE.document.forms[0].elements[8].value = "1234567890"
//「備考」=改行を含む文字列を入力
IE.document.forms[0].elements[9].value = "Hola!<#CR>こんにちは"

MSGBOX("サブミットします※プログラムは用意していないため「ページが無い」エラーがでます")
IE.document.forms[0].ok.click()

⇒技術的な講習や、質問課題の解決を目的とはしていない事をご留意下さい。
つまり、分かる範囲でその場で質問に答えますが、アフターケア等は対応しません。

⇒喫茶店は会場として予約・確保したものではありません。
座席、電源設備が必ずあるとは限りません。
あくまで喫茶、談話をする場所として喫茶店に集合している点をご留意下さい。

⇒お茶会の参加費は無料ですが、通常喫茶店を利用するのと同じく
必ず何かオーダーをして下さい。

⇒他の喫茶店利用客の迷惑にならないよう、マナーやエチケットをご順守下さい。

⇒事前の登録申込は不要ですが、予めTwitterや、下記フォームから
参加のご連絡を頂けた方には席を確保します。(※一定数を超えた場合は、希望に沿えない場合もあります。)

申込みフォーム