(18)「tp01-ダウンロード(Yahoo)」Yahooファイナンス時系列仕様変更に伴う対処方法
 Yahooファイナンスの「時系列データ」が2014/6/25からテーブル仕様変更があり対応（2014/6/26）

以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module1　▼▼▼▼▼▼▼▼
Const URLYAHOO As String = "http://table.yahoo.co.jp/"
 Const URLYAHOO As String = "http://info.finance.yahoo.co.jp/history/?code="
----------------------------------------------------------------------
URLと日付指定
If UserForm1.opt02.Value = True Then
' urlweb = URLYAHOO & "t?c=" & stay & "&a=" & stam & "&b=" & _
stad & "&f=" & endy & "&d=" & endm & "&e=" & endd & _
"&g=w&s=" & meino & basho & "&y=0&z=" & meino & basho
urlweb = URLYAHOO & meino & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=w"
ElseIf UserForm1.opt03.Value = True Then
' urlweb = URLYAHOO & "t?c=" & stay & "&a=" & stam & "&b=" & _
stad & "&f=" & endy & "&d=" & endm & "&e=" & endd & _
"&g=m&s=" & meino & basho & "&y=0&z=" & meino & basho
urlweb = URLYAHOO & meino & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=m"
 Else
' urlweb = URLYAHOO & "t?c=" & stay & "&a=" & stam & "&b=" & _
stad & "&f=" & endy & "&d=" & endm & "&e=" & endd & _
"&g=d&s=" & meino & basho & "&y=0&z=" & meino & basho
urlweb = URLYAHOO & meino & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
End If

----------------------------------------------------------------------
Sub 時系列取得()

If msgd = "週間データ" Then
If meigara = "日経平均" Or meigara = "TOPIX" Then
hosei = 0
Else
' hosei = 1
 hosei = 0
 End If


' dthtml = Mid$(dthtml, stchk2, chksu)
 dthtml = Mid$(dthtml, stchk2, chksu - stchk2)
itmsu = .Execute(dthtml).Count
' ReDim hdat(itmsu)
 ReDim hdat(itmsu + 7)
’ On Error GoTo 0　　’2014/6/27　削除にしました
 End With

----------------------------------------------------------------------
Sub 時系列貼付()

If meigara = "日経平均" Or meigara = "TOPIX" Then
' itst = 14
' stpsu = 11
itst = 11
stpsu = 5

Else
' itst = 18
' stpsu = 15
itst = 15
stpsu = 7
End If

If Cells(3, 1) = "" Then
' Cells(3, 1) = hdat(2)
' Cells(3, 2) = hdat(4)
' Cells(3, 3) = hdat(6)
' Cells(3, 4) = hdat(8)
' Cells(3, 5) = hdat(10)
Cells(3, 1) = hdat(1)
Cells(3, 2) = hdat(3)
Cells(3, 3) = hdat(5)
Cells(3, 4) = hdat(7)
Cells(3, 5) = hdat(9)

If itst = 15 Then
' Cells(3, 6) = hdat(12)
' Cells(3, 7) = hdat(14)
 Cells(3, 6) = hdat(11)
Cells(3, 7) = hdat(13)
End If
End If

dsu = 0
For i = itst To itmsu Step stpsu
If IsDate(hdat(i)) = False Then
' If IsDate(hdat(i + 15)) = False Then
 If IsDate(hdat(i + 7)) = False Then
 Exit For
End If
End If

' dat2(dsu, 0) = hdat(i + 0)
' dat2(dsu, 1) = hdat(i + 2)
' dat2(dsu, 2) = hdat(i + 4)
' dat2(dsu, 3) = hdat(i + 6)
' dat2(dsu, 4) = hdat(i + 8)
dat2(dsu, 0) = hdat(i + 0)
dat2(dsu, 1) = hdat(i + 1)
dat2(dsu, 2) = hdat(i + 2)
dat2(dsu, 3) = hdat(i + 3)
dat2(dsu, 4) = hdat(i + 4)

If itst = 15 Then
' dat2(dsu, 5) = hdat(i + 10)
' dat2(dsu, 6) = hdat(i + 14)
 dat2(dsu, 5) = hdat(i + 5)
