| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
break link problem
When I run the following code... it crashes my excel and I believe it is
because of the break links command. any ideas? Application.Run "'SNW INV PLAIN.xls'!FilterAll" Sheets("Agencies").Select Range("a1").Select Sheets("Corporates").Select Range("a1").Select Sheets("Tax Muni's").Select Range("a1").Select Sheets("Muni's").Select Range("a1").Select Sheets("Agencies").Select Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Select Sheets("Agencies").Activate Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Copy ActiveWorkbook.BreakLink Name:="S:\Inventory\SNW INV PLAIN.xls", Type:= _ xlExcelLinks Application.Wait Now + TimeSerial(0, 0, 1) Sheets("Agencies").Select ActiveWorkbook.Protect Password:="snwwb", Structu=True, Windows:=False sFilename = "S:\Inventory\SNW Offerings " & Format(Now, "yyyy-mm-dd") ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then ActiveWorkbook.SaveAs Filename:=sFilename End If |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
break link problem
Hi John,
What is the version of Excel? I believe that BreakLink was introduced with xl2002. --- Regards, Norman "John" wrote in message ... When I run the following code... it crashes my excel and I believe it is because of the break links command. any ideas? Application.Run "'SNW INV PLAIN.xls'!FilterAll" Sheets("Agencies").Select Range("a1").Select Sheets("Corporates").Select Range("a1").Select Sheets("Tax Muni's").Select Range("a1").Select Sheets("Muni's").Select Range("a1").Select Sheets("Agencies").Select Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Select Sheets("Agencies").Activate Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Copy ActiveWorkbook.BreakLink Name:="S:\Inventory\SNW INV PLAIN.xls", Type:= _ xlExcelLinks Application.Wait Now + TimeSerial(0, 0, 1) Sheets("Agencies").Select ActiveWorkbook.Protect Password:="snwwb", Structu=True, Windows:=False sFilename = "S:\Inventory\SNW Offerings " & Format(Now, "yyyy-mm-dd") ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then ActiveWorkbook.SaveAs Filename:=sFilename End If |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
break link problem
Hi John
Try to use Application.Wait (Now() + TimeValue("00:00:01")) TimeSerial is used to return a date variable (Integer). Syntax is MyTime = TimeSerial(15, 29, 45) "John" wrote: When I run the following code... it crashes my excel and I believe it is because of the break links command. any ideas? Application.Run "'SNW INV PLAIN.xls'!FilterAll" Sheets("Agencies").Select Range("a1").Select Sheets("Corporates").Select Range("a1").Select Sheets("Tax Muni's").Select Range("a1").Select Sheets("Muni's").Select Range("a1").Select Sheets("Agencies").Select Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Select Sheets("Agencies").Activate Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Copy ActiveWorkbook.BreakLink Name:="S:\Inventory\SNW INV PLAIN.xls", Type:= _ xlExcelLinks Application.Wait Now + TimeSerial(0, 0, 1) Sheets("Agencies").Select ActiveWorkbook.Protect Password:="snwwb", Structu=True, Windows:=False sFilename = "S:\Inventory\SNW Offerings " & Format(Now, "yyyy-mm-dd") ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then ActiveWorkbook.SaveAs Filename:=sFilename End If |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
break link problem
well I have excel 2003, and with that time value change it ran correctly 3
times and crashed the fourth... which is better than before... which seemed to crash every other time, but this is strange. "Kassie" wrote: Hi John Try to use Application.Wait (Now() + TimeValue("00:00:01")) TimeSerial is used to return a date variable (Integer). Syntax is MyTime = TimeSerial(15, 29, 45) "John" wrote: When I run the following code... it crashes my excel and I believe it is because of the break links command. any ideas? Application.Run "'SNW INV PLAIN.xls'!FilterAll" Sheets("Agencies").Select Range("a1").Select Sheets("Corporates").Select Range("a1").Select Sheets("Tax Muni's").Select Range("a1").Select Sheets("Muni's").Select Range("a1").Select Sheets("Agencies").Select Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Select Sheets("Agencies").Activate Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Copy ActiveWorkbook.BreakLink Name:="S:\Inventory\SNW INV PLAIN.xls", Type:= _ xlExcelLinks Application.Wait Now + TimeSerial(0, 0, 1) Sheets("Agencies").Select ActiveWorkbook.Protect Password:="snwwb", Structu=True, Windows:=False sFilename = "S:\Inventory\SNW Offerings " & Format(Now, "yyyy-mm-dd") ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then ActiveWorkbook.SaveAs Filename:=sFilename End If |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
break link problem
I can't get it to crash again... thats good right? :)
well, I guess it is ok... "Kassie" wrote: Hi John Try to use Application.Wait (Now() + TimeValue("00:00:01")) TimeSerial is used to return a date variable (Integer). Syntax is MyTime = TimeSerial(15, 29, 45) "John" wrote: When I run the following code... it crashes my excel and I believe it is because of the break links command. any ideas? Application.Run "'SNW INV PLAIN.xls'!FilterAll" Sheets("Agencies").Select Range("a1").Select Sheets("Corporates").Select Range("a1").Select Sheets("Tax Muni's").Select Range("a1").Select Sheets("Muni's").Select Range("a1").Select Sheets("Agencies").Select Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Select Sheets("Agencies").Activate Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Copy ActiveWorkbook.BreakLink Name:="S:\Inventory\SNW INV PLAIN.xls", Type:= _ xlExcelLinks Application.Wait Now + TimeSerial(0, 0, 1) Sheets("Agencies").Select ActiveWorkbook.Protect Password:="snwwb", Structu=True, Windows:=False sFilename = "S:\Inventory\SNW Offerings " & Format(Now, "yyyy-mm-dd") ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then ActiveWorkbook.SaveAs Filename:=sFilename End If |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
break link problem
I do not know why it crashed John, but hopefully your problem is now solved?
"John" wrote: I can't get it to crash again... thats good right? :) well, I guess it is ok... "Kassie" wrote: Hi John Try to use Application.Wait (Now() + TimeValue("00:00:01")) TimeSerial is used to return a date variable (Integer). Syntax is MyTime = TimeSerial(15, 29, 45) "John" wrote: When I run the following code... it crashes my excel and I believe it is because of the break links command. any ideas? Application.Run "'SNW INV PLAIN.xls'!FilterAll" Sheets("Agencies").Select Range("a1").Select Sheets("Corporates").Select Range("a1").Select Sheets("Tax Muni's").Select Range("a1").Select Sheets("Muni's").Select Range("a1").Select Sheets("Agencies").Select Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Select Sheets("Agencies").Activate Sheets(Array("Agencies", "Corporates", "Tax Muni's", "Muni's")).Copy ActiveWorkbook.BreakLink Name:="S:\Inventory\SNW INV PLAIN.xls", Type:= _ xlExcelLinks Application.Wait Now + TimeSerial(0, 0, 1) Sheets("Agencies").Select ActiveWorkbook.Protect Password:="snwwb", Structu=True, Windows:=False sFilename = "S:\Inventory\SNW Offerings " & Format(Now, "yyyy-mm-dd") ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then ActiveWorkbook.SaveAs Filename:=sFilename End If |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Break a link between workbooks when there is no "break" option | Excel Discussion (Misc queries) | |||
| Link won't break | Excel Discussion (Misc queries) | |||
| Can Not Break a Link | Excel Discussion (Misc queries) | |||
| Can't break my link | Excel Discussion (Misc queries) | |||
| break a link | Charts and Charting in Excel | |||
Hybrid Mode
