回答編集履歴
1
未使用関数を削除 & ファイルを上書きできないバグ除去
test
CHANGED
|
@@ -118,35 +118,13 @@
|
|
|
118
118
|
|
|
119
119
|
.Write xhr.responseBody
|
|
120
120
|
|
|
121
|
-
.SaveToFile ActiveWorkbook.Path & "\vbatemp"
|
|
121
|
+
.SaveToFile ActiveWorkbook.Path & "\vbatemp", adSaveCreateOverWrite
|
|
122
122
|
|
|
123
123
|
.Close
|
|
124
124
|
|
|
125
125
|
End With
|
|
126
126
|
|
|
127
127
|
End Sub
|
|
128
|
-
|
|
129
|
-
|
|
130
|
-
|
|
131
|
-
Private Function CreateRegExp(ByVal pattern As String, Optional ByVal ignoreCase As Boolean = True) As Object
|
|
132
|
-
|
|
133
|
-
Dim re As Object
|
|
134
|
-
|
|
135
|
-
Set re = CreateObject("VBScript.RegExp")
|
|
136
|
-
|
|
137
|
-
re.pattern = patternString
|
|
138
|
-
|
|
139
|
-
re.ignoreCase = ignoreCase
|
|
140
|
-
|
|
141
|
-
|
|
142
|
-
|
|
143
|
-
Set CreateRegExp = re
|
|
144
|
-
|
|
145
|
-
|
|
146
|
-
|
|
147
|
-
Set re = Nothing
|
|
148
|
-
|
|
149
|
-
End Function
|
|
150
128
|
|
|
151
129
|
|
|
152
130
|
|