dat2(dsu, 6) = hdat(i + 6)
 End If

'分割 (2014/6/26の改善では分割株価は未対応です）
' If IsNumeric(hdat(i + 2)) = False Then
' i = i - 10
' End If

'分割
If IsNumeric(hdat(i + 2)) = False Then
i = i - 10
 i = i - 5 '(2014/6/27 追加）
 End If




(19)「tp16-鍋蓋足チャート」Yahooファイナンス時系列仕様変更に伴う対処方法
 Yahooファイナンスの「時系列データ」が2014/6/25からテーブル仕様変更があり対応（2014/6/26）
以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module2　▼▼▼▼▼▼▼▼

Const URLYAHOO As String = "http://table.yahoo.co.jp/"
 Const URLYAHOO As String = "http://info.finance.yahoo.co.jp/history/?code="
Sub 取得実行()

URLと日付指定
' urlweb = URLYAHOO & "t?c=" & stay & "&a=" & stam & "&b=" & _
stad & "&f=" & endy & "&d=" & endm & "&e=" & endd & _
"&g=d&s=" & kabuno1 & basho & "&y=0&z=" & kabuno1 & basho
urlweb = URLYAHOO & kabuno1 & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
----------------------------------------------------------------------
Sub 時系列取得()

dthtml = Mid$(dthtml, stchk2, chksu)
 dthtml = Mid$(dthtml, stchk2, chksu - stchk2)
' ReDim hdat(itmsu)
 ReDim hdat(itmsu + 7)
’ On Error GoTo 0　　’2014/6/27　削除にしました
 End With

----------------------------------------------------------------------
Sub 時系列貼付()

If Cells(3, 1) = "" Then
' Cells(3, 1) = hdat(2)
' Cells(3, 2) = hdat(4)
' Cells(3, 3) = hdat(6)
' Cells(3, 4) = hdat(8)
' Cells(3, 5) = hdat(10)
' Cells(3, 6) = hdat(12)
' Cells(3, 7) = hdat(14)
Cells(3, 1) = hdat(1)
Cells(3, 2) = hdat(3)
Cells(3, 3) = hdat(5)
Cells(3, 4) = hdat(7)
Cells(3, 5) = hdat(9)
Cells(3, 6) = hdat(11)
Cells(3, 7) = hdat(13)
End If

dsu = 0
For i = 18 To itmsu Step 15
 For i = 15 To itmsu Step 7
 If IsDate(hdat(i)) = False Then
' If IsDate(hdat(i + 15)) = False Then
 If IsDate(hdat(i + 7)) = False Then
 Exit For
End If
End If

' dat2(dsu, 0) = hdat(i + 0)
' dat2(dsu, 1) = hdat(i + 2)
' dat2(dsu, 2) = hdat(i + 4)
' dat2(dsu, 3) = hdat(i + 6)
' dat2(dsu, 4) = hdat(i + 8)
' dat2(dsu, 5) = hdat(i + 10)
' dat2(dsu, 6) = hdat(i + 12)
dat2(dsu, 0) = hdat(i + 0)
dat2(dsu, 1) = hdat(i + 1)
dat2(dsu, 2) = hdat(i + 2)
dat2(dsu, 3) = hdat(i + 3)
dat2(dsu, 4) = hdat(i + 4)
dat2(dsu, 5) = hdat(i + 5)
dat2(dsu, 6) = hdat(i + 6)

'分割
If IsNumeric(hdat(i + 2)) = False Then
i = i - 10
 i = i - 5 '(2014/6/27 追加）
 End If


(20)Yahooファイナンス時系列仕様変更に伴う改善。上記(18)(19)の補助説明
 Yahooファイナンスの「時系列データ」が2014/6/25からテーブル仕様変更があり対応（2014/6/27）
時系列データの仕様変更により、雑誌のCD-ROMに収録のほぼ全マクロの改造が必要ですが、「著者からのお
知らせ」では上記2件改造例を掲載しますので、他のマクロはその2点を参照して改善して下さい。
なお、雑誌に収録マクロは数年間に渡って開発した各種マクロを掲載していますが、開発時期や銘柄の指定方法
の相違により、銘柄コード番号を代入する変数名が異なります。

