Hi, I'm trying to integrate to with a Microsoft Access database for a customer that's recently started selling on Shopify.
I want to use VBA to request all Orders and all Products from the store, which I'll then write to a buffer table and will add/amend Products and Orders into the database as required. I've successfully managed to retrieve information from the stores but the most records it will give me is the 250 most recently added . I've seen about people using GraphQL but am unsure how to use with VBA. If anyone can help I'd really appreciate it. Below is the code I'm using currently:
------------------------------------
Public Sub JSONImport()
Dim db As Database, qdef As QueryDef
Dim FileNum As Integer
Dim DataLine As String, jsonStr As String, strSQL As String
Dim p As Object, element As Variant
Dim xlApp As Object
Dim xlWorkbook As Object
Dim strLogin As String
Dim XMLHTTP As Object
strLogin = "https://" & gcstrShopifyName & ".myshopify.com/admin/api/2022-04/orders.json?limit=250"
Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
XMLHTTP.Open "GET", strLogin, False
XMLHTTP.setRequestHeader "Accept", "text/json"
XMLHTTP.setRequestHeader "Content-Type", "application/json"
XMLHTTP.setRequestHeader "X-Shopify-Access-token", gcstrAdminAPIAccessToken
XMLHTTP.send
' PARSE FILE STRING
jsonStr = XMLHTTP.ResponseText
Set dic = ParseJson(jsonStr)
' IMPORT TO BUFFER TABLE
ImportOrders dic
End Sub
---------------------------
Thanks, Simon
