Как мне получить URL / путь к библиотеке документов sharepoint из Excel VB?

Question

Я хотел бы установить имя файла для элемента, который я создаю в библиотеке документов Excel. Однако, когда я пытаюсь помешать стандартному сохранению моим собственным именем файла, он хочет сохранить его на моей МЕСТНОЙ МАШИНЕ. Я бы с радостью предоставил PATH, если это необходимо, но я действительно НЕ ХОЧУ СЛОЖИТЬ ЭТО.

Могу ли я использовать какие-либо свойства для анализа этой информации? Метаданные? Шаблон

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

'MyFilePath = "http://server/dept/purchasetracking/" MyFilePath = Application.Path

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

ActiveWorkbook.SaveAs Имя файла: = MyFilePath & MyFileName ', FileFormat: = 52 'ActiveWorkbook.SaveAs Имя файла: = MyFileName End If End Sub

Answer 1

Мне нравится использовать функцию GetSetting() и инструкцию SaveSetting для сохранения такой информации в реестре (последний использованный путь и т. Д.).

Когда файл открывается из папки SHP, ActiveWorkbook.Path начинается с "http://".. В этом случае вы можете сохранить этот путь из процедуры Sub Workbook_Open() в реестре, чтобы сохранить информацию о пути SHP. Это может быть позже используется, чтобы предложить пользователю хороший путь / имя файла.

Надеюсь, это поможет .... Удачи MikeD