その変数名相違により、改善が混乱する可能性があるので、以下にマクロ名と変数の関係を示します。
改善時は、この一覧表も参考にして下さい。それ以外の箇所は上記2例で問題ないと思いますが、もし改善が
上手くいかない場合はメールを頂け相談にのります（ただし、全マクロを直して欲しいとの依頼は勘弁して下さい）
紛らわしいと思われる変更箇所
'URLと日付指定
' urlweb = URLYAHOO & "t?c=" & stay & "&a=" & stam & "&b=" & _
stad & "&f=" & endy & "&d=" & endm & "&e=" & endd & _
"&g=d&s=" & kabuno1 & basho & "&y=0&z=" & kabuno1 & basho
 
上記を下記に変更する
urlweb = URLYAHOO & kabuno1 & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
 

●上記例では、銘柄コード代入の変数は「kabuno1」ですが、ツールにより下表のように変えて下さい。
No ツール名 銘柄コード代入の変数
1
 
 tp01-ダウンロード(Yahoo)
 
 urlweb = URLYAHOO & meino & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
2
 
 tp12-株価比較
 
 urlweb = URLYAHOO & kabuno1 & basho & "&sy=" & yst & "&sm=" & mst & "&sd=" & _
dst & "&ey=" & yend & "&em=" & mend & "&ed=" & dend & "&tm=d"
3
 
 tp13-多数を1ツールで解析
 
 urlweb = URLYAHOO & meino1 & basho & "&sy=" & yst & "&sm=" & mst & "&sd=" & _
dst & "&ey=" & yend & "&em=" & mend & "&ed=" & dend & "&tm=d"
4
 
 tp14-指定銘柄を9ツールで解析
 
 urlweb = URLYAHOO & mcode & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
5
 
 tp15-多数ツールでスクリーニング
 
 urlweb = URLYAHOO & mcode & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
6
 
 tp16-鍋蓋足チャート
 
 urlweb = URLYAHOO & kabuno1 & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
7
 
 tp18-保有日数カレンダー
 
 urlweb = URLYAHOO & meino1 & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
8
9
10
11
12
13
14
15
16
 tp02-ローソク足
tp03-移動平均
tp04-乖離率
tp05-MACD
tp06-出来高大
tp07-出来高小
tp08-ボリンジャーバンド
tp09-RSI.
tp10-一目均衡表
  
 
 
urlweb = URLYAHOO & meino & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
 
 
 
 


●　&tm=d　は「日データ」、「週データ」は&tm=w、「月データ」は&tm=m　となります。



(21)Yahooファイナンス時系列仕様変更に伴う改善。Mp005の補助説明
 318ページに、「Yahooファイナンスの時系列データ変更時の対処例」について補足します。（2014/8/16）

データフォームの確認は、[Part10]→[Macro]→[mp005.xls]（下図参照）のサンプルマクロで確認できます。

上図の、http://table.yahoo.co.jp/t?c=2008&a=6&b=23&f=2008&d=9&e=1&g=d&s=5401.t&y=0&z=5401.t
は、下記に変更して実行して下さい。
http://info.finance.yahoo.co.jp/history/?code=5401.T&sy=2014&sm=5&sd=10&ey=2014&em=8&ed=16&tm=d

上記mp005でチェックすると執筆時の2008年フォームは、2014/6月の仕様変更で下図のように変わってします。


実際のマクロ変更のサンプルは、前述（18）（19）で紹介済みであり、改善具体例は省略します。



(22)「tp01-ダウンロード(Yahoo)」Yahooファイナンス時系列仕様変更に伴う対処方法
 Yahooファイナンスの「時系列データ」が2015/1/9からテーブル仕様変更があり対応（2015/1/10）
（本例はｔｐ01ツールの改善例ですが、他のツールも同じ箇所を70→25のように変更が必要です）
以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module1　▼▼▼▼▼▼▼▼
月/週/日の取得日数
msgd = ""
If UserForm1.opt02.Value = True Then
ymdsu = 320
 ymdsu = 100
 msgd = "週間データ"
