メモ

主にプログラミング系の備忘録

2017-03-01から1ヶ月間の記事一覧

アップロード画面への遷移まで

17/05/26追記:Googleへのログインのインターフェースが変わったので現在機能しません。 17/05/31追記:よくわからないClassNameでログインアカウントを選択してよいなら改修できそうな気がする なお、引っ掛かるのは「(4)ログインアカウントの選択」の工程 ク…

3末でoffなので春スキー検討中。そんなわけで春スキーでも営業しているスキー場の情報をsnow&surfさんからgetしてみた

Public Sub getSnowSurf() Dim ie As InternetExplorer: Set ie = New InternetExplorer: ie.navigate "https://snow.gnavi.co.jp/close/": Call ieCheck(ie) Dim dom As HTMLDocument: Set dom = ie.document Dim el As IHTMLElement Dim ws As Worksheet: …

動画設定情報を取得するプログラム

YouTube APIのlist処理でとろうとしてたが、一部取れない項目があるらしいので力技で。 設定画面に遷移して情報を取得するので、動画の所有者以外はたぶん無理。 Public Sub getSettingVideo(sId As String) Dim ie As InternetExplorer Dim dom As HTMLDocu…