Solved

How do I copy a sheet in Excel VBA from one workbook to another replacing it if it already exists.

Posted on 2014-09-29
8
441 Views
Last Modified: 2014-09-30
Hi All,

I want to copy an Excel worksheet from workbook A to workbook B, checking to see if a sheet of that name already exists on workbook B. If it does, then I want to delete it, replacing it with the sheet from workbook A.

My question is: can you do this in one VBA statement ?

thanks
Toco
0
Comment
Question by:Tocogroup
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 24

Expert Comment

by:Phillip Burton
ID: 40350317
No - you have to do it with separate functions, because Microsoft does not want you to accidentally overwrite data and not be able to undo it.
0
 
LVL 33

Assisted Solution

by:Norie
Norie earned 250 total points
ID: 40350318
Toco

Short answer - no.

First you would need code to check if there was a worksheet in workbook B with the same name worksheet you want to copy from workbook A.

Then you would need code to delete it if required

Finally you do the copying.

The latter 2 are one-liners but the first part wouldn't be.
0
 
LVL 32

Expert Comment

by:Rob Henson
ID: 40350406
Can I suggest you confirm your understanding of the terminology?

One VBA Statement - do you mean one instruction / line within a routine or do you mean one set of instructions / lines making up a routine?

The way I try and understand a VBA routine is usually to imagine the thought process if you were doing it manually and then flow chart it. For your example, the steps I suspect would be:

Activate Source Workbook
Copy Data
Activate Destination Workbook
Q1 - Does required sheet Exist?
If Q1 = Yes - Q2 Does it already contain data?
If Q2 = Yes - Clear data and paste
If Q2 = No - Paste
If Q1 = No - Create Sheet, paste data.

Thanks
Rob H
0
Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

 
LVL 33

Expert Comment

by:Norie
ID: 40350476
Toco

Is it an entire sheet or is it data from a sheet you want to copy?
0
 

Author Comment

by:Tocogroup
ID: 40351539
It's an entire sheet
0
 
LVL 32

Accepted Solution

by:
Rob Henson earned 250 total points
ID: 40351686
I take it though if the sheet already exists it will be just data.

If so the check is simpler as you only have two possible actions, paste data or copy sheet.
0
 

Author Closing Comment

by:Tocogroup
ID: 40352227
Thanks for your joint help.

Yes, the steps are as follows:

1. Check if sheet exists in workbook.
2. If true, delete sheet.
3. Copy sheet
0
 
LVL 32

Expert Comment

by:Rob Henson
ID: 40352450
Rather than Delete sheet and then insert sheet, why not overwrite existing data with copied data.

In source files the following vba statement will copy the whole sheet:

Cells.Copy

Thanks
Rob
0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.

774 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question