Public Sub testcrdirect() Dim cr As New cRest, dset As New cDataSet cr.init("responseData.results", erSingleQuery, , , _ dset.populateData(wholeSheet("patent"), , "patent", , , , True), , _ "https://ajax.googleapis.com/ajax/services/search/patent?v=1.0&rsz=8&q=", _ , False).execute "excel" End Sub
bruce mcpherson is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Based on a work at http://www.mcpher.com. Permissions beyond the scope of this license may be available at code use guidelines