Question

我在VBA中创建了一个子程序，用于检查我是否在网上书店被削弱。问题是，许多作者和标题都有重音字符，据我所知，我不能在查询表中。例如，当我尝试加载网页时，字符á，é，ö成为奇怪的符号，如@或$。

我附上了目前为止的代码：

For i = 1 To Sorok
        Nev(i) = Ekezet(Sheets(AdatokLap).Cells(i + 1, 4)
        KonyvCim(i) = Ekezet(Sheets(AdatokLap).Cells(i + 1, 5)
        ConnectString = "URL;http://bookline.hu/search/search.action?     inner=true&searchfield=" & Nev(i) & " " & KonyvCim(i) & "&tab=bookline.hu%2Foldbook"

    Set qt = Sheets(QueryLap).QueryTables.Add(Connection:=ConnectString, Destination:=Cells(1, 1))
    With qt
        .Name = "MyName"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

我编写了一个名为Ekezet（）的函数，它从字符串中删除所有重音字符。有没有办法我不必删除重音字符并仍然运行网页查询？

VBA中的重音敏感查询表？

0 个答案: