VB Script running copy from ne to another
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objPasteData = objExcel.Workbooks.Open("C:\Scripts\dest.xlsx") 'Copy From File name give correctly Set objRawData= objExcel.Workbooks.Open("C:\Scripts\\Source.xlsx") 'Paste To File Set obj1 = objPasteData.WorkSheets("Sheet1") 'Worksheet to be cleared Set obj2= objRawData.WorkSheets("Sheet1") 'Worksheet to be cleared 'obj1.Cells.Clear countSheet = objRawData.Sheets.Count For i = 1 to countSheet objRawData.Activate name = objRawData.Sheets(i).Name objRawData.WorkSheets(name).Select objRawData.Worksheets(name).Range("A2").Select objExcel.ActiveSheet.UsedRange.Select usedRowCount1 = objExcel.Selection.Rows.Count msgbox"working" objExcel.Range("A2:A25" & usedRowCount1).Copy objPasteData.Activate objPasteData.WorkSheets("Sheet1").S...