ElseIf UserForm1.opt03.Value = True Then
ymdsu = 1200
 ymdsu = 400
 msgd = "月間データ"
Else
ymdsu = 70
 ymdsu = 25
 End If

------------------------------------------------------------
取得1
ymden = ch1date
If UserForm1.opt02.Value = True Then
ymdst = ymden - 320
 ymdst = ymden - 100
 ElseIf UserForm1.opt03.Value = True Then
ymdst = ymden - 1200
 ymdst = ymden - 400
 Else
ymdst = ymden - 70
 ymdst = ymden - 25
 End If
endr = 3
Call 取得実行

------------------------------------------------------------
取得2
For kaisuu = 1 To hisu
If UserForm1.opt02.Value = True Then
ymden = ymdst - (1 + Weekday(ymdst))
ymdst = ymden - 320
 ymdst = ymden - 100
 ElseIf UserForm1.opt03.Value = True Then
ymden = ymdst - 31
ymdst = ymden - 1200
 ymdst = ymden - 400
 Else
ymden = ymdst - 1
ymdst = ymden - 70
 ymdst = ymden - 25
 End If
endr = Cells(10000, 1).End(xlUp).Row + 1
Call 取得実行
Next


★上記を参考にすれば収録マクロは改善できると思いますが、「tp16-鍋蓋(ナベブタ)足チャート」はデータ取得
が予めスタート日を設定し、その日付になるまで取得を繰り返す方法でなく、*2*4*8のように繰り返す回数を
指定する方式です。その為*4や*4はデータが少なすぎてチャートは書けなくなりました。対応としては、
ダイアログから*2*4を消すと共に、70→25に変更等が必要です。繰返しについては「hisu = 1」（0回+1回）の2
回転は「ch1date - 140が-50」となります。直す箇所がまとまっていないため此処に紹介するのが難しいので、
HPへ、tp16-鍋蓋(ナベブタ)足チャート Ver5.02(2015/01/12) へ改善折込の最新版をアップしたのでその改善
版をダウンロードして使用して下さい。



(23)「tp13-多数を1ツールで解析」Yahooファイナンス時系列仕様変更に伴う対処方法
 最近本を購入された方から、掲示板に「ｔｐ13」改善が上手く行かないとの質問がありました。出版後時系列
変更は2回ありましたがどちらの改善折込がミスったか判らないのと、こちらのＨＰに掲載の改善方法に問題ない
か確認を含め、ＣＤに掲載のツールを改善したので、その内容を下記にまとめました（2015/2/5）
**********************************************************************************
(18)「tp01-ダウンロード(Yahoo)」Yahooファイナンス時系列仕様変更対処（2014/6/26）に掲載分
以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module10　▼▼▼▼▼▼▼▼
Const URLYAHOO As String = "http://table.yahoo.co.jp/"
 Const URLYAHOO As String = "http://info.finance.yahoo.co.jp/history/?code="
------------------------
URLと日付指定
urlweb = URLYAHOO & "t?c=" & stay & "&a=" & stam & "&b=" & _
stad & "&f=" & endy & "&d=" & endm & "&e=" & endd & _
"&g=d&s=" & meino1 & basho & "&y=0&z=" & meino1 & basho
urlweb = URLYAHOO & meino1 & basho & "&sy=" & stay & "&sm=" & stam & "&sd=" & _
stad & "&ey=" & endy & "&em=" & endm & "&ed=" & endd & "&tm=d"
-------------------------

' dthtml = Mid$(dthtml, stchk2, chksu)
 dthtml = Mid$(dthtml, stchk2, chksu - stchk2)
' ReDim hdat(itmsu)
 ReDim hdat(itmsu + 7)
On Error GoTo 0 ←　このステータスは削除　

If Cells(3, 1) = "" Then
Cells(3, 1) = hdat(2)
Cells(3, 2) = hdat(4)
Cells(3, 3) = hdat(6)
Cells(3, 4) = hdat(8)
Cells(3, 5) = hdat(10)
Cells(3, 6) = hdat(12)
Cells(3, 7) = hdat(14)
End If
Cells(3, 1) = hdat(1)
Cells(3, 2) = hdat(3)
Cells(3, 3) = hdat(5)
Cells(3, 4) = hdat(7)
Cells(3, 5) = hdat(9)
Cells(3, 6) = hdat(11)
Cells(3, 7) = hdat(13)
'For i = 18 To itmsu Step 15
 For i = 15 To itmsu Step 7
 If IsDate(hdat(i)) = False Then
If IsDate(hdat(i + 15)) = False Then
 If IsDate(hdat(i + 7)) = False Then
' i = i - 10
 i = i - 5
**********************************************************************************
(22)「tp01-ダウンロード(Yahoo)」Yahooファイナンス時系列仕様変更対処（2015/1/10）に掲載分
▼▼▼▼▼▼▼▼　Module10　▼▼▼▼▼▼▼▼
取得1
ymden = ch1date
' ymdst = ymden - 70
 ymdst = ymden - 25
取得2
For kaisuu = 1 To hisu
ymden = ymdst - 1
' ymdst = ymden - 70
 ymdst = ymden - 25
-------------------------------

オプションボタンの指定を確認し取得日数設定　←以下の回数変更は（22）では★印のみで不親切でゴメン。
ch1date = d10y & "/" & d10m & "/" & d10d
If .opt150.Value = True Then
ch2date = ch1date - 210
' hisu = 2
 hisu = 8
 ElseIf .opt200.Value = True Then
ch2date = ch1date - 280
' hisu = 3
 hisu = 11
 Else
ch2date = ch1date - 140
' hisu = 1　←前は70*2＝140　でしたが、25*5＝150　になった（1は0回+1回2ページ取得です）
 hisu = 5
 End If



(24)「tp12-株価比較」Yahooファイナンス詳細情報仕様変更に伴う対処方法
 詳細情報の1部（市場・コード番号・銘柄名）の掲載場所が変更になりました（2015/2/19）。

以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module11　▼▼▼▼▼▼▼▼

dat2(1) = hdat(13) '市場

For i = 43 To 48
If Len(hdat(i)) = 4 Then
dat2(0) = hdat(i) 'コード
Exit For
End If
Next
dat2(1) = hdat(22) '市場

For i = 35 To 60
If Len(hdat(i)) = 4 Then
If IsNumeric(hdat(i)) = True Then
dat2(0) = hdat(i) 'コード
ia = i
Exit For
End If
End If
Next
詳細情報の1部（市場・コード番号・銘柄名）の掲載場所が更に変更になりました（2015/3/17）。
dat2(1) = hdat(23) '市場

For i = 45 To 70
If Len(hdat(i)) = 4 Then
If IsNumeric(hdat(i)) = True Then
dat2(0) = hdat(i) 'コード
ia = i
Exit For
End If
End If
Next


(25)「tp12-株価比較」Yahooファイナンス詳細情報仕様変更に伴う対処方法
 詳細情報の1部（市場・コード番号・銘柄名）の掲載場所が変更になりました（2015/8/30）。

以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module11　▼▼▼▼▼▼▼▼

市場
For i = 10 To 40
If InStr(1, hdat(i), "部") > 0 Then
dat2(1) = hdat(i) '市場
Exit For
End If
Next

コード
For i = 45 To 70 '35-60　→　45-70
If Len(hdat(i)) = 4 Then
If IsNumeric(hdat(i)) = True Then
dat2(0) = hdat(i) 'コード
ia = i
Exit For
End If
End If
Next



(27)「tp11今日の値動き」Yahooファイナンス詳細情報仕様変更に伴う対処方法
 Yahooファイナンスの「詳細情報データ」が2/16日からテーブル仕様変更があり対応（2016/2/17）（2016/3/28)

以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module2　▼▼▼▼▼▼▼▼
Sub kabu1a()
 sheetn = "今日の値動き"
 dast = 10000
Sub kabu1a()
sheetn = "今日の値動き"
 dast = 20000
----------------------------------------
 stchk1 = InStr(1, dthtml, "リアルタイム株価", 1)
 rck = 0
 If stchk1 > 21000 Or stchk1 = 0 Then
stchk1 = InStr(1, dthtml, "20分ディレイ株価", 1)
rck = 1
End If
stchk1 = InStr(1, dthtml, "現在JavaScript", 1)
rck = 0

------------------------------------------------
 If hdat(7) = "" Then
If hdat(23) = "" Then
-----------------------------------------------
 dat2(1) = hdat(7)
dat2(2) = hdat(1)
For ib = 50 To 70 '60→70　（2016/3/28）
 If hdat(ib) = "リアルタイム株価" Then
iba = ib
Exit For
End If
Next
dat2(1) = hdat(iba + 5)
dat2(2) = hdat(iba - 1)
-----------------------------------------------
 For ib = 10 To 150
For ib = 10 To 200
--------------------------------------
If dast = 30000 Then
 For ib = 150 To 400
If dast = 30000 Then
 For ib = 200 To ccc


(28)「tp12-株価比較」Yahooファイナンス詳細情報仕様変更に伴う対処方法
 「詳細情報データ」テーブル仕様変更で「本日の株価」が取得できない問題があり対応（2016/2/19）

以下マクロの「灰色ステータス」を削除し、「オレンジステータス」に変える。
▼▼▼▼▼▼▼▼　Module21　▼▼▼▼▼▼▼▼
 stchk1 = InStr(1, dthtml, "リアルタイム株価", 1)
 rck = 0
 If stchk1 > 21000 Or stchk1 = 0 Then
stchk1 = InStr(1, dthtml, "20分ディレイ株価", 1)
rck = 1
End If
stchk1 = InStr(1, dthtml, "現在JavaScript", 1)
 rck = 0
　 -----------------------------
dthtml = Mid$(dthtml, stchk1 - 50, 10000)
 dthtml = Mid$(dthtml, stchk1 - 50, 20000)
---------------------------------
 ' For ib = 10 To 150
 For ib = 10 To 200


(29)「tp12-株価比較」分割銘柄で取得不具合の場合の対処方法
 以下マクロの、「オレンジステータス」を追加。
▼▼▼▼▼▼▼▼　Module2　▼▼▼▼▼▼▼▼
分割
If IsNumeric(hdat(i + 2)) = False Then
　　i = i - 5
End If
dsu = dsu + 1
Next
---------------------------------------------
分割
If IsNumeric(hdat(i + 2)) = False Then
　　i = i - 5
 　　dsu = dsu - 1 '1行追加2016/12/18
 End If
dsu = dsu + 1
Next



(30)2017/3/30日のYahooファイナンス仕様変更の対処方法（全ツール共通)
 2017/3/30日にYahooファイナンスの掲載に仕様変更があり、自分の作成した全ツールが使用不可になりました。
改善方法はメールで依頼の方には、下記メールを送りました。

下記の1行訂正で直ると思います。
【変更前】Set oHttp = CreateObject("Microsoft.XMLHTTP")
【変更後】Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")
 
メールへの回答は以上です。
 
もし時間があったら掲示板に書き込んだ以下も読んで下さい。
 
『従来本に掲載のサンプル修正は、「著者からのお知らせ」に掲載していましたが、
http://www2s.biglobe.ne.jp/~iryo/kabu/siryou/hon/hon2/osirase2.html
 
今回掲載をタメラッテいるのは、出版社から著作料を打ち切られたことが原因です。
その件を1年以上前に問い合わせたら後3冊で100冊になると回答があったが、
後3冊が売れないのかな？　（著作料は出版時に1回頂いていますが、その後は支払い
済みがオーバーすると100冊単位で頂く契約になっているが、頂いた事は無い）。
 
発売から8年ほど経つがその間読者からの問い合わせは全て1人でHP又はメールで対応
しました。したがって出版社への質問はゼロだと思います。5年以上面倒を見ているのに、
著作料の打ち切りはないと思う。そんな訳で出来たら読者からも出版社に言って頂く
方法が無いか考えています』。
 
と言う訳で、次回サンプルが動かなくなったら、技術評論社へダイレクトに
動くように改善したサンプルを送って欲しいと依頼してみて欲しい。
上記メールでは、出版社に改善依頼を行って欲しい返信しましたが、お世話になった編集者に
迷惑が掛かるようなので、技術評論社へダイレクト依頼の行は取り消します。


【ホーム】