[VBA] 구글번역기 beta

구글 번역기...

크롬은 태그를 숨겨놓아서 찾는데 애먹었다.

일단 지금은 영어 한글 번역만 가능...

 

Option Explicit
Sub 구글번역()

    Dim rngX As Range: Set rngX = [b4]
    
    [d4] = GTranslate([b4], "en", "ko")
    
    With [b4]
      .HorizontalAlignment = xlGeneral
      .VerticalAlignment = xlTop
      .WrapText = True
      
    End With

End Sub

Function GTranslate(strInput$, strFromLang$, strToLang$)

    Dim strURL$
    Dim xmlHttp As Object: Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
    Dim Html As Object: Set Html = CreateObject("htmlfile")
    
    strInput = WorksheetFunction.EncodeURL(strInput)
    strURL = "https://translate.google.com/m?hl=" & strFromLang & _
            "&sl=" & strFromLang & _
            "&tl=" & strToLang & _
            "&ie=UTF-8&prev=_m&q=" & strInput
        
    With xmlHttp
            .Open "GET", strURL, False
            .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
            .Send
            Html.body.innerhtml = .responsetext
            
    End With
    
   GTranslate = Html.queryselector(".result-container").innertext
    
End Function

구글번역기.xlsm

0.02MB