Using "GetObject" to activate an Open Excel Workbook 1

[ActMod]

Can anyone suggest why the following keeps giving me a "Type Mismatch" and how I might revise it to activate the Excel file named "MyExcel"?

Set objExcel = GetObject("C:\Documents and Settings\Access Practice File\MyExcel.xls&quot

Thank you for any help.

P.S. I am also looking for a way to open a dialog box that enables a User to browse my "C" Drive for a specific Excel file.

 

[VBslammer]

Just instantiate Excel and use its built-in capabilites:

Public Sub OpenExcel()
On Error Resume Next

  Dim xl As Excel.Application
  Dim wb As Excel.Workbook
  Dim sht As Excel.Worksheet
  
  Set xl = New Excel.Application    'instantiate Excel
  
  xl.Visible = True
  
  ' use Excel's built-in open dialog
  
  xl.Dialogs(xlDialogOpen).Show "C:\*.xls"
  Set wb = xl.ActiveWorkbook
  
  ' put appropriate sheet name/index here.
  
  Set sht = wb.Sheets(1)
  
  ' tinker with range properties
  
  With sht
    With .Range("E20", "G20")
      .Merge
      .Value = "Merged Cells"
      .HorizontalAlignment = xlHAlignCenter
      .Font = "Comic Sans"
      .Font.Size = 18
      .Font.Bold = True
      .Interior.ColorIndex = 27
    End With
    .Activate
  End With
  
  ' do more stuff...
  
End Sub

VBSlammer

Unemployed in Houston, Texas

 

[ActMod]

Thanks much VBSlammer. This worked great!!
Jim (ActMod)