Sub JSONtoCell() Dim objJSON Dim strData ' JSONファイルを開く Open "C:\Sample.json" For Input As #1 ' JSONデータを読み込む strData = Input$(LOF(1), #1) Close #1 ' JSONデータをパースする Set objJSON = JsonConverter.ParseJson(strData) ' JSON…

' クライアントIDとクライアントシークレットの設定Const client_id = "****************************"Const client_secret = "********************************" ' トークンエンドポイントConst token_url = "https://XXX" ' アクセストークンを取得Functi…