Sharepoint 2007 如何提取sharepoint文档库I'；我是Excel VB的？

我想为我在Excel文档库中创建的项目设置文件名。然而，当我试图用我自己的文件名干扰标准保存时，它想保存到我的本地机器上。如果有必要，我很乐意提供路径，但我真的不想硬编码它

是否有任何属性可用于解析此信息？元数据？模板

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
   Sheets("Purchase Order").Range("Description,VendorInfo,QUANTITY1,PRODUCT1,ITEM1,PRICE1,submitter,ShipVia,Terms,MACRO_ALERT").Interior.ColorIndex = xlColorIndexNone
   Sheets("Purchase Order").Range("Location").Interior.Color = RGB(184, 204, 228)
   Sheets("Purchase Order").Range("MACRO_ALERT").Value = ""

  Dim MyFileName As String
Dim MyFilePath As String

'我的文件路径='http://server/dept/purchasetracking/" MyFilePath=Application.Path

  MyFileName = "PO_" & Format(Now(), "yyyymmdd-hhnnss")
  MsgBox (MyFilePath & MyFileName)

ActiveWorkbook.SaveAs文件名：=MyFilePath&MyFileName'，文件格式：=52 'ActiveWorkbook.SaveAs文件名：=MyFileName 如果结束

---

End Sub

我喜欢使用函数

GetSetting（）

和语句

SaveSetting

将这些信息保存到注册表（上次使用的路径等）

从SHP文件夹打开文件时，

ActiveWorkbook.Path

以“http://”开头。在这种情况下，您可以将此路径从

子工作簿\u Open（）

过程保存到注册表中，以保留SHP路径信息。这可以在以后用于向用户提供良好的路径/文件名

希望这有助于。。。。祝你好运，麦克