Copy data from one Excel Sheet 2 another

Copy data from one Excel Sheet to another Ans: Dim vin ,vin_ws Set Excl_obj = CreateObject(“Excel.Application”) obj.Visible = True Set vin_Workbook1= Excl_obj.Workbooks.Open(“C:\1.xls”) Set vin_Workbook2= Excl_obj.Workbooks.Open(“C:\2.xls”) Set vin_ws =objWorkbook2.Worksheets(“Sheet1″) vin_Workbook1.Worksheets(“Sheet1″).UsedRange.Copy vin_Workbook2.Worksheets(“Sheet1″).Range(“vin”).PasteSpecial Paste =xlValues vin_Workbook1.save vin_Workbook2.save vin_Workbook1.close vin_Workbook2.close set Excl_obj=nothing *****************

AutoFit the Cell in Excel while Copying data from one Excel to other

Autofil While Coying from 1 excel to other Answer **** ——————— Dim A1 ‘As Range Dim ws ‘ Worksheet Set obj = CreateObject(“Excel.Application”) obj.Visible = True Set objWorkbook1= obj.Workbooks.Open(“C:\1.xls”) Set objWorkbook2= obj.Workbooks.Open(“C:\2.xls”) Set ws =objWorkbook2.Worksheets(“Sheet1″) objWorkbook1.Worksheets(“Sheet1″).UsedRange.Copy objWorkbook2.Worksheets(“Sheet1″).Range(“A1″).PasteSpecial Paste =xlValues ‘ To fit the first 10 columns for column=1 to 10 ws.columns(column).AutoFit next **** objWorkbook1.save objWorkbook2.save [...]