Запуск кода из VBA в VBScript обратно в VBA
Я пытаюсь найти способ позвонитьVBScript
функция с использованием @ У вExcel
, а затем передайте значение обратно Первенствует-@ V. Увидеть ниж
VBA
в Excel
Sub RunTest()
Dim objString as String
'Begin Pseudocode
objString = Call VBScript Function Test()
'End Pseudocode
MsgBox objString `from VBS
End Sub
VBScript
Function Test
Test = "Hello World"
End Function
Я знаю, это может показаться странным, потому что я мог просто написать функцию в VBA, но у нас был удален патч для офиса, и он по какой-то причине полностью убил функциональность одного из моих макросов. Странно то, что я могу запустить точно такой же код в любой другой офисной программе, но не в Excel. Чтобы обойти эту проблему, я переместил функцию, которая вылетает из Excel, в слово и вытащил ее с помощью application.run, но я предпочитаю этого не делать, так как открытие приложения word для запуска макроса замедляет мой процесс.
Любая помощь приветствуется, спасибо