如何将用户凭据作为JSON传递

Question

我想在调用URL后将用户凭据作为JSON数据发布。如何实现。

Dim PCache As PivotCache

'...
'...

Set PCache = ActiveWorkbook.PivotCaches.Create _
          (SourceType:=xlDatabase, SourceData:=PRange). _
          CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _
          TableName:="MaintenanceData")

openConnection之后，我必须将用户凭据作为JSON数据传递。请指教