Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/testDebugPrint2.bas

Created January 16, 2018 10:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/317fe32dad12a1d1cfae74807cc42adb to your computer and use it in GitHub Desktop.
Save ndthanh/317fe32dad12a1d1cfae74807cc42adb to your computer and use it in GitHub Desktop.
Download ZIP
Raw
testDebugPrint2.bas
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