åbne regneark med makro fra Word

Hej

Her kommer der 2 eksempler. Den øverste kan du bare kopiere ind i VBA og bruge direkte. Den nederste der giver mere hjælp, og er hurtigere der skal du lige sætte en reference til Microsoft Excel 11.0 Object Library.

Sub StartExcelFile()
    Dim oExcel As Object
    Dim oWorkBook As Object
    Set oExcel = CreateObject("Excel.application")
    Set oWorkBook = oExcel.workbooks.Open("c:\fil.xls")
    oExcel.Visible = True
    Set oWorkBook = Nothing
    Set oExcel = Nothing
End Sub

Sub startExcelWithReference()
    Dim oExcel As Excel.Application
    Dim oWorkBook As Excel.Workbook
    Set oExcel = CreateObject("Excel.application")
    Set oWorkBook = oExcel.workbooks.Open("c:\fil.xls")
    oExcel.Visible = True
    Set oWorkBook = Nothing
    Set oExcel = Nothing
End Sub

VH CK

Ja - du har ret, og begge metoder virker rigtig fint. Tak for hjælpen
mvh. Folmer