Outlook to open excel

[maxx_daddy]

Hi all again,
Ok so my code snippeting has gotten me this far.
I open a workbook from outlook via this code:
Sub XL_Test()
Dim myXLApp As Excel.Application
Dim myXLWB As Excel.Workbook
On Error Resume Next
Set myXLApp = GetObject(, "Excel.Application")
If myXLApp Is Nothing Then 'No instance of Excel is available
Set myXLApp = CreateObject("Excel.Application")
End If
Workbooks.Open "C:\Users\Joe\Desktop\R-MailJoe.xlsm"
End Sub

That "opens" the work book, but I cannot see it, it doesn't pop up or show up on my screen/task bar, but a quick look at the task manager and sure enough, there is excel.exe.

I will run all of the copy/paste code (want to snag the subject and addressee and paste) from excel, but getting it opened and usable is the secret.
What did i do wrong?
Thanks,

edit: also I know it has opened the correct work book because if i try to open normally it tells me it is aready open.

joe

 

[wigi]

myXLApp.Visible = True

 

[maxx_daddy]

myXLApp.Visible = True

I hope you heard me slapping my head saying "duh".
I am truly sorry for that..... that was too easy.

as always,

THANK YOU!!!!

Joe

 

[wigi]

I am okay if next time, you can use

 tags around your code.
Thanks in advance for considering this.

 

[maxx_daddy]

I am okay if next time, you can use

 tags around your code.
Thanks in advance for considering this.[/QUOTE]
 
is that how you do that?????

 

[maxx_daddy]

Sub XL_Test()
Dim myXLApp As Excel.Application
Dim myXLWB As Excel.Workbook
On Error Resume Next
Set myXLApp = GetObject(, "Excel.Application")
If myXLApp Is Nothing Then 'No instance of Excel is available
Set myXLApp = CreateObject("Excel.Application")
End If
Workbooks.Open "C:\Users\Joe\Desktop\R-MailJoe.xlsm"
End Sub
[code]
 
(testing)
 
help, what am i doing wrong, sure would like to do it right

 

[wigi]

Hi

The second time

 should have a / in front of code.
It is the closing tag which matches the opening tag (without / )

 

[maxx_daddy]

Sub XL_Test()
Dim myXLApp As Excel.Application
Dim myXLWB As Excel.Workbook
On Error Resume Next
Set myXLApp = GetObject(, "Excel.Application")
If myXLApp Is Nothing Then 'No instance of Excel is available
Set myXLApp = CreateObject("Excel.Application")
End If
Workbooks.Open "C:\Users\Joe\Desktop\R-MailJoe.xlsm"
End Sub/[code]
 
still testing

 

[wigi]

After the [ and in front of code

 

[maxx_daddy]

Sub XL_Test()
Dim myXLApp As Excel.Application
Dim myXLWB As Excel.Workbook
On Error Resume Next
Set myXLApp = GetObject(, "Excel.Application")
If myXLApp Is Nothing Then 'No instance of Excel is available
Set myXLApp = CreateObject("Excel.Application")
End If
Workbooks.Open "C:\Users\Joe\Desktop\R-MailJoe.xlsm"
End Sub