Problems Opening Excel from Outlook

[Alan McGowan]

I am trying to open an Excel spreadsheet from within Outlook using the code below. It works perfectly if Excel is already running. If Excel is not already open it seems to open Excel (as it appears in task manager) but doesn't open the spreadsheet. Any ideas?

Dim xl As Object
Dim xls As Object
Dim strxls As String
Dim intSection As Integer
Dim intTries As Integer
Dim strFullPathAndFileName As String

' Set full path and filename
strFullPathAndFileName = "C:\filemail\fm_settings.xlsm"

intSection = 1 ''attempting GetObject...
On Error Resume Next
' Try to refer to running instance of Excel
Set xl = GetObject(, "Excel.Application")
xl.Visible = True
' If Excel wasn't running...
If xl Is Nothing Then
' start Excel
Set xl = CreateObject("Excel.Application")
xl.Visible = True
If xl Is Nothing Then
MsgBox "Can't start Excel!", vbExclamation
Exit Sub
End If
End If
On Error GoTo 0
intSection = 0 ''resume normal error handling

' Open text file
Set xls = xl.Workbooks.Open(strFullPathAndFileName)

Set xl = Nothing

 

[Alan McGowan]

Sorted. I had to add

xl.Visible = True

after the line of code

Set xls = xl.Workbooks.Open(strFullPathAndFileName)

 

[Diane Poremsky]

Ah... i thought that was the problem but saw you had it in - never noticed it was in the wrong place.

 

[Can]

Hi,
I want to open 2 excels and copy some rows from one to another. I used this code to open but ı could not manage to open 2 excels. Please help.

Sub excel1(item As Outlook.MailItem)

Dim xlApp As Object
Dim sourceWB
Dim sourceWS
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.EnableEvents = True
End With
strfile = "\\Tcjumbo\cno-rapor\Rapor_098\W-40\CQI_CS_Drop_Hucre_Detay_W40.xlsx" 'Put your file path.
Set sourceWB = xlApp.workbooks.Open(strfile, , False, , , , , , , True)
Set sourceWH = sourceWB.worksheets("Sheet1")
sourceWB.Activate
xlApp.workbooks.Open
End Sub