Цитата:
Сообщение от
belugin
напишите scriptlet, или используйте MS Scripting Control
Спасибо. Воспользовался вторым. Прекрасно. Жажду познания удовлетворил. Получилось так:
Код:
'Код - Excel VBA
Function myNewEncodeURIComponent(ByVal SourceString As String) As String
'в Tools/References должна быть включена ссылка
'на "Microsoft Script Control 1.0" (msscript.ocx)
Dim SC As MSScriptControl.ScriptControl
Set SC = New MSScriptControl.ScriptControl
SC.Language = "javascript"
myNewEncodeURIComponent = SC.Eval("encodeURIComponent('" & SourceString & "')")
Set SC = Nothing
End Function
? myNewEncodeURIComponent("два самолета")
%D0%B4%D0%B2%D0%B0%20%D1%81%D0%B0%D0%BC%D0%BE%D0%BB%D0%B5%D1%82%D0%B0
Сделал по аналогии с примером отсюда:
Использование Script Control в VBA
P.S. В качестве "узелка на память" приложу еще ссылочку (напрямую не использовал, но может пригодиться):
Как с помощью VBA извлекать информацию из Web-страниц