Блог

Я хотел бы задать имя файла для элемента, который я создаю в библиотеке документов 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
  

‘ MyFilePath = «http://server/dept/purchasetracking /»
MyFilePath = Application.Path

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

ActiveWorkbook.Сохраните имя файла: =MyFilePath amp; MyFileName’, формат файла: = 52
‘ActiveWorkbook.Сохраните имя файла:=MyFileName
Завершить, если
End Sub

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

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

Надеюсь, это поможет…. Удачи, МикеД