Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy from one workbook to another
Hi,
I have two workbooks in a folder on my desktop. I want to copy from one workbook to the other workbook. It tells me it cannot locate the file. It did run once but I have not been able to get it to run again. I have tried the path various ways with no success. Have I missed something? Here is my code: Sub wkbookCreate() Dim wbkCopyFrom As Workbook Dim rngCopyFrom As Range Dim rngCopyTo As Range Dim wbkName As String On Error Resume Next Set wbkCopyFrom = Workbooks("test.xls") If wbkCopyFrom Is Nothing Then Set wbkCopyFrom = Workbooks.Open("test.xls") On Error GoTo Done If wbkCopyFrom Is Nothing Then MsgBox "Cannot find originating file" Else Application.ScreenUpdating = False ThisWorkbook.Sheets((Replace(Tablespg.Name, "'", "''"))). _ Unprotect Password:=([MyPassword]) 'Pool lists 'CAM Set rngCopyFrom = wbkCopyFrom.Sheets((Replace(Tablespg.Name, _ "'", "''"))).Range("J4:J21") Set rngCopyTo = ThisWorkbook.Sheets((Replace(Tablespg.Name, _ "'", "''"))).Range("J4:J21") rngCopyTo.Value = rngCopyFrom.Value ThisWorkbook.Sheets((Replace(Tablespg.Name, "'", "''"))). _ Protect Password:=([MyPassword]) ThisWorkbook.Sheets((Replace(GrossUpspg.Name, "'", "''"))). _ Unprotect Password:=([MyPassword]) 'Cam Pools list 2 Set rngCopyFrom = wbkCopyFrom.Sheets((Replace(GrossUppg.Name, _ "'", "''"))).Range("B15:J16") Set rngCopyTo = ThisWorkbook.Sheets((Replace(GrossUppg.Name, + "'", "''"))).Range("B15:J16") rngCopyTo.Value = rngCopyFrom.Value ThisWorkbook.Sheets((Replace(GrossUppg.Name, "'", "''"))). _ Protect Password:=([MyPassword]) End If End If Done: Application.ScreenUpdating = True End Sub -- Thanks for your help. Karen53 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy an image (or picture) from one workbook to a new sheetin another workbook | Excel Worksheet Functions | |||
Copy data from Workbook Alpha & reorganize it in Workbook Bravo | Excel Programming | |||
loop through a column on a workbook copying data on each row to another workbook, then copy data back to the original workbook | Excel Programming | |||
Copy a range of cells in an unopened workbook and paste it to the current workbook | Excel Programming |