vba / Office: Как получить имя сервера в виде строки из объекта «Приложение»?

Question

Есть ли способ получить имя сервера в виде строки из объекта "Приложение", используя vba?

Пример кода:

Option Explicit
Sub Test()
    Dim SrvrName As String
    SrvrName = Application.ServerName 'Pseudocode
End Sub

Пример вывода: «Excel.Application», «Outlook.Application», «Word.Application» и т. Д.

Мне нужно передать эту строку во внешний файл VBScript. Эта строка должна динамически изменяться в зависимости от используемого приложения.

Answer 1

Я думаю, что вы после функции TypeName().

Sub test()
Dim oExcelApp as Variant
Set oExcelApp = Application
MsgBox TypeName( oExcelApp ) 'Outputs: "Application"
End Sub