teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VBA マクロ　を使って、毎日のデータ更新をしたいです

編集履歴

質問編集履歴

4

画像の修正

2016/06/02 19:36

投稿

sugerShogo
sugerShogo

スコア18

test CHANGED
File without changes
test CHANGED
@@ -18,9 +18,7 @@
18
18
 
19
19
  ↓このような感じです
20
20
 
21
- ![イメージ説明](2c43e4fe72867a2cc1b5ab604b85485f.png)
21
+ http://iup.2ch-library.com/i/i1656034-1464896090.png
22
-
23
-
24
22
 
25
23
 
26
24
 
@@ -29,6 +27,8 @@
29
27
 
30
28
 
31
29
  ###該当のソースコード
30
+
31
+
32
32
 
33
33
 
34
34
 

3

ソースコード、画像の追加

2016/06/02 19:36

投稿

sugerShogo
sugerShogo

スコア18

test CHANGED
File without changes
test CHANGED
@@ -18,7 +18,7 @@
18
18
 
19
19
  ↓このような感じです
20
20
 
21
- ![イメージ説明](fafddd31a5a1d3a64e95e8c65eb39f91.png)
21
+ ![イメージ説明](2c43e4fe72867a2cc1b5ab604b85485f.png)
22
22
 
23
23
 
24
24
 
@@ -32,81 +32,107 @@
32
32
 
33
33
 
34
34
 
35
-
36
-
37
- Sub データ抽出(Day_日付 As Date, Lng_場 As Long, Lng_レース As Long)
35
+ Sub 桐生(Lng_日付 As Long, Lng_場 As Long, Lng_初日 As Long)
38
36
 
39
37
 
40
38
 
41
- Dim Str_アドレス As String
39
+ Dim Str_アドレス As String
42
-
43
- Dim Day_初日 As Date
44
40
 
45
41
 
46
42
 
47
- Day_初日 = Day_日付 - Weekday(Day_日付, vbTuesday) + 1
43
+ Sheet 桐生.Select
48
44
 
49
- Str_アドレス = "FINDER;http://app.boatrace.jp/race/" & Format(Lng_場, "00")
45
+ Cells.Delete Shift:=xlUp
50
46
 
51
- Str_アドレス = Str_アドレス & "_" & Format(Day_初日, "yyyymmdd")
47
+ For Lng_レース = 1 To 12
52
48
 
53
- Str_アドレス = Str_アドレス & ".php?day=" & Format(Day_日付, "yyyymmdd")
54
49
 
55
- Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
56
50
 
57
- Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
51
+ Str_アドレス = "FINDER;http://app.boatrace.jp/race/" & Format(Lng_場, "00")
58
52
 
59
- Sheets("作業").Select
53
+ Str_アドレス = Str_アドレス & "_" & Format(Lng_初日, "yyyymmdd")
60
54
 
61
- Cells.Delete Shift:=xlUp
55
+ Str_アドレス = Str_アドレス & ".php?day=" & Format(Lng_日付, "yyyymmdd")
62
56
 
63
- With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=Range("A1"))
57
+ Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
64
58
 
65
- .Name = "Data"
59
+ Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
66
60
 
67
- .FieldNames = True
68
61
 
69
- .RowNumbers = False
70
62
 
71
- .FillAdjacentFormulas = False
63
+ Dim str_列 As String
72
64
 
73
- .PreserveFormatting = False
65
+ If Lng_レース < 8 Then
74
66
 
75
- .RefreshOnFileOpen = False
67
+ str_列 = Chr(Asc("A") + (Lng_レース - 1) * 4)
76
68
 
77
- .BackgroundQuery = False
69
+ Else
78
70
 
79
- .RefreshStyle = xlInsertDeleteCells
71
+ str_列 = "A" & Chr(Asc("A") + ((Lng_レース - 1) * 4) - 26)
80
72
 
81
- .SavePassword = False
73
+ End If
82
74
 
83
- .SaveData = True
84
75
 
85
- .AdjustColumnWidth = True
86
76
 
87
- .RefreshPeriod = 0
77
+ Dim Lng_列 As Long
88
78
 
89
- .WebSelectionType = xlEntirePage
79
+ Lng_列 = ((Lng_レース - 1) * 4) + 1
90
80
 
91
- .WebFormatting = xlWebFormattingAll
92
81
 
93
- .WebPreFormattedTextToColumns = True
94
82
 
