Skip to content

Commit 684cefb

Browse files
committed
Rename GetObject in Salesforce example
Fixes #144
1 parent fd0c7dc commit 684cefb

File tree

3 files changed

+6
-6
lines changed

3 files changed

+6
-6
lines changed

examples/VBA-Web - Example.xlsm

117 KB
Binary file not shown.

examples/salesforce/Salesforce.bas

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -34,14 +34,14 @@ End Property
3434
''
3535
' Get generic object (async and sync)
3636
' --------------------------------------- '
37-
'Public Sub GetObjectAsync(ObjectName As String, ObjectId As String, _
37+
'Public Sub GetSalesforceObjectAsync(ObjectName As String, ObjectId As String, _
3838
' Callback As String, ParamArray CallbackArgs() As Variant)
3939
'
4040
' Call Client.ExecuteAsync(ObjectRequest(ObjectName, ObjectId), Callback, CallbackArgs)
4141
'End Sub
4242

43-
Public Function GetObject(ObjectName As String, ObjectId As String) As WebResponse
44-
Set GetObject = Client.Execute(ObjectRequest(ObjectName, ObjectId))
43+
Public Function GetSalesforceObject(ObjectName As String, ObjectId As String) As WebResponse
44+
Set GetSalesforceObject = Client.Execute(ObjectRequest(ObjectName, ObjectId))
4545
End Function
4646

4747
''
@@ -73,11 +73,11 @@ End Function
7373
''
7474
' Get overview info for the specified object
7575
' --------------------------------------- '
76-
Public Function GetObjectInfo(ObjectName As String) As WebResponse
76+
Public Function GetSalesforceObjectInfo(ObjectName As String) As WebResponse
7777
Dim Request As WebRequest
7878
Set Request = ObjectRequest(ObjectName, "describe")
7979

80-
Set GetObjectInfo = Client.Execute(Request)
80+
Set GetSalesforceObjectInfo = Client.Execute(Request)
8181
End Function
8282

8383
''

examples/salesforce/SalesforceSheet.cls

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -61,7 +61,7 @@ Public Sub GetObject()
6161
' Salesforce.GetObjectAsync Me.[GetObjectType], Me.[GetObjectId], "SalesforceSheet.ProcessObject"
6262
' Else
6363
Dim Results As WebResponse
64-
Set Results = Salesforce.GetObject(Me.[GetObjectType], Me.[GetObjectId])
64+
Set Results = Salesforce.GetSalesforceObject(Me.[GetObjectType], Me.[GetObjectId])
6565

6666
ProcessObject Results
6767
' End If

0 commit comments

Comments
 (0)