Set ExcelApp = WScript.CreateObject("Excel.Application")
ExcelApp.Workbooks.Open ("C:\\pr2.xls")
Set ExBook = ExcelApp.ActiveWorkBook
Set ExSheet = ExBook.ActiveSheet
Set r = ExSheet.Range("A1:H7000")
ExcelApp.visible=1