Køre Excel macro fra Word

Kode i Word:

Sub StartProgram()
Dim xl As Object

    Set xl = GetObject("sti & ExfilNavn")    '<<<<<< Makro1 er eks. på makronavn
    xl.Application.Visible = True
    xl.Parent.Windows(1).Visible = True 'False
       
    achan = DDEInitiate(App:="Excel", Topic:="System")
    DDEExecute Channel:=achan, Command:="[Run(" & Chr(34) & "Makro1" & Chr(34) & ")]"
    DDETerminate Channel:=achan
   
End Sub

Er skrevet via Office97

MVH

Tak for det, med lidt omskrivning og lookup på MS' hjemmeside fandt jeg ud af det. Du skal vist have lidt points...
Kelvin :-)

Ja tak

MVH