Attach documents in Excel and then view them.

jpmccreary

New Member
Joined
Jul 21, 2010
Messages
11
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

Well-known Member
Joined
Aug 1, 2010
Messages
1,559
What does this do for you?

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

Forum statistics

Threads
1,084,752
Messages
5,379,650
Members
401,619
Latest member
manpais

Some videos you may like

This Week's Hot Topics

  • VBA code giving errors and stopping Excel
    Hello Experts, I have this code being used to loop through files in a file path, and copy specific data to another sheet. It is giving me several...
  • Disable MsgBox message
    Morning, I have a userform where if i leave a ComboBox empty i see a MsgBox warning me that i must enter an invoice number. It is this MsgBox i...
  • Macro Recorder into VBA, Copy Paste Data Filled Cells
    Hi Everyone, I have a macro recorder file that takes a selection of data, copies, then pastes into a new sheet on ("A2:B2") The issue is my...
  • Number format changes while pasting into a cell
    Hi, I am trying to paste a number 180204524303 from an email to an excel cell, however, whenever i try to do so , the the paste value appears as...
  • Collating data
    Hello all. Could someone please help. I am trying to pull all column data from multiple sheets (24 I total so far) into 1 master sheet without...
  • Sum Multiple Columns Based on Multiple Criteria
    I am trying to consolidate data by summing columns G through M based on material, plant, vendor, and fiscal year being identical. The period does...
Top