月間3万人以上が参考にするいろいろぶろぐ-人気ブログランキング

某市場一部上場企業にてコンサルタントをしています。

uwscについて(chromeで検索_Excelを1行ずつ検索_サンプル説明)

"UWSCについて"で記載させていただいた内容を少し詳細に書いていきますね。

 

例えば、chromeで検索マクロです。

chromeで検索_自動(1セルずつ下に).UWS

 

//開始***************************
WHILE TRUE

//*******************
//xls
xlsx_id=GETID("Excel","XLMAIN")
CTRLWIN(xlsx_id,ACTIVATE)
//*******************

 


//カーソル外す
KBD(VK_ESC,CLICK,40)

//コピー
KBD(VK_CTRL,DOWN,40)
KBD(VK_C,CLICK,40)
KBD(VK_CTRL,UP,40)


//クローム取得
act_id_1=GETID("Google Chrome","Chrome_WidgetWin_1")
//PRINT "act_id_1:"+act_id_1
CTRLWIN(act_id_1,ACTIVATE)
//ないとき
IFB (act_id_1<0) THEN
EXEC("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe")
act_id_1=GETID(GET_ACTIVE_WIN)
CTRLWIN(act_id_1,ACTIVATE)
ENDIF
//*******************
WHILE TRUE
SLEEP(0.1)
BREAK
ENDIF
WEND
//*******************

//クロームのタブを新規で開き貼り付けて検索
KBD(VK_CTRL,DOWN,40)
KBD(VK_T,CLICK,40)
KBD(VK_CTRL,UP,40)
KBD(VK_CTRL,DOWN,40)
KBD(VK_V,CLICK,40)
KBD(VK_CTRL,UP,31)

KBD(VK_RETURN,CLICK,40)


//
SLEEP(5)

//Excelに戻る
KBD(VK_CTRL,DOWN,40)
KBD(VK_W,CLICK,40)
KBD(VK_CTRL,UP,40)
//
SLEEP(0.1)

 


//*******************
//xls
CTRLWIN(xlsx_id,ACTIVATE)
//*******************

//
SLEEP(0.1)
KBD(VK_DOWN,CLICK,40)

 

//終了***************************
WEND