Outlook open Excel

[cb711]

I found this code online and it works great. I want it to open an excel file at the end. For some reason it will not try to open. The red text is where my problem is. Any help would be great.

Here is the link to the script http://www.vbaexpress.com/kb/getarticle.php?kb_id=522

'###############################################################################
 '### Module level Declarations
 'expose the items in the target folder to events
Option Explicit
Dim WithEvents TargetFolderItems As Items
 'set the string constant for the path to save attachments
Const FILE_PATH As String = "Y:\"
 
 '###############################################################################
 '### this is the Application_Startup event code in the ThisOutlookSession module
Private Sub Application_Startup()
     'some startup code to set our "event-sensitive" items collection
    Dim ns As Outlook.NameSpace
     '
    Set ns = Application.GetNamespace("MAPI")
    Set TargetFolderItems = ns.Folders.Item( _
    "Personal Folders").Folders.Item("Temp").Items
 
End Sub
 
 '###############################################################################
 '### this is the ItemAdd event code
Sub TargetFolderItems_ItemAdd(ByVal Item As Object)
     'when a new item is added to our "watched folder" we can process it
    Dim olAtt As Attachment
    Dim i As Integer
 
    If Item.Attachments.Count > 0 Then
        For i = 1 To Item.Attachments.Count
            Set olAtt = Item.Attachments(i)
             'save the attachment
            olAtt.SaveAsFile FILE_PATH & olAtt.FileName
            Item.Delete
        Next
    End If
 
    Set olAtt = Nothing
 
 
End Sub
 '###############################################################################
 '### print routine
[COLOR=red]Sub Openexcel()[/COLOR]
 
 
[COLOR=red] Dim xlApp As Excel.Application[/COLOR]
[COLOR=red] Dim wb As Excel.Workbook[/COLOR]
 
[COLOR=red]  'in the background, create an instance of xl then open, print, quit[/COLOR]
[COLOR=red] Set xlApp = New Excel.Application[/COLOR]
[COLOR=red] Set wb = xlApp.Workbooks.Open("C:\SQL\File.xls")[/COLOR]
[COLOR=red] wb.Visible = True[/COLOR]
 
[COLOR=red] 'xlApp.Quit[/COLOR]
 
[COLOR=red]  'tidy up[/COLOR]
[COLOR=red] 'Set wb = Nothing[/COLOR]
[COLOR=red] 'Set xlApp = Nothing[/COLOR]
 
 
[COLOR=red]End Sub[/COLOR]
 '###############################################################################
 '### this is the Application_Quit event code in the ThisOutlookSession module
Private Sub Application_Quit()
 
    Dim ns As Outlook.NameSpace
    Set TargetFolderItems = Nothing
    Set ns = Nothing
 
 
End Sub

 

[Derek Brown]

I cannot see that you are actually calling the "Openexcel" routine in the code you have posted.
If you are calling it from somewhere else, try setting a break-point in the code and then step through it.
If it is called and when the end of the code is reached, the file closes try adding the following:

xlApp.UserControl = True

 

[ChrisOswald]

also, .visible isn't a workbook level property.

replace

wb.visible = true

with

xlapp.visible = true

 

[FrankMarten]

This is pretty interesting, I have no problem opening an excel document using office 97 software. It seems like I have the trouble in outlook 2000. If I create a new mail message and insert an attachment I am unable to view the attachment. I also get an error stating "The system cannot find the file specified"." Excel opens but doesn't display the page or a blank page. There is no problem when I try the same with word. It's kind of weird because we are using terminal server here and this is the only session that I am having problems with. Please let me know if anyone has run into this problem.

 

[Derek Brown]

Hello and welcome to The Board.
Are you able to post the code that is not working?