Я пытаюсь найти образец VBA для сохранения файла Excel в iManage.У меня есть некоторый код, который позволяет мне загрузить документ, но я не знаю, есть ли что-то подобное для сохранения в рабочем пространстве.
Файл Excel будет иметь ссылку на рабочее пространство, например, 123456/0001, и поэтому код макросапосмотрел бы это и затем сохранил бы в Рабочую область с этим номером клиента / материи.
Код, который я имею для взаимодействия с iManage, находится здесь:
Private Sub DownloadDoc()
Dim dmsRoot As IManDMS
Dim dmsSession As IManSession
Dim dmsDatabase As IManDatabase
Dim doc As IManDocument
Dim tempDocName As String
Const ServerName As String = "MYSERVER"
Const DatabaseName As String = "MYDATABASE"
Const DocNumToFind = 7487741
Const DocVerToFind = 1
tempDocName = "C:\temp\mydoc.docx"
Set dmsRoot = New ManDMS
Set dmsSession = dmsRoot.Sessions.Add(ServerName)
dmsSession.TrustedLogin
Set dmsDatabase = dmsSession.Databases.ItemByName(DatabaseName)
Set doc = dmsDatabase.GetDocument(DocNumToFind, DocVerToFind)
doc.GetCopy tempDocName, imGetCopyOptions.imNativeFormat
End Sub
Я осознаю, что нена самом деле у меня вообще много кода, и поэтому будет полезна даже пара указателей / методов и т. д., к которым я могу обратиться и изучить еще немного.