크롤링 FUNCTION
Function request(url, Optional requestHeader = "", Optional method = "GET", Optional postData = "", Optional CharSet = "") On Error GoTo goErr Set winhttp = CreateObject("WinHttp.WinHttpRequest.5.1") winhttp.Open method, url, False If TypeName(requestHeader) = "Variant()" Then For Each Header In requestHeader idx = InStr(Header, ":") If idx > 0 Then Key = Trim(Left(Header, idx - 1)) Value = Trim..