create_object.vba

Dim ws As Worksheet
Set ws = Worksheets("CreateObject")
Dim createObjectBody As String
createObjectBody = sfc.CREATE_OBJECT
createObjectBody = Replace(createObjectBody, "{{sessionId}}", sessionId)
createObjectBody = Replace(createObjectBody, "{{fullName}}", ws.Cells(3, 2))
createObjectBody = Replace(createObjectBody, "{{deploymentStatus}}", "Deployed")
createObjectBody = Replace(createObjectBody, "{{description}}", ws.Cells(6, 2))
createObjectBody = Replace(createObjectBody, "{{label}}", ws.Cells(1, 2))
createObjectBody = Replace(createObjectBody, "{{nameField.label}}", ws.Cells(4, 2))
createObjectBody = Replace(createObjectBody, "{{nameField.length}}", "80")
createObjectBody = Replace(createObjectBody, "{{nameField.type}}", ws.Cells(5, 2))
createObjectBody = Replace(createObjectBody, "{{pluralLabel}}", ws.Cells(2, 2))
createObjectBody = Replace(createObjectBody, "{{sharingModel}}", ws.Cells(7, 2))
Debug.Print createObjectBody
Dim responseObjectBody As String
responseObjectBody = callSoap(instanceUrl & "/services/Soap/m/30.0/" & orgId, createObjectBody)
Debug.Print responseObjectBody