Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
quit on error
When I open Workbook2 (WB2) I need for it to check and see if Workbook1 (WB1)
exists and if so, I need for data to be updated. I have the following code; On Error Resume Next Workbooks.Open ("C:\path\wb1"), Password:="xxx" Sheets("sheet1").Select Cells.Select Selection.Copy Windows("wb2.xls").Activate Sheets("data").Select Range("A1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Workbooks("wb1.xls").Close True Kill ("C:\path\WB1.xls") On Error goto 0 It works fine if WB1 exists. However if WB1 does not exist it removes all the data in WB2 Sheets("data"). I need for it to somehow quit all together when it errors on "Workbooks.Open ("C:\path\wb1"), Password:="xxx"" when the workbook does not exist. Any help is very much appreciated. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
vba advice how 2get a input box to quit by entering the word quit+ 4 a msgbox to disp | Excel Programming | |||
Quit | Excel Programming | |||
Excel97 not quit | Excel Programming |