95
- .WebConsecutiveDelimitersAsOne = True
83
+ Dim rng_出力 As Range
96
84
 
97
- .WebSingleBlockTextImport = False
85
+ Set rng_出力 = Range(Cells(1, Lng_列))
98
86
 
99
- .WebDisableDateRecognition = False
100
87
 
101
- .WebDisableRedirections = False
102
88
 
103
- .Refresh BackgroundQuery:=False
89
+ With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=rng_出力)
104
90
 
91
+ .Name = "Data"
92
+
93
+ .FieldNames = True
94
+
95
+ .RowNumbers = False
96
+
97
+ .FillAdjacentFormulas = False
98
+
99
+ .PreserveFormatting = False
100
+
101
+ .RefreshOnFileOpen = False
102
+
103
+ .BackgroundQuery = False
104
+
105
+ .RefreshStyle = xlInsertDeleteCells
106
+
107
+ .SavePassword = False
108
+
109
+ .SaveData = True
110
+
111
+ .AdjustColumnWidth = True
112
+
113
+ .RefreshPeriod = 0
114
+
115
+ .WebSelectionType = xlEntirePage
116
+
117
+ .WebFormatting = xlWebFormattingAll
118
+
119
+ .WebPreFormattedTextToColumns = True
120
+
121
+ .WebConsecutiveDelimitersAsOne = True
122
+
123
+ .WebSingleBlockTextImport = False
124
+
125
+ .WebDisableDateRecognition = False
126
+
127
+ .WebDisableRedirections = False
128
+
129
+ .Refresh BackgroundQuery:=False
130
+
105
- End With
131
+ End With
132
+
133
+ Next
106
134
 
107
135
  End Sub
108
-
109
-
110
136
 
111
137
  ###試したこと
112
138
 

2

エラーメッセージ、質問内容

2016/06/02 05:08

投稿

sugerShogo
sugerShogo

スコア18

test CHANGED
File without changes
test CHANGED
@@ -18,7 +18,7 @@
18
18
 
19
19
  ↓このような感じです
20
20
 
21
- ![イメージ説明](fae5ce03bb72bdd6c62e1f71ee2cdd6f.png)###
21
+ ![イメージ説明](fafddd31a5a1d3a64e95e8c65eb39f91.png)
22
22
 
23
23
 
24
24
 

1

エラーメッセージ、質問内容

2016/06/02 04:56

投稿

sugerShogo
sugerShogo

スコア18

test CHANGED
File without changes
test CHANGED
@@ -1,8 +1,8 @@
1
1
  ###前提・実現したいこと
2
2
 
3
- 一、開催場所別にシートを分けているので、それぞれのシートに１２レース分表示したい(A１セル、E１セル...と順に横にずれてほしいです)。
3
+ 一、開催場所別にシートを分けているので、それぞれ会場のシートに１２レース分表示したい(A１セル、E１セル...と順に横にずれてほしいです)。
4
4
 
5
- 一、開催場所でレースがない場合は、サイト自体ない(エラーが起きる)のでその時はA1セルに本日のレースはありませんと表示したい
5
+ 一、開催場所でレースがない場合は、webサイト自体ない(エラーが起きる)のでその時はA1セルに本日のレースはありませんと表示したい
6
6
 
7
7
 
8
8
 
@@ -14,7 +14,15 @@
14
14
 
15
15
  ```
16
16
 
17
- 一、今日の江戸川のデータを取ろうとしても、初日が今日の日付になり開けない。
17
+ 初日の日を何とかwebサイトから落として表示できるようになったのですが、つぎはマクロがなぜかエラーが起きるようになってしまいました
18
+
19
+ ↓このような感じです
20
+
21
+ ![イメージ説明](fae5ce03bb72bdd6c62e1f71ee2cdd6f.png)###
22
+
23
+
24
+
25
+
18
26
 
19
27
  ```
20
28
 
@@ -102,9 +110,7 @@
102
110
 
103
111
  ###試したこと
104
112
 
105
- いろいろ試したがVBA初心者なので全滅でした。このVBAも組んでもらったのですが、その人に組みなおしていただきたいのですができませんでしたので、ここで質問させていただきました。
113
+ jawaさんが書いてくださったマクロを元に初日をC3セルから取り込むようにしようとしたのですが、勝手にマクロを書き換えたせいか、できなくなりました。
106
-
107
-
108
114
 
109
115
  ###補足情報(言語/FW/ツール等のバージョンなど)
110
116