ExcelのVBAからデータをJSON形式に変換してPOSTを実行する - Symfoware
VBAからデータをPOSTする方法がわかりました。 ExcelのVBAからWebアプリケーションにPOSTを実行する 目標は、Excelに表示しているCellのデータをサーバーにPOSTし、 データベースへの登録を行うことです。 これまでの内容で、一行づつ登録を実行すれば目的は果たせるのですが、 せっかくなので、登録したい内容をJSON形式に変換し、 一撃でPOSTと登録を完了できるようにしてみます。 Excelのマクロ JScriptで実装することにこだわりすぎたかもしれません。 というのも、JScriptの配列に入れておけば簡単にJSON形式の 文字列に変換できると思っていたのですが、そうはいきませんでした。 jscript_ハッシュ配列を文字列化 こちらを参考に、ArrayをJSON形式のオブジェクトに変換して登録を実行しています。 また、意外とJScriptで連想配列の作り方がわか
VBAでJSONファイルをパースする - SO NOTE そうのて (；^ω^)
COMオブジェクトのScriptControlを使うと、VBA上でJScriptが実行出来ます。って事は、VBAでもJSONファイルのパースが出来るんじゃね？と前々から思ってたのを試してみたところ、拍子抜けするくらい簡単に出来ました。 ソース Option Explicit Sub VBA_de_JSON() Const cnsJSONString As String = "{ ""familyname"":""yamada"", ""personalname"":""tarou"" }" Dim sc As Object Dim strFunc As String Dim objJSON As Object Set sc = CreateObject("ScriptControl") sc.Language = "JScript" 'jsonにパースする関数文字列 strFunc = "
VBA応用(ファイルのタイムスタンプや属性情報の取得)
ファイルの属性では、タイプ、更新日時、ファイルサイズを取得することができます。 従来型のステートメントでの記述サンプルです。 '*************************************************************************************************** ' ファイルの属性の取得サンプル Module1(Module) ' ' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!] '*************************************************************************************************** '変更日付 Rev 変更履歴内容--------------------
VBA応用(教室の席替えを乱数処理で自動化)
「Rnd関数」は0以上、1未満の範囲の値を浮動小数点数型で返します。 今回のサンプルは、学校でよく行なわれる「席替え」です。添付のサンプルは40人学級ですが、人数の組み替えもできるようにしてあります。 浮動小数点数型の乱数を1～40の整数に変換させて取り出したいわけですが、問題なのは、40回乱数を発生させて整数に置き換えた段階で、以前に発生・変換した値とかなりダブってしまうことです。 もちろん、浮動小数点数の乱数値の段階では同じ値は採らないのでしょうが、整数にまるめた時点で同じ値になってしまうことが結構あるのです。 ここでは、そのダブりを取り除いてランダムな1～40の値を発生させる方法を2種類で説明してみます。 これが理解できれば、「席替え」の他にも、「忘年会の抽選」とか応用ができるでしょう。 まず、どのような動作なのか、マクロを動かしてみましょう。 このような「教室」をイメージしたシンプ
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
サービス終了のお知らせ
サービス終了のお知らせ
やってみよう！Excel VBAで業務改善！｜VBAエキスパート公式サイト