Attach documents in Excel and then view them.

[jpmccreary]

I have an Excel workbook that allows users to attach documents. Once attached, I need an option to view/open these documents. I need to get the name of the open document so I can continue to control via the Excel workbook. Any ideas? Below is the full code for the View sub. I get "Run-time error 429: ActiveX component can't create object" when I try to assign Attachmentname the Activedocument name. I am sure it is the wrong syntax but I have not been able to find anything that works.

Private Sub cbView_Click()
Dim iIndex As Integer
Dim DocName As String
Dim MerlinName As String
Dim AttachmentName As String

MerlinName = ActiveWorkbook.name

iIndex = Me.lbAttached.ListIndex
If iIndex = -1 Then Exit Sub

DocName = Me.lbAttached.Value

ActiveWorkbook.Worksheets("DOCS").OLEObjects(DocName).Activate
AttachmentName = ActiveDocument.name

Workbooks(MerlinName).Activate
Range("OpenWorkbookName").Offset(iIndex + 1, 0) = AttachmentName

GetObject (AttachmentName)
ActiveWindow.WindowState = xlMaximized
Me.Hide
frmCloseAttachment.Show
End Sub

 

[tweedle]

What does this do for you?

Dim objDoc As OLEObject
'<snip>
 
Set objDoc = ActiveWorkbook.Worksheets("DOCS").OLEObjects(DocName)
objDoc.Activate
Debug.Print objDoc.Name 
AttachmentName = objDoc.Name