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