回答編集履歴
4
一部削除
answer
CHANGED
|
@@ -36,15 +36,12 @@
|
|
|
36
36
|
(参照設定:Microsoft VBScript Regular Expressions5.5必要)
|
|
37
37
|
```ここに言語を入力
|
|
38
38
|
Option Explicit
|
|
39
|
-
|
|
40
39
|
Sub Test_Sample_Miniature()
|
|
41
40
|
|
|
42
41
|
Dim IE As InternetExplorerMedium
|
|
43
42
|
Dim ieDoc As HTMLDocument
|
|
44
43
|
Dim objs As IHTMLElementCollection
|
|
45
44
|
Dim obj As IHTMLElement
|
|
46
|
-
Dim obj2 As IHTMLElement
|
|
47
|
-
Dim obj3 As IHTMLElement
|
|
48
45
|
Dim j As Integer '行
|
|
49
46
|
Dim i As Integer '列
|
|
50
47
|
|
3
カンマ抜く
answer
CHANGED
|
@@ -104,7 +104,6 @@
|
|
|
104
104
|
For Each matA In mclA
|
|
105
105
|
'
|
|
106
106
|
j = j + 1: i = 4
|
|
107
|
-
'
|
|
108
107
|
MyStr = Mid(matA, InStr(matA, ">") + 1, Len(matA) - Len("</a>") - InStr(matA, ">"))
|
|
109
108
|
Worksheets("Sheet1").Cells(j, i).Value = "( " & j & " - " & i & " )" & MyStr
|
|
110
109
|
Worksheets("Sheet1").Cells(j, i).WrapText = False
|
2
カンマ挿入
answer
CHANGED
|
@@ -110,6 +110,7 @@
|
|
|
110
110
|
Worksheets("Sheet1").Cells(j, i).WrapText = False
|
|
111
111
|
'
|
|
112
112
|
Next
|
|
113
|
+
'
|
|
113
114
|
Next
|
|
114
115
|
'
|
|
115
116
|
Next
|
1
訂正
answer
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
解決されていますが、参考情報としてアップします。
|
|
2
|
-
(文字列は正規表現
|
|
2
|
+
(文字列は正規表現で編集)
|
|
3
3
|
|
|
4
4
|
読み込み対象html(名称:Test_Sample_Miniature.html)
|
|
5
5
|
```ここに言語を入力
|