Opening a WorkSite file from within Excel.

Steelsie

Hi,

I am trying to open a filesite document from within excel, i have been reading through various examples in this forum and still have not quite been able to achieve the desired result.

This is what i have so far.

Private Sub Form_Load()
' WorkSite 8.0
Dim dms As New ManDMS
Dim sess As IManSession
Dim doc As IManDocument

' IManExt 8.0
Dim cmd As OpenROCmd
Dim context As ContextItems

' local
Dim num, ver As Long
Dim saDox(0) As NRTDocument

num = 12708389
ver = 1

Set sess = dms.Sessions.Add("MY-SERVER")
sess.TrustedLogin

If sess.Connected Then
' Get document object handle
Set doc = sess.Databases.ItemByName("MY_DATABASE").GetDocument(num, ver)
If Not doc Is Nothing Then
Set saDox(0) = doc
' Populate the ContextItems for the OpenCmd Object
Set context = New ContextItems
With context
'.Add "ParentWindow", Application.hWnd
.Add "SelectedIManContent", doc
.Add "SelectedIManObjects", saDox(0)
.Add "IManExt.OpenCmd.NoCmdUI", True
End With

' Invoke an instance of the OpenCmd Object
Set cmd = New OpenCmd
With cmd
.Initialize context
If cmd.Status = (cmd.Status & nrActiveCommand) Then
.Execute
Dim filLoc As String
filLoc = context("IManExt.OpenCmd.ING.FileLocation")
' Get the checkedout path
Workbooks.Open (filLoc)
End If
End With
End If
End If

End Sub

It fails at filLoc = context("IManExt.OpenCmd.ING.FileLocation") with "Unable to obtain selected document(s) information. The current database or server might be unavailable".

The database and server are both fine and doc definately holds the document i am looking for as i am able to get at its properties.

Does anyone know if i am missing anything or am i using the complete wrong approach.

I only need to open the file briefly to extract a figure and then close it so i using OpenROcmd to open it read only.

Any assistance is greatly appreciated and if you need me to clarify something please let me know.

Many thanks
Tim

jny

Hi, I am trying to open a filesite document from within excel, i have been reading through various examples in this forum and still have not quite been able to achieve the desired result. This is what i have so far. Private Sub Form_Load() ' WorkSite 8.0 Dim dms As New ManDMS Dim sess As IManSession Dim doc As IManDocument ' IManExt 8.0 Dim cmd As OpenROCmd Dim context As ContextItems ' local Dim num, ver As Long Dim saDox(0) As NRTDocument num = 12708389 ver = 1 Set sess = dms.Sessions.Add("MY-SERVER") sess.TrustedLogin If sess.Connected Then ' Get document object handle Set doc = sess.Databases.ItemByName("MY_DATABASE").GetDocument(num, ver) If Not doc Is Nothing Then Set saDox(0) = doc ' Populate the ContextItems for the OpenCmd Object Set context = New ContextItems With context '.Add "ParentWindow", Application.hWnd .Add "SelectedIManContent", doc .Add "SelectedIManObjects", saDox(0) .Add "IManExt.OpenCmd.NoCmdUI", True End With ' Invoke an instance of the OpenCmd Object Set cmd = New OpenCmd With cmd .Initialize context If cmd.Status = (cmd.Status & nrActiveCommand) Then .Execute Dim filLoc As String filLoc = context("IManExt.OpenCmd.ING.FileLocation") ' Get the checkedout path Workbooks.Open (filLoc) End If End With End If End If End Sub It fails at filLoc = context("IManExt.OpenCmd.ING.FileLocation") with "Unable to obtain selected document(s) information. The current database or server might be unavailable". The database and server are both fine and doc definately holds the document i am looking for as i am able to get at its properties. Does anyone know if i am missing anything or am i using the complete wrong approach. I only need to open the file briefly to extract a figure and then close it so i using OpenROcmd to open it read only. Any assistance is greatly appreciated and if you need me to clarify something please let me know. Many thanks Tim

These are the correct context items to use when the command is executed from within an instance of an integrated Office app:

[IN]
SelectedNRTDocuments - A SafeArray of NRTDocument Objects
IManExt.OpenCmd.NoCmdUI - Bolean. True to skip ui
IManExt.OpenCmd.Integration - Boolean. True to indicate you're in an instance of Office Integrated app

[OUT]
IManExt.OpenCmd.ING.FileLocation - String. Returns the portable-checkout location. This contextitem is present only when IManExt.OpenCmd.Integration ContextItem is set to true.