Set OpenExcel = CreateObject("Excel.Application")Set Openf = OpenExcel.Workbooks.Open("c:\0.xls")Selection.TypeText Text:=Openf.Sheets("Sheet1").Cells(3, 5)
