我正在使用MSXML2.XMLHTTP方法通过VBA连接到API。我首选的响应格式为CSV,但是我不确定如何获取API.responsetext
值并将其另存为CSV。
即使将其粘贴到活动工作簿中的新工作表或现有工作表上也很有用。
Option Explicit
Sub getData()
Dim API As Object
Set API = CreateObject("MSXML2.XMLHTTP")
API.Open "GET", "https://factsetfundamentals.xignite.com/xFactSetFundamentals.csv/GetFinancialStatements?IdentifierType=Symbol&Identifiers=CSCO&StatementTypes=BalanceSheet,CashFlowStatement&AsOfDate=1/22/2019&ReportType=Annual&ExcludeRestated=False&_token=7C6B46D98F6B4B0C88FF5A5CE2C64C0C", False
API.Send
End Sub