PR
Calendar
リチェーオ
。
Freepage List
Keyword Search
▼キーワード検索
【亜】arisa no nons…
no_nonsenseさん
B-B-アイランド KとＢビアンさん
迷いまくりの羊 羊飼いの人さん
☆パーマーやでぇ☆ パーマー２００８さん
Heart of sprouts … Alpha Cygniさん
B-B-アイランド KとＢビアンさん
迷いまくりの羊 羊飼いの人さん
☆パーマーやでぇ☆ パーマー２００８さん
Heart of sprouts … Alpha Cygniさん
Comments
Category
ひとりごと
(241)日常
(9)やりたいこと
(2)予定・課題
(0)処世のために
(18)お勉強
(60)健康
(6)卓球
(13)ガーデニング
(5)ファッション
(1)恋愛
(23)化学
(1)大学
(0)妄言
(8)うちのかぞく
(4)ブロック・パーティー
(6)コリーヌ・ベイリー・レイ
(1)ノラ・ジョーンズ
(1)アヴリル・ラヴィーン
(1)リアーナ
(1)ジェームス・ブラント
(1)テイク・ザット
(2)マルーン ファイブ
(1)カイザー・チーフス
(1)ビリー・ジョエル
(1)t.A.T.u.
(1)フーバスタンク
(1)Sandi Thom
(1)Editors
(1)エイミー･ワインハウス
(2)The Fray
(1)音楽ネタ
(8)オアシス
(0)きゃりーぱみゅぱみゅ
(0)心理学関係
(20)English and Japanese Beginners
(12)My Chemical Romance
(1) 2017.11.12
カテゴリ： お勉強
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If
'----------------------------------------------------------------
'①指定URLを表示するサブルーチン「ieView」
Sub ieView(objIE As InternetExplorer, _
urlName As String, _
Optional viewFlg As Boolean = True)
'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")
'IE(InternetExplorer)を表示・非表示
objIE.Visible = viewFlg
'指定したURLのページを表示する
objIE.navigate urlName
'IEが完全表示されるまで待機
Call ieCheck(objIE)
End Sub
'----------------------------------------------------------------
'②Webページ完全読込待機処理サブルーチン「ieCheck」
Sub ieCheck(objIE As InternetExplorer)
Dim timeOut As Date
timeOut = Now + TimeSerial(0, 0, 20)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop
timeOut = Now + TimeSerial(0, 0, 20)
Do While objIE.document.readyState <> "complete"
DoEvents
Sleep 1
If Now > timeOut Then
objIE.Refresh
timeOut = Now + TimeSerial(0, 0, 20)
End If
Loop
End Sub
'----------------------------------------------------------------
'▼サブルーチンを利用して複数サイトをIEで起動させるマクロ
Sub sample()
Dim objIE As InternetExplorer
Dim objIE2 As InternetExplorer
'本サイトをIEで起動
Call ieView(objIE, "http://www.yahoo.co.jp/")
'yahooサイトをIEで起動
Call ieView(objIE2, "http://www.yahoo.co.jp/")
End Sub
Sub 担当者情報変更_役職()
Dim celval As String
celval = Worksheets("担当者情報").Cells(1, 1).Value
Call estVal(celval)
Dim objIE As InternetExplorer
'サイトをIEで起動
Call ieView(objIE, "http://www.yahoo.co.jp/")
Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
Dim elForm As IHTMLElement, elBtn As IHTMLElement, elPlaceholder As IHTMLElement 'IHTMLElementオブジェクトを準備
'Set elForm = htmlDoc.getElementsByName("sf1")(0) 'formをセット
Set elBtn = htmlDoc.getElementById("srchbtn")
Set elPlaceholder = htmlDoc.getElementById("srchtxt") '検索窓をセット
elPlaceholder.Value = celval '検索窓にキーワードを入力
'elForm.submit '送信
elBtn.Click
End Sub
Sub estVal(celval As String)
Debug.Print Mid(celval, InStr(celval, "e-sta:") + 6)
celval = Mid(celval, InStr(celval, "e-sta:") + 6)
End Sub
お気に入りの記事を「いいね！」で応援しよう
Last updated
2017.11.12 22:44:24 コメントを書く
[お勉強] カテゴリの最新記事
-
webスクレイピング？練習 2017.11.19 コメント(1)
-
DB化構想20171119 2017.11.19
-
Mgr承認メモ 2017/11/19 2017.11.19
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
