Dim xl 'As Excel.Application Set xl = CreateObject("Excel.Application") Dim wb 'As Excel.Workbook Set wb = xl.Workbooks.Open(strFileName, False, True, , , , True, , , , , , False) Dim ws 'As Excel.Worksheet Set ws = wb.Worksheets(1) 'ws.Cells(1,1).Value 'wb.Close False 'xl.Quit