「関数」タグの記事一覧

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

SPEAK("I was from France")

PATH	= "C:\\TEST.xls"
Excel	= XLOPEN(PATH)
Excel.application.displayalerts = false

MSGBOX("シート名を確認してください<#CR>シートを変更します")

SHEETNAME = "animal"
SS = XLACTIVATE( Excel,SHEETNAME)

IFB SS = 1
	PRINT SHEETNAME
ENDIF

MSGBOX("シート名を確認してください<#CR>シートを変更します")

SHEETNAME = "Sheet1"
SS = XLACTIVATE( Excel,SHEETNAME)

IFB SS = 1
	PRINT SHEETNAME
ENDIF

MSGBOX("シート名を確認してください<#CR>シートを変更します")

SHEETNAME = "Sheet2"
SS = XLACTIVATE( Excel,SHEETNAME)

IFB SS = 1
	PRINT SHEETNAME
ENDIF

MSGBOX("終了します")

PATH = INPUT("ファイルPATHを入力するか、ドラッグアンドドロップしてください")

Excel	= XLOPEN()
Excel.application.displayalerts = false
MSGBOX("[引数ファイルパス,新規]何か変更を加えてください")
XLCLOSE( Excel,PATH)


Excel	= XLOPEN(PATH)
Excel.application.displayalerts = false
MSGBOX("[引数ナシ]何か変更を加えてください")
XLCLOSE( Excel)

Excel	= XLOPEN(PATH)
Excel.application.displayalerts = false
MSGBOX("[引数ファイルパス]何か変更を加えてください")
XLCLOSE( Excel,PATH)


Excel	= XLOPEN(PATH)
Excel.application.displayalerts = false
MSGBOX("[引数TRUE]何か変更を加えてください")
XLCLOSE( Excel,TRUE)

////////////////////////初期設定▽▽

XLS1_NAME	= "アクセスデータ"
XLS2_NAME	= "成果計上"
XLS3_NAME	= "商品一覧"
XLS4_NAME	= "売上げ"

XLS1_PATH	= "C:\SAMPLE\アクセスデータ.xls"
XLS2_PATH	= "C:\SAMPLE\成果計上.xls"
XLS3_PATH	= "C:\SAMPLE\商品一覧.xls"
XLS4_PATH	= "C:\SAMPLE\売上げ.xls"

////////////////////////初期設定△△

SELECT SLCTBOX(SLCT_BTN,　0,　"EXCEL_OPEN",　XLS1_NAME,　XLS2_NAME,　XLS3_NAME,　XLS4_NAME)
	CASE SLCT_1
		PATH	= XLS1_PATH
	CASE SLCT_2
		PATH	= XLS2_PATH
	CASE SLCT_3
		PATH	= XLS3_PATH
	CASE SLCT_4
		PATH	= XLS4_PATH
SELEND

Excel	= XLOPEN(PATH)

// OKBtn ボタンが押されたら各入力値を取得する
ifb CREATEFORM("GETFORMDATA_SCRIPT.html", "GETFORMDATA_SCRIPT", False,, 300, 300, 600, 400) = "OKBtn"
	FRUITS	= GETFORMDATA("Text1")
	ANIMAL	= GETFORMDATA("Radio1")
	SPORTS	= GETFORMDATA("Radio2")
	AGE		= GETFORMDATA("Select1")
else
	print "キャンセル"
endif

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://canal22.org/sample11/")
BusyWait(IE)
IESetData(IE,FRUITS,"fruits")
IESetData(IE,ANIMAL,"animal")
IESetData(IE,SPORTS,"sports")
IESetData(IE,AGE,"age")

print "入力が完了しました"

//------
Procedure BusyWait(ie)
 repeat
	Sleep(0.2)
 until (! ie.busy) and (ie.readyState=4)
Fend

// OKBtn ボタンが押されたら各入力値を表示する
PATH	= "C:\TESTHTML.html"
TITLE	= "タイトル"
KB	= "構文："

MSGBOX("フォームのOKボタンを押して進んでください")

//①HELPにあるもののPATHとタイトルを変数化
obj = CREATEFORM(PATH,TITLE,FALSE,0, 500, 320)

//②オプションを指定して、幅、高さ、X、Yを指定
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,0,0, 500, 320)

//③二番目の幅を600に
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,600,0, 500, 320)

//④二番目の高さを600に
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,0,600, 500, 320)

//⑤二番目の幅200、高さ600
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,200,600, 500, 320)

//⑥五番目のXを0、Yを0
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,200,600, 0, 0)

//⑦五番目のXを600、Yを600
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE,200,600, 600, 600)

//⑧三番目のオプションを複数指定(最大化ボタンと最小化ボタン)
obj = CREATEFORM(PATH,TITLE,FALSE,FOM_MAXIMIZE OR FOM_MINIMIZE,600,0, 500, 320)