EXCEL VBA TIPS

キーワードサーチ

▼キーワード検索

プロフィール

EXCEL VBA TIPS

フォローする

楽天カード

カレンダー

お気に入りブログ

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

コメント新着

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

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

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

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

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

フリーページ

2009.02.04

イーバンク・ログイン生年月日自動入力

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

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

1月末くらいから、id、パスワード入力後に生年月日を入力しなければならない場合がある
面倒なことに、こんなところにselectになっている
・前提
　Worksheets("account").Cells(2, 14).Valueに西暦で生年
　Worksheets("account").Cells(2, 14).Valueに生月
　Worksheets("account").Cells(2, 14).Valueに生日
以下id、パスワード入力後のソースです。前後は過去のブログにありますのでそちらを訂正してください
s = objIE.Document.body.innerhtml
If InStr(s, "生年月日") > 0 Then

objIE.Document.all.tags("SELECT").Item(1).selectedIndex = Worksheets("account").Cells(3, 14).Value - 1
objIE.Document.all.tags("SELECT").Item(2).selectedIndex = Worksheets("account").Cells(4, 14).Value - 1
objIE.Document.all.tags("INPUT").Item(0).Click
Call ie_wait(objIE)
End If

お気に入りの記事を「いいね！」で応援しよう