Excel-VBA从网上邻居共享盘中查找文件

应用场景

查找并打开网上邻居的共享文件夹中的共享文件

知识要点

1：本机通过磁盘符访问，网上邻居通过IP地址访问，所以判断网上邻居文件是否存在，文件路径只要包含网上邻居的IP地址、共享目录、和文件名即可

2：FileExists 方法 如果指定的文件存在，返回 True，若不存在，则返回 False

3：shell函数 返回一个variant，如果成功的话，代码这个程序的任务ID，不成功，返回0

Sub 在网上邻居查找并打开文件()

    '如果网上邻居的共享文件夹中的文件存在

    'fileexists 方法，如果指定文件存在，返回True，否则返回false

    If CreateObject('Scripting.FileSystemobject').fileexists('\\192.168.1.203\销售\7月销售明细.xlsx') Then

        Workbooks.Open '\\192.168.1.203\销售\7月销售明细.xlsx'  '打开文件

    End If

End Sub

Sub 打开网上邻居的文件夹()

    Shell 'explorer.exe \\ 192.168.1.203\销售\', vbMaximizedFocus

End Sub