Link to home
Start Free TrialLog in
Avatar of morinia
moriniaFlag for United States of America

asked on

Copying Excel spreadsheet without query

In VB code, how can  copy Sheet 1 to Sheet 2 without the query?  I would like to keep all vaues and formatting. I just don't want the query?
Avatar of Alfredo Luis Torres Serrano
Alfredo Luis Torres Serrano
Flag of United States of America image

Dim workbook As New Workbook()
workbook.LoadFromFile("test.xls")
Dim worksheet As Worksheet = workbook.Worksheets(0)
Dim newsheet As Worksheet = CType(worksheet.Clone(worksheet.Parent), Worksheet)
workbook.Worksheets.Add(newsheet)
or  Excel vba

Sub test()
   Worksheets("sheet2").Cells.Copy
   Worksheets("sheet1").Range("a1").PasteSpecial
End Sub
ASKER CERTIFIED SOLUTION
Avatar of dlmille
dlmille
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial