212302 ランダム
 ホーム | 日記 | プロフィール 【フォローする】 【ログイン】

EXCEL VBA TIPS

EXCEL VBA TIPS

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

PR

キーワードサーチ

▼キーワード検索

プロフィール

EXCEL VBA TIPS

EXCEL VBA TIPS

楽天カード

カレンダー

お気に入りブログ

バンの日記 バン3105さん
Leno★ROOM レノママ♪さん
RS うけぽの独り言 うけぽさん
LAHAINA’s … lahaina13さん
ウサといっ緒 今日… チェシゃ猫さん

コメント新着

RaymondArout@ Безопасность Впервые с начала противостояния в украи…
RaymondArout@ Сенаторы Впервые с начала противостояния в украи…
RaymondArout@ Санкции Впервые с начала операции в украинский …
Harveytoogs@ сериалы онлайн сезон Элита сериалы он-лайн шара в течение пр…
RaymondArout@ Демократы Впервые с начала спецоперации в украинс…

フリーページ

ニューストピックス

2009.05.21
XML
テーマ:FXの取引(1204)
カテゴリ:カテゴリ未分類
先頭2行をユーザid,パスワードの代入文に変更してください
id=""
pw=""
Dim objIE0
'対象画面を検索、なければ開く(必要に応じ使用してください)
Set xShell = CreateObject("Shell.Application")
win_s = False
For Each Window In xShell.Windows '対象URLが表示されているか?
If TypeName(Window.Document) = "HTMLDocument" Then
if Window.Document.url="https://www.fxking.jp/mypage/Login.action" then
Set objIE0 = Window '対象URLが表示→その画面を使う
win_s=true
exit for
end if
end if
next
if win_s=false then '対象URLが非表示→新しく画面を開く
Set objIE0 = CreateObject("InternetExplorer.Application")
objIE0.Visible = True
objIE0.Navigate "https://www.fxking.jp/mypage/Login.action"
Do While objIE0.busy = True
Loop
Do While objIE0.document.readyState <> "complete"
Loop
end if
'---header end---
'---以下操作コード、必要な部分をコピーしてください---
objIE0.document.all.fxkingId.value=id ' text index=0
objIE0.document.all.password.value=pw ' password index=1
objIE0.document.all.btn_login.click ' image btn_login submit or tags("INPUT").item(2).Click





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

最終更新日  2009.05.21 09:35:50
コメント(0) | コメントを書く



© Rakuten Group, Inc.
X