Open, copy sheet to another workbook

tiosetiono · February 18th, 2011, 07:40 PM

How do I write a VBA code to open a file, copy certain sheet to another workbook?
Thanks

mtranchi · February 18th, 2011, 09:34 PM

like so

Code:

Sub CopySheetl()
Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shtToCopy As Worksheet

Set wkbSource = Workbooks.Open("C:\MyWorkBookSource.xlsm")
Set wkbDest = Workbooks.Open("C:\MyWorkBookDest.xlsm")
Set shtToCopy = wkbSource.Sheets("mySheet")
shtToCopy.Copy wkbDest.Sheets(1)
End Sub