如何使用excelmacros来使用Newtonsoft库

在我的Excel表格中,我写了一个excelmacros。 在Visual Studio中,我有一段VB.net代码,使用Newtonsoft从REST APIparsingJson响应。

我正在使用用户表单在Excel单元格(我的VBAmacros)中获取评论。 这个VBA项目本身可以使用牛顿软件库吗?

有没有其他的方法来parsing我的Excelmacros中的JSON?

我的macros

Private Sub CommandButton2_Click() Selection.ClearComments Selection.AddComment Text:=TextBox1.Text Unload Me End Sub 

我的VB.net代码

 Imports System.IO Imports System.Net Imports Newtonsoft.Json 'Classes for Json response of my service 'Sample Json from DIS: '{"A": {"B":1}, "A1": {"B1":"1"}} Public Class JSON_Response Public a As A Public a1 As A1 End Class Public Class A Public b As Integer End Class Public Class A1 Public b1 As String End Class Public Class MyClass Private Sub Call_Service() Handles Me.Startup 'Create Http Request and Response objects Dim request As HttpWebRequest = HttpWebRequest.Create("http://something.com/key/123") Dim response As HttpWebResponse 'Make Http Request request.Method = WebRequestMethods.Http.Get 'Get Http Response response = request.GetResponse() 'Convert Response to Json String Dim dataStream As Stream dataStream = response.GetResponseStream() Dim reader As New StreamReader(dataStream) Dim jsonResponseFromServer As String = reader.ReadToEnd() 'Map Json Response to objects Dim jsonResponse As JSON_Response = JsonConvert.DeserializeObject(Of JSON_Response)(jsonResponseFromServer) End Sub End Class 

基本上我想使用Excelmacros中的VB.net代码。 这可能吗?