Excel将希伯来文的字符parsing为Google

我正在使用VB将Excel电子表格中的值parsing为Googlesearch。

ActiveWorkbook.FollowHyperlink Address:="http://www.google.com./search?hl=en&q=" + Sheet1.name1, NewWindow:=True 

当我试图parsing希伯来字符时，我会得到乱码。 找不到原因…

Answer 1

这是一个编码问题，你可以改变编码，这很复杂，因为excel默认为你的系统编码。

我认为在你的情况下最简单的事情是URL编码你的查询。

在Excel 2013之前，使用这个可以使用这个代码片段，从这里取得

 Public Function URLEncode( _ StringVal As String, _ Optional SpaceAsPlus As Boolean = False _ ) As String Dim StringLen As Long: StringLen = Len(StringVal) If StringLen > 0 Then ReDim result(StringLen) As String Dim i As Long, CharCode As Integer Dim Char As String, Space As String If SpaceAsPlus Then Space = "+" Else Space = "%20" For i = 1 To StringLen Char = Mid$(StringVal, i, 1) CharCode = Asc(Char) Select Case CharCode Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126 result(i) = Char Case 32 result(i) = Space Case 0 To 15 result(i) = "%0" & Hex(CharCode) Case Else result(i) = "%" & Hex(CharCode) End Select Next i URLEncode = Join(result, "") End If End Function 

在Excel 2013中，可以使用EncodeUrl函数

 ActiveWorkbook.FollowHyperlink Address:="http://www.google.com./search?hl=en&q=" + WorksheetFunction.EncodeUrl(Sheet1.name1), NewWindow:=True