Function URLEncode(PlainText As String) As String
Dim i As Integer
Dim CharCode As Integer
Dim HexCode As String
URLEncode = ""
For i = 1 To Len(PlainText)
CharCode = Asc(Mid(PlainText, i, 1))
Select Case CharCode
Case 48 To 57, 65 To 90, 97 To 122
URLEncode = URLEncode & Chr(CharCode)
Case 32
URLEncode = URLEncode & "+"
Case Else
HexCode = Hex(CharCode)
If Len(HexCode) = 1 Then HexCode = "0" & HexCode
URLEncode = URLEncode & "%" & HexCode
End Select
Next i
End Function
' 함수 명칭 = TranslateText2. 함수명을 바꾸고자 한다면 해당 부분을 교체하면 됩니다!!!!
Function TranslateText2(sourceText As String) As String
Dim objHTTP As Object
Dim url As String
Dim result As String
Dim clientID As String
Dim clientSecret As String
' 네이버 개발자 센터에서 발급받은 client ID와 client secret 입력!!!!!!!
' 네이버 개발자 센터에서 발급받은 client ID와 client secret 입력!!!!!!!
clientID = ""
clientSecret = ""
' 네이버 개발자 센터에서 발급받은 client ID와 client secret 입력!!!!!!!
' 네이버 개발자 센터에서 발급받은 client ID와 client secret 입력!!!!!!!
url = "https://openapi.naver.com/v1/papago/n2mt"
' 번역 종류 : 영어 -> 한글. 만약 바꾸고자 한다면 source=en&target=ko 를 변경해 주세요!!!!!
url = url & "?source=en&target=ko&text=" & URLEncode(sourceText)
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "POST", url, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
objHTTP.setRequestHeader "X-Naver-Client-Id", clientID
objHTTP.setRequestHeader "X-Naver-Client-Secret", clientSecret
objHTTP.send ("")
result = objHTTP.responseText
Dim startIndex As Integer
Dim endIndex As Integer
startIndex = InStr(result, """translatedText"":""") + Len("""translatedText"":""")
endIndex = InStr(startIndex, result, """") - 1
TranslateText2 = Mid(result, startIndex, endIndex - startIndex + 1)
End Function