vba如何显示网上邻居

在VBA（Visual Basic for Applications）中，要显示“网上邻居”，你可以使用Windows Shell对象来执行一些基本的文件系统操作。以下是一个简单的VBA示例，演示了如何打开“网上邻居”：

```vba

Sub ShowNetworkNeighborhood()

Dim ShellApp As Object

Dim ShellCmd As String

' 创建Windows Shell对象

Set ShellApp = CreateObject("WScript.Shell")

' 设置命令字符串，用于打开网上邻居

ShellCmd = "net use .NEC"

' 执行命令

ShellApp.Run ShellCmd, 1, True

End Sub

```

请注意以下几点：

1. 上述代码中的`net use .NEC`命令是尝试连接到名为`NEC`的网上邻居。在实际应用中，你可能需要根据你的网络环境修改这个命令。

2. `ShellApp.Run`方法的第三个参数`1`表示在新窗口中运行命令，`True`表示等待命令执行完毕。

3. 由于VBA没有直接访问网络邻居的内置方法，因此通过这种方式间接打开网上邻居。

将此代码放入Excel的VBA编辑器中，然后运行`ShowNetworkNeighborhood`子程序，应该会打开网上邻居窗口。