Q&A
###前提・実現したいこと
下記サイトからExcel VBAを用いましてセッション操作
回答2件
0
ベストアンサー
これでいけました
vb
1Sub See() 2Dim WinHttp, DomDoc As Object 3Set WinHttp = CreateObject("MSXML2.XMLHTTP") 4 5'####GET#### 6WinHttp.Open "GET", "https://hjks.jepx.or.jp/hjks/outages", False 7WinHttp.send 'GETリクエストを送信 8strHeaders = WinHttp.getAllResponseHeaders() 9Debug.Print strHeaders 10Debug.Print WinHttp.responseText 11Set regEx = CreateObject("VBScript.RegExp") 12regEx.Pattern = "name=""_csrf"" value=""([a-z0-9-]+)""" 13regEx.IgnoreCase = False 14regEx.Global = True 15Set Matches = regEx.Execute(WinHttp.responseText) 16 17'####POST#### 18WinHttp.Open "POST", "https://hjks.jepx.or.jp/hjks/outages_ajax", False 19 20WinHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 21WinHttp.setRequestHeader "Referer", "https://hjks.jepx.or.jp/hjks/outages" 22WinHttp.send "cmd=get-records&limit=10000&offset=0&_csrf=" & Matches(0).SubMatches(0) 23Debug.Print WinHttp.responseText 24 25End Sub 26
投稿2016/10/25 17:07
退会済みユーザー
総合スコア0
0
HTTPでPOSTなので、sendのタイミングでpostすべきパラメータを送れば、
winHttp.responseTextに応答が返ってくると思います。
http://outofmem.tumblr.com/post/63052619242/vbaexcel-vba%E3%81%A7http%E9%80%9A%E4%BF%A1
投稿2016/10/25 15:50
総合スコア716
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。