Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Sub testDebugPrint2()
Dim fileNum As Integer
fileNum = FreeFile()
Dim logPath As String
logPath = "C:\Users\thanhnguyen\Desktop\hocexcelonline.log" '=> thay bằng đường dẫn của bạn
Open logPath For Output As #fileNum
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
xmlhttp.Open "GET", "https://reqres.in/api/users?page=2", False
xmlhttp.send
Print #fileNum, xmlhttp.responseText
Close #fileNum
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.