Как передать переменные параметры в Javascript-функцию с помощью Excel VBA

Question

Я не уверен, что у меня есть правильные условия выше, но то, что я пытаюсь сделать, это вызвать функцию Javascript, передающую в нее параметры из файла Excel , поэтому функция запустится и перечислит элементы в следующем текстовом поле, что позволит мне выбрать правильную запись в этом текстовом поле, а затем выберет последнее поле.

Вот код, который у меня есть, это работает, если я не ставлю переменную в него: Call .Document.parentWindow.execScript("FillVendorNames('MyText')", "javascript") Если я кладу в любой переменной вместо «MYTEXT», я получаю ошибку во время выполнения: Call .Document.parentWindow.execScript("FillVendorNames(cCode)", "javascript") Call .Document.parentWindow.execScript("FillVendorNames(.document.all.ComCode)", "javascript") Переменные объявляются ранее в коде, и я могу проверить, правильно ли эти значения используются в окне непосредственных данных, и все они правильные, но я все еще получаю ошибку времени выполнения.

То, что я пытаюсь сделать, это использовать существующую функцию, которая автоматически открывает раскрывающийся список на основе опции, выбранной в исходном раскрывающемся списке. Если я выбираю MyText в первом раскрывающемся списке, то FillVendorNames дает список поставщиков в следующем раскрывающемся списке, позволяя мне выбрать его. Затем я могу выбрать следующий вариант в следующей функции и выбрать третий вариант, но все это основано на первой функции, создающей второй выпадающий список. Первый список автозагружается на странице, но второй нет, поэтому я не могу выбрать его. Может ли кто-нибудь помочь, пожалуйста? Спасибо.

Answer 1

Возможны два вопроса:

• VBA не заменяет имена переменных с их значениями в строках

Пример:

Dim x as String 
x = "Hello world!" 

Msgbox x 
// shows "Hello world!" 

Msgbox "x" 
// shows "x" 

• Call никогда не требуется (потому что вы вместо этого можно просто опустить скобки) и может вызвать проблемы

Пример:

Call Msgbox("x") 
// is almost exactly the same as 
Msgbox "x" 

Просто используйте:

With foo 
    // do stuff 
    .Document.parentWindow.execScript "FillVendorNames(" & cCode & ")", "javascript" 
    // do more stuff 
End With