質問編集履歴
4
投稿ルールに従いました。またコード間違いを修正しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -70,8 +70,6 @@
|
|
70
70
|
|
71
71
|
**Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")**
|
72
72
|
|
73
|
-
|
74
|
-
|
75
73
|
With CreateObject("VBScript.RegExp")
|
76
74
|
|
77
75
|
.Pattern = ">([^<>]+)<"
|
3
投稿ルールに従いました。またコード間違いを修正しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -33,6 +33,8 @@
|
|
33
33
|
```VBA
|
34
34
|
|
35
35
|
Const urlk1 As String = "https://info.finance.yahoo.co.jp/history/?code=4762.T"
|
36
|
+
|
37
|
+
|
36
38
|
|
37
39
|
Sub 取得1()
|
38
40
|
|
@@ -121,3 +123,5 @@
|
|
121
123
|
DoEvents
|
122
124
|
|
123
125
|
End Sub
|
126
|
+
|
127
|
+
```
|
2
投稿ルールに従いました。またコード間違いを修正しました。
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
正規表現で
|
1
|
+
正規表現でWEBからデータを取得しようとするとsendメソッドでエラーが出る
|
test
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")が上手くいかないのか
|
10
10
|
|
11
|
-
oHttp.Sendのところで「実行時エラー'-2147012867 サーバーに接続できませんでした」とでてきます。
|
11
|
+
下記oHttp.Sendのところで「実行時エラー'-2147012867 サーバーに接続できませんでした」とでてきます。
|
12
12
|
|
13
13
|
どなたか解決方法をご存知の方がいらっしゃればご教示お願いできませんでしょうか。
|
14
14
|
|
@@ -30,13 +30,9 @@
|
|
30
30
|
|
31
31
|
|
32
32
|
|
33
|
-
---
|
34
|
-
|
35
33
|
```VBA
|
36
34
|
|
37
35
|
Const urlk1 As String = "https://info.finance.yahoo.co.jp/history/?code=4762.T"
|
38
|
-
|
39
|
-
---
|
40
36
|
|
41
37
|
Sub 取得1()
|
42
38
|
|
@@ -112,15 +108,11 @@
|
|
112
108
|
|
113
109
|
For j = 1 To itmsu
|
114
110
|
|
115
|
-
' Debug.Print j, .Item(j).SubMatches(0)
|
116
|
-
|
117
111
|
hdat(j + hosei) = .Item(j).SubMatches(0)
|
118
112
|
|
119
113
|
Next j
|
120
114
|
|
121
115
|
End With
|
122
|
-
|
123
|
-
' On Error GoTo 0
|
124
116
|
|
125
117
|
End With
|
126
118
|
|
@@ -129,5 +121,3 @@
|
|
129
121
|
DoEvents
|
130
122
|
|
131
123
|
End Sub
|
132
|
-
|
133
|
-
```
|
1
コードが一部間違っておりました。失礼いたしました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -28,9 +28,15 @@
|
|
28
28
|
|
29
29
|
### 該当のソースコード
|
30
30
|
|
31
|
-
--------------------------------
|
32
31
|
|
32
|
+
|
33
|
+
---
|
34
|
+
|
35
|
+
```VBA
|
36
|
+
|
33
|
-
Const
|
37
|
+
Const urlk1 As String = "https://info.finance.yahoo.co.jp/history/?code=4762.T"
|
38
|
+
|
39
|
+
---
|
34
40
|
|
35
41
|
Sub 取得1()
|
36
42
|
|
@@ -122,8 +128,6 @@
|
|
122
128
|
|
123
129
|
DoEvents
|
124
130
|
|
125
|
-
Call 貼付
|
126
|
-
|
127
131
|
End Sub
|
128
132
|
|
129
|
-
|
133
|
+
```
|