Sub main() Dim e, books As Object; e = ObjectCreate("Excel.Application"); books = e.workbooks; e.Visible = 1; books.open("C:\\duncan.xls", ReadOnly=1, Editable = 0) End Sub