Topic: Macro

[krampaul82]

Good Afternoon
Is it possible to open an Excell Document from a MSword vba Application?
code so far

Sub Get_Req_for_WEBS()

'
' Get_Req_for_WEBS
' This Will Open A WEBS Information sheet Specific to Mark
'

 ChangeFileOpenDirectory "C:\gtc_proj\VBA_word\Excel_2007_doc\Mark\"
    Documents.Open FileName:= _
        "C:\gtc_proj\VBA_word\Excel_2007_doc\Mark\EXCEL.*" _ This is where i would like to launch an Excel File
        , ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    'Windows("Document1").Activate
    End
End Sub

any help appreciated

[Matt__W]

Maybe this will help??


http://windowssecrets.com/forums/showthread.php/36036-Open-Excel-Wbk-from-Word-Doc-(VBA-Excel-Word-2000)

[krampaul82]

Thanks for the Nudge Matt

[krampaul82]

Good afternoon

Found this code:

Sub OpenExcel_Letter_of_trans()
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
strDir = "V:\gtc_proj\VBA_word\Excell_2007_doc\"
strFile = "_Master Letter of Transmittal.xls"
ShellExecute 0, "OPEN", strDir & strFile, "", strDir, 1
End Sub

does not work  does not like the Declare function any ideas?
any help appreciated
Mark

[Matt__W]

Try this instead...

Code: [Select]

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub OpenExcel_Letter_of_trans()
   strDir = "V:\gtc_proj\VBA_word\Excell_2007_doc\"
   strFile = "_Master Letter of Transmittal.xls"
   ShellExecute 0, "OPEN", strDir & strFile, "", strDir, 1
End Sub

[krampaul82]

It says the object invoked has disconnected from its clients.

[krampaul82]

Matt
I got it to work! it was user error! Imagine that!
Thank you for your help
Mark

[Matt__W]

You're welcome!   :kewl: