Well her is a question for the more advance users I think
I have this code that fetch the html source code but I doesn't do it in a utf-8 so when it fetch the ÆØÅ letters it just make a "Ã" is it possible to make it fetch in utf-8 ? her is the code
Sub hentkeywords()
Dim SearchString As String
SearchString = Sheets("Program").Range("H7")
Worksheets("keyword").Range("a1").Clear
With Sheets("keyword")
.Range("a1").Value = GetServerReponse(SearchString)
End With
End Sub
Function GetServerReponse(URL As String) As String
Dim Request As Object
On Error Resume Next
Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
If Request Is Nothing Then
Set Request = CreateObject("WinHttp.WinHttpRequest.5")
End If
On Error GoTo 0
Request.Open "GET", URL, False
Request.send
GetServerReponse = Request.responsetext
End Function
Bookmarks