You Look Too Cool » VBAでExcelの表をJSON形式に変換する
Sub 表をJSON形式にする() Dim arr(1000) Dim gyo, retsu, gyosu, cnt As Long Dim lin, temp As String arr(0) = “[" gyo = 2 Do retsu = 1 lin = "" Do temp = Chr(34) & Cells(1, retsu) & Chr(34) & ":" & Chr(34) & Cells(gyo, retsu) & Chr(34) lin = lin & "," & temp retsu = retsu + 1 Loop Until Cells(gyo, retsu) = "" lin = Mid(lin, 2) arr(gyo - 1) = "{" & lin & "}," gyo = gyo + 1 Loop Until Cells(g
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
