Excel宏是一種非常強大的工具，可以用來自動化處理大量的數據。有時，我們需要從一個JSON數據中獲取某些值，然后在Excel中進行操作。本文將介紹如何使用Excel宏來獲取JSON中的值。

首先，我們需要安裝一個JSON解析器。在這里，我們使用VBA-JSON，這是一個小巧的VBA庫，可以幫助我們解析JSON數據。我們只需下載并導入VBA-JSON.bas文件，然后就可以開始使用它。

'導入VBA-JSON
Option Explicit
Sub ImportVBAJSON()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dim fileStream As Object
Set fileStream = fs.OpenTextFile(ThisWorkbook.Path & "\VBA-JSON.bas", 1)
Dim json As String
json = fileStream.ReadAll()
fileStream.Close
Dim moduleCode As Object
Set moduleCode = ThisWorkbook.VBProject.VBComponents.Add(1)
moduleCode.CodeModule.AddFromString json
Set fs = Nothing
Set fileStream = Nothing
Set moduleCode = Nothing
MsgBox "VBA-JSON導入成功！"
End Sub

我們之后定義一個函數來獲取JSON中的值。在這里，我們定義一個函數名為GetJsonValue()，它接收兩個參數：JSON字符串和鍵名（或者說是屬性名）。函數的作用是返回鍵名所對應的值。

'獲取JSON中的值
Private Function GetJsonValue(ByVal jsonString As String, ByVal keyName As String) As Variant
Dim jsonObject As Object
Set jsonObject = JsonConverter.ParseJson(jsonString)
GetJsonValue = jsonObject(keyName)
Set jsonObject = Nothing
End Function

最后，在我們的Excel表格中，我們可以通過調用GetJsonValue()函數來獲取JSON中的值。例如，我們有一份JSON數據如下：

{
"name": "張三",
"age": 25,
"address": {
"province": "廣東省",
"city": "廣州市"
}
}

我們可以在表格中使用如下函數來獲取"name"的值：

=GetJsonValue(A1,"name")

其中，A1為包含JSON數據的單元格。

通過以上步驟，我們就可以方便地在Excel中獲取JSON中的值了。