vba / Office：如何从“应用程序”对象获取服务器名称作为字符串？

Question

有没有办法使用vba从“Application”对象获取服务器名称作为字符串？

代码的一个例子是：

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