Copy Entire Excel Sheet to existing sheet?
I'm having some trouble trying to copy an entire worksheet from one workbook to a sheet that already exists in a different workbook. Can this be done? Here's my code:
Code:
Sub COPY_FROM_MainSched_TO_DoorSched()
Dim SourcePath, DestPath, SourceFile, DestFile As String
'set variables
SourcePath = "H:\schedule\"
DestPath = "H:\shared_tools\"
SourceFile = "Cabot, S.xls"
DestFile = "door_inventory.xls"
Range("A1").Select
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Workbooks.Open Filename:=SourcePath & SourceFile
Sheets("LOG (2)").Select
ActiveSheet.Copy
Windows(DestFile).Activate
Sheets("temporary").Activate
ActiveSheet.Paste
End Sub
It seems my problem is that the sheet I'm trying to copy is not getting copied to the clipboard.
Re: Copy Entire Excel Sheet to existing sheet?
You can use the .Copy method of the sheet object.
VB Code:
Workbooks(1).Sheets("Sheet1").Copy After:=Workbooks(2).Sheets("Sheet3")