使用VBA从Project Professional 2007访问Sharepoint

Question

我有很多Microsoft Project Server，我已经编写了一个项目指南，我希望每个人都能使用它。因为我只希望特定服务器的用户只能访问其服务器而不能访问其他服务器，所以我需要将项目指南存储在每台服务器的SharePoint上。在Project Professional 2003中，有没有办法知道VBA中的URL（可能是一个对象）到它自己安装的服务器上。

这是我想要做的一个例子：

Sub Currently()
  OptionsInterfaceEx ProjectGuideContent:="https://example.com/SERVER_NAME/Shared%20Documents/Project%20Guide/xmlschemas.xml"
End Sub

Sub What_I_Would_Like()
  OptionsInterfaceEx ProjectGuideContent:=Application.ServerAddress & "Shared%20Documents/Project%20Guide/xmlschemas.xml"
End Sub

我这样做是因为我不必编辑每个服务器的URL。

有任何问题请问，

安德鲁

Answer 1

我们采取的解决类似问题的方法是实现一个简单的“我是谁？”您在给定服务器上托管的Web服务。通过阅读StackOverflow，看起来好像可以从VBA进行Web服务调用。 Web服务只返回它看到请求来自的IP地址或主机名，并使用它来构建您的URL。