[사족 : 사실 제일 먼저 다루려고 했으나, 워낙 익숙한 툴이라 잊혀졌습니다. API에 관심이 있으신 분은 어떤 개발툴도(사실 더 아는 개발툴도 없습니다😆 ) 좋으니 말씀해주시면 최대한 작성해보겠습니다]
VBA는 Excel를 다루는 사용자에게 가장 유용하고 접근이 쉬운 개발툴로, 이를 이용하여 MIDAS Civil API를 사용하는 예제를 작성해봅니다. 이미 다수의 문서에서 API 명령어에 대한 내용을 수록하였으므로, 여기서는 VBA를 다루는 것에 집중하도록 하겠습니다.
...
| Expand |
|---|
|
| Code Block |
|---|
| Private Sub JsonConverterEX()
Dim Json As String
Dim dicJson As Dictionary
'Json 포맷의 String Data 작성
Json = "{" & Chr(34) & "NODE" & Chr(34) & ":{" & Chr(34) & "1001" & Chr(34) & ":{" _
& Chr(34) & "X" & Chr(34) & ":1.1," & Chr(34) & "Y" & Chr(34) & ":2.2," & Chr(34) & "Z" & Chr(34) & ":3.3}}}"
Debug.Print Json
'Json 포맷의 String Data를 Dictionary로 변환
Set dicJson = JsonConverter.ParseJson(Json)
Debug.Print dicJson.Item("NODE")("1001")("X")
Debug.Print dicJson.Item("NODE")("1001")("Y")
Debug.Print dicJson.Item("NODE")("1001")("Z")
dicJson.Item("NODE")("1001")("X") = 4.4
dicJson.Item("NODE")("1001")("Y") = 5.5
dicJson.Item("NODE")("1001")("Z") = 6.6
'Dictionay Data를 Json String 데이터로 변환
Dim dicTojson As String
dicTojson = JsonConverter.ConvertToJson(dicJson)
Debug.Print dicTojson
End Sub
|
|
...
4️⃣ Simple Beam 예제
VBA에서 Http Request는 “WinHttp.WinHttpRequest.5.1”를 사용합니다.
최대한 많은 API를 이용하여 단순보를 작성하는 예제를 만들었습니다. 첨부파일을 참고해주세요.
VBA Ex.mp4
5️⃣ 추가
(1) Runtime error - Timeout
...