Как исправить странную ошибку Google Script: «Отсутствует; перед заявлением ».

Я пытаюсь использовать «словарь», который, как я нашел, определяет слова в столбце. Google выбрасывает эту ошибку, и я не знаю, как ее исправить. AM Я использую все, что может понять сценарий приложения Google. Вот веб-сайт, который я использую, чтобы вставить эту функцию в excel: https://script.google.com.

Код:

Function DefineWord(wordToDefine As String) As String ' Array to hold the response data. Dim d() As Byte Dim r As Research Dim myDefinition As String Dim PARSE_PASS_1 As String Dim PARSE_PASS_2 As String Dim PARSE_PASS_3 As String Dim END_OF_DEFINITION As String 'These "constants" are for stripping out just the definitions from the JSON data PARSE_PASS_1 = Chr(34) & "webDefinitions" & Chr(34) & ":" PARSE_PASS_2 = Chr(34) & "entries" & Chr(34) & ":" PARSE_PASS_3 = "{" & Chr(34) & "type" & Chr(34) & ":" & Chr(34) & "text" & Chr(34) & "," & Chr(34) & "text" & Chr(34) & ":" END_OF_DEFINITION = "," & Chr(34) & "language" & Chr(34) & ":" & Chr(34) & "en" & Chr(34) & "}" Const SPLIT_DELIMITER = "|" ' Assemble an HTTP Request. Dim url As String Dim WinHttpReq As Variant Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") 'Get the definition from Google's online dictionary: url = "http://www.google.com/dictionary/json?callback=dict_api.callbacks.id100&q=" & wordToDefine & "&sl=en&tl=en&restrict=pr%2Cde&client=te" WinHttpReq.Open "GET", url, False ' Send the HTTP Request. WinHttpReq.Send 'Print status to the immediate window Debug.Print WinHttpReq.Status & " - " & WinHttpReq.StatusText 'Get the defintion myDefinition = StrConv(WinHttpReq.ResponseBody, vbUnicode) 'Get to the meat of the definition myDefinition = Mid$(myDefinition, InStr(1, myDefinition, PARSE_PASS_1, vbTextCompare)) myDefinition = Mid$(myDefinition, InStr(1, myDefinition, PARSE_PASS_2, vbTextCompare)) myDefinition = Replace(myDefinition, PARSE_PASS_3, SPLIT_DELIMITER) 'Split what's left of the string into an array Dim definitionArray As Variant definitionArray = Split(myDefinition, SPLIT_DELIMITER) Dim temp As String Dim newDefinition As String Dim iCount As Integer 'Loop through the array, remove unwanted characters and create a single string containing all the definitions For iCount = 1 To UBound(definitionArray) 'item 0 will not contain the definition temp = definitionArray(iCount) temp = Replace(temp, END_OF_DEFINITION, SPLIT_DELIMITER) temp = Replace(temp, "\x22", "") temp = Replace(temp, "\x27", "") temp = Replace(temp, Chr$(34), "") temp = iCount & ". " & Trim(temp) newDefinition = newDefinition & Mid$(temp, 1, InStr(1, temp, SPLIT_DELIMITER) - 1) & vbLf 'Hmmmm....vbLf doesn't put a carriage return in the cell. Not sure what the deal is there. Next iCount 'Put list of definitions in the Immeidate window Debug.Print newDefinition 'Return the value DefineWord = newDefinition End Function 

Это похоже на визуальный базис, Google использует скрипт приложений, который по существу является javascipt. В Javascript вы заканчиваете заявления с точкой с запятой, вот что он ищет.

ссылка здесь: Справочный форум Google

  • Функция Excel Floor
  • Excel - сравнение одного столбца с другим и отображение результатов
  • Использование SUM () в VBA
  • Расчет Excel UDF должен возвращать «исходное» значение
  • Выровняйте два временных ряда, каждый из которых имеет пробелы
  • Автоматически перемещать ссылку на ячейку: как это сделать в Excel без ручной корректировки формулы каждую неделю?
  • Расширение количества опорных ячеек, переданных функции .Range в Excel VBA
  • Ошибка вызова функции VBA из другой функции
  • Почему эта изменчивая функция LastRow не автоматически пересчитывается?
  • Операции со значением рабочей таблицы в Excel VBA
  • Подсчитайте слово «пары» в excel между разными столбцами
  • Interesting Posts

    Как сделать автоматическое заполнение текста основанным на ячейках в Excell

    Функция вызова в XLL-файле с C #

    Код работает очень медленно, чтобы сортировать и копировать 250 строк

    HSSFArea.java: метод getCells () не определен для типа AreaReference

    VBA: как сравнить ячейку с диапазоном и цветом между

    открыть одну книгу из другой

    R – Ошибка: IllegalArgumentException (Java): ваш InputStream не был ни потоком OLE2, ни потоком OOXML

    «UnicodeEncodeError: кодек charmap не может кодировать символы» при попытке проанализировать .xlsx с помощью openpyxl

    Вызов другого суб в том же листе VBA

    WorksheetFunction.Match используется во временном выпуске рабочего листа

    VBA – Shapes – .name – Runtime error '7': Out of Memory

    Использование UNION и диапазонов для ускорения удаления столбцов?

    Excel конвертация даты США (текст) в европейскую дату (дату)

    Измените цвет заливки ячейки на основе выбора из раскрывающегося списка в соседней ячейке

    Автоматически создавать флажки для имен столбцов

    Давайте будем гением компьютера.