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

[kato_pe62]

ExcelをJSONに変換するVBA