編集履歴

質問編集履歴

2020/01/31 04:19

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -32,23 +32,23 @@
 'aにアクティブセルの値を書き込み
-ActiveCell.Offset (0, 4). Select
+ActiveCell.Offset(0, 4).Select
 b = ActiveCell.Value
 'bにアクティブセルの値を書き込み
-Call misumi検索 (a, b)
+Call misumi検索(a, b)
 'プロシージャ misumi検索を呼び出し
-ActiveCell.Offset (1, -5).Select
+ActiveCell.Offset(1, -5).Select
 Loop
 End Sub
-Sub misumi検索 (KeyWD, Amount)
+Sub misumi検索(KeyWD, Amount)
@@ -76,9 +76,11 @@
 objIE.Visible = True
+'IEを開く
 'ミスミを開く
-objIE.navigate "https://jp.misumi-ec.com/"
+objIE.navigate “https://jp.misumi-ec.com/“
 '指定のURLにアクセス
@@ -106,7 +108,7 @@
 'Id要素 (keyword_input)に KeyWD
-.getElementByld(“keyword_go“).Click
+.getElementById(“keyword_go“).Click
 'Id要素 (keyword_go) をクリック
@@ -122,7 +124,7 @@
 'Shellをオブジェクトとしてセット
-For Each obiWindow In objShell.Windows
+For Each objWindow In objShell.Windows
 'ウィンドウの中から探す
@@ -132,7 +134,7 @@
 '変数をセット
-Do While objIE.Busy Or objIE. readyState <> READYSTATE_COMPLETE
+Do While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
 DoEvents
@@ -220,19 +222,21 @@
 'ClassName “m-btn--checkPrice VN_opacity“ を探して obj に格納
-obj.innerText = “価格を確認“ Then
+If obj.innerText = “価格を確認“ Then
 'その中から innerText が　“価格を確認“　を探して選択
-obi.Click
+obj.Click
 'それをクリック
+End If
-Exit For
+Exit For
-Next
+Next
-Call WaitFor(3)
+Call WaitFor(5)
 Set htmlDoc = objIE.document
@@ -246,7 +250,7 @@
 Next
-ActiveCell.Offset(0. 1).Select
+ActiveCell.Offset(0, 1).Select
 ActiveCell.Value = numExtract(objTag.innerText)

2020/01/31 04:18

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -26,7 +26,7 @@
 'セル　E3を選択
-Do Until ActiveCell.Value =　""
+Do Until ActiveCell.Value =　““
 a = ActiveCell.Value
@@ -70,7 +70,7 @@
 'IEを開く
-Set objIE = CreateObject("InternetExplorer.Application")
+Set objIE = CreateObject(“InternetExplorer.Application“)
 'IEをオブジェクトとしてセット
@@ -102,11 +102,11 @@
 'htmlDocを省略
-.getElementById("keyword_input ").Value = KeyWD
+.getElementById(“keyword_input“).Value = KeyWD
 'Id要素 (keyword_input)に KeyWD
-.getElementByld("keyword_go").Click
+.getElementByld(“keyword_go“).Click
 'Id要素 (keyword_go) をクリック
@@ -118,7 +118,7 @@
 '移動後のページからリンクを選択
-Set objShell = CreateObject("Shell.Application")
+Set objShell = CreateObject(“Shell.Application“)
 'Shellをオブジェクトとしてセット
@@ -126,7 +126,7 @@
 'ウィンドウの中から探す
-If objWindow.Name = "Internet Explorer" Then
+If objWindow.Name = “Internet Explorer“ Then
 Set objIE = objWindow
@@ -150,13 +150,13 @@
 'htmlDocのタイトルの中からサイト名の文字列を探す
-For Each obj In htmlDoc.getElementsByTagName("a")
+For Each obj In htmlDoc.getElementsByTagName(“a“)
 If obj.innerText = KeyWD Then
 'インナーテキストの(KeyWD) を探す
-Debug. Print obj.innerText
+Debug.Print obj.innerText
 obj.Click
@@ -184,7 +184,7 @@
 'htmlDoctをセット
-Do While objIE.Busy Or objIE. readyState < READYSTATE_COMPLETE
+Do While objIE.Busy Or objIE.readyState < READYSTATE_COMPLETE
 DoEvents
@@ -194,17 +194,17 @@
 'スクロール
-objIE.document.Script.setTimeout "javascript:scrollTo(0,500);", 1000
+objIE.document.Script.setTimeout “javascript:scrollTo(0,500);“, 1000
 Call WaitFor(2)
-For Each obj In htmlDoc.getElementsByClassName("m-inputText--right")
+For Each obj In htmlDoc.getElementsByClassName(“m-inputText--right“)
-'ClassName "m-input Text--risht"を探して obj に格納
+'ClassName “m-input Text--risht“を探して obj に格納
-If obj.innerText = "" Then
+If obj.innerText = ““ Then
-'その中から innerText が "" を探して選択
+'その中から innerText が ““ を探して選択
 obj.Value = Amount
@@ -216,13 +216,13 @@
 Next
-For Each obj In htmlDoc.getElementsByClassName("m-btn--checkPrice VN_opacity")
+For Each obj In htmlDoc.getElementsByClassName(“m-btn--checkPrice VN_opacity“)
-'ClassName "m-btn--checkPrice VN_opacity" を探して obj に格納
+'ClassName “m-btn--checkPrice VN_opacity“ を探して obj に格納
-obj.innerText = "価格を確認" Then
+obj.innerText = “価格を確認“ Then
-'その中から innerText が　"価格を確認"　を探して選択
+'その中から innerText が　“価格を確認“　を探して選択
 obi.Click
@@ -236,9 +236,9 @@
 Set htmlDoc = objIE.document
-For Each objTag In htmlDoc.getElementsByClassName("m-cartBox__desc")
+For Each objTag In htmlDoc.getElementsByClassName(“m-cartBox__desc“)
-If objTag.tagname = "dd" Then
+If objTag.tagname = “dd“ Then
 End If
@@ -280,7 +280,7 @@
 Dim futureTime As Date
-futureTime = DateAdd("s", second, Now)
+futureTime = DateAdd(“s“, second, Now)
 While Now < futureTime
@@ -298,7 +298,7 @@
 oneTxt = Mid(strValue, i, 1)
-If oneTxt Like "[0-9]" Then: numExtract = numExtract & oneTxt
+If oneTxt Like “[0-9]“ Then: numExtract = numExtract & oneTxt
 Next i

2020/01/31 04:04

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -22,7 +22,7 @@
 '品番を記憶
-Range("E3").Select
+Range(“E3“).Select
 'セル　E3を選択

2020/01/31 04:00

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

File without changes

2020/01/31 01:57

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

File without changes

2020/01/31 01:57

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -146,7 +146,7 @@
 'htmlDocをセット
-If InStr(htmI Doc. Title, strSite) > 0 Then
+If InStr(htmlDoc.Title, strSite) > 0 Then
 'htmlDocのタイトルの中からサイト名の文字列を探す

2020/01/31 01:57

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -42,7 +42,7 @@
 'プロシージャ misumi検索を呼び出し
-ActiveCell.0ffset (1, -5).Select
+ActiveCell.Offset (1, -5).Select
 Loop
@@ -246,7 +246,7 @@
 Next
-ActiveCell.0ffset(0. 1).Select
+ActiveCell.Offset(0. 1).Select
 ActiveCell.Value = numExtract(objTag.innerText)

画像の追加

2020/01/31 01:46

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -8,7 +8,7 @@
+![イメージ説明](5c7b9ef733fba533ca80435638613c49.jpeg)
 ```ここに言語を入力

2020/01/31 01:43

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -8,7 +8,9 @@
-<code>
+```ここに言語を入力
 Sub 参考価格所得
@@ -46,8 +48,6 @@
 End Sub
-ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
 Sub misumi検索 (KeyWD, Amount)
@@ -276,8 +276,6 @@
 End Sub
---------------------------------------------
 Function WaitFor(ByVal second As Integer)
 Dim futureTime As Date
@@ -292,8 +290,6 @@
 End Function
-----------------------------------------------------
 Function numExtract(strValue As String) As String
 Dim i As Integer
@@ -306,4 +302,6 @@
 Next i
-End  Function</code>
+End  Function
+```

2020/01/31 01:29

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -8,7 +8,7 @@
-```VBA
+<code>
 Sub 参考価格所得
@@ -306,4 +306,4 @@
 Next i
-End  Function
+End  Function</code>

2020/01/30 22:59

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -8,7 +8,7 @@
-コード
+```VBA
 Sub 参考価格所得

2020/01/30 22:57

投稿

K-G

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -74,7 +74,7 @@
 'IEをオブジェクトとしてセット
-obiIE.Visible = True
+objIE.Visible = True
 'ミスミを開く