【VBA】Backlog APIで課題を操作する VBA-Dictionary Macでは「Microsoft Scripting Runtime」が使えません。用途としてはDictionary型を使用するためなので、VBA-Dictionaryを利用します。 https://github.com/VBA-tools/VBA-Dictionary Releasesから最新版(2020/12/21現在 v1.4.1)のVBA-JSONのリンクをクリ...
Function OutputTextFile(ByRef objIE As Object, ByVal YMD As String, ByVal Ba_kanji As String) As Boolean '引数に指定した年月日・場所のページを読み取って、テキストファイルに出力する。 '戻り値は、指定した年月日・場所のコンピデータページが極馬プレミアムのサイトに存在す...
Private Sub setJsonValFromAPI() On Error GoTo ErrHdl Dim resTxt ' APIから結果をテキストで取得 resTxt = Util.getHTMLByHttp(TargetCityAPIUrl) ' JSONデータ形式にコンバート Set JsonVal = JsonConverter.ParseJson(resTxt) ErrHdl: If Err.Number <> 0 Then Util.logError MODULE_NAME & "....
(ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Const SPI_GETWORKAREA = 48 Private Const WH_CBT = 5 ...