View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
phreud[_11_] phreud[_11_] is offline
external usenet poster
 
Posts: 1
Default Copying and pasting entire workbook

Dave Peterson wrote:
*Workbooks(2).Worksheets.Copy _
after:=workbooks(1).worksheets(1)

will copy the sheets to workbooks(1).


Dave Peterson
*


The thing is, I need to replace the sheets in workbooks(1) with th
corresponding sheets in workbooks(2), not just paste them as ne
sheets.

I have a working (but really ugly) solution. I can copy and paste cel
by cell, and everything in the workbook (graphs etc) get update
correctly.

This is what I have now:


Code
-------------------

Workbooks.Open sFname
Workbooks(2).Worksheets("Sheet1").Range("C11").Cop y
Workbooks(1).Worksheets("Sheet1").Range("C11").Pas teSpecial Transpose:=True
Workbooks(2).Close False

-------------------


I want to do this for all cells in all worksheets.

Thankyou

--
Message posted from
http://www.ExcelForum.com