EXCEL VBA TIPS

キーワードサーチ

▼キーワード検索

プロフィール

EXCEL VBA TIPS

フォローする

楽天カード

カレンダー

お気に入りブログ

バンの日記 バン3105さん
Ｌｅｎｏ★ROOM レノママ♪さん
ＲＳ　うけぽの独り言 うけぽさん
ＬＡＨＡＩＮＡ’ｓ … lahaina13さん
ウサといっ緒　今日… チェシゃ猫さん

コメント新着

RaymondArout@ Безопасность Впервые с начала противостояния в украи…

RaymondArout@ Сенаторы Впервые с начала противостояния в украи…

RaymondArout@ Санкции Впервые с начала операции в украинский …

Harveytoogs@ сериалы онлайн сезон Элита сериалы он-лайн шара в течение пр…

RaymondArout@ Демократы Впервые с начала спецоперации в украинс…

フリーページ

2009.02.05

新生銀行セキュリティ番号猶予期間終わってしまった→だいたい自動化できた

テーマ：パソコン講師(288)

カテゴリ：カテゴリ未分類

セキュリティ・カード受領後2週間はチェックをスルーできたのだが、今日から必須となっていた
自動化は面倒かなとおもってた、だって表がでてそこの色が変わった座標を認識しないといけないじゃない
でも何のことはない。表みなくても、入力boxの上に座標が表示されてるじゃん
あの表って何の意味あるの?見やすいと勘違いするだけだよ。結局”A列の3行"とかカード上で確認するんだから
画面の表とカードを照らし合わせるなんて絶対ないのに、つまんないとこに労力つかってんの
ただPopupなどまた面倒なことしやがって、こいつはsendkeyっしかダメなのかな？これ以外は解決
Worksheets("account").Cells(11, 4)から5列にセキュリティの表の1行をそれぞれ設定してください
画面の座標からセルの値を取り出し入力boxに代入するのを追加したよ
コードは下記

s = objIE.Document.body.innerhtml
s = strmid(s, "セキュリティ・カード", "")
s_key(0) = Worksheets("account").Cells(11, 4)
s_key(1) = Worksheets("account").Cells(12, 4)
s_key(2) = Worksheets("account").Cells(13, 4)
s_key(3) = Worksheets("account").Cells(14, 4)
s_key(4) = Worksheets("account").Cells(15, 4)
For i = 0 To 2
s_pos = strmid(s, "<TH width=""15%"">", "<")
p(i) = Mid(s_key(CInt(Right(s_pos, 1))), Asc(Left(s_pos, 1)) - 64, 1)
Next

Debug.Print objTAG.tagName & ":" & TypeName(objTAG)
Tag = objTAG.tagName
If Tag = "INPUT" Then
objName = objTAG.name
'If objName = "securitykeyboard" Then objTAG.Click

If objName = "fldGridChg2" Then objTAG.Value = p(1)
If objName = "fldGridChg3" Then objTAG.Value = p(2)
If objName = "Login" Then
objTAG.Click
Call ie_wait(objIE)
Exit For
End If
End If
Next