crash on close
in [Programming]
|
From: Dave Peterson on 25 Apr 2007 10:02 If it doesn't crash xl2007, maybe it's time to rebuilt the workbook from scratch. Workbooks can get corrupted and each version of excel handles different levels of corruption differently. Some versions can open and save. Some versions can't. You may want to try openoffice. Lots of people have said that it's recovered workbooks (including the project) that excel couldn't. (http://www.openoffice.org, a 60-65 meg download or a CD) Matt wrote: > > Hey Nick! thanks for the tip on the "copy" idea, but still crashing when > closing Excel. I asked Dave for EVERYTHING that occurs when closing Excel so > I can compare it to the code and anything else to see what happens. By the > way, this problem does not occur in Office 2007, but we need it to work here > as well which is DID just a couple weeks ago. Nothing has been changed about > the files and I have tried uninstalling Office and reinstalling without > adding updates in case they were causing trouble. We are officially stumped. > Thanks for the help! > > "NickHK" wrote: > > > Matt, > > It generally not advisable to use words that Excel/VBA employ. > > Change the name of "copy" routine to something else, e.g. "MyCopy". > > > > NickHK > > > > "Matt" <Matt(a)discussions.microsoft.com> wrote in message > > news:624351A1-F126-4685-A825-DF4A1EC10378(a)microsoft.com... > > > Here ya go! > > > > > > Sub gen1() > > > > > > ' > > > > > > > > > > > > Sheets("staging").Select > > > > > > Range("I2").Select > > > > > > ActiveCell.FormulaR1C1 = "1" > > > > > > Range("A1").Select > > > > > > Call copy > > > > > > Sheets("1").Select > > > > > > Range("A1").Select > > > > > > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ > > > > > > SkipBlanks:=False, Transpose:=False > > > > > > Range("A1").Select > > > > > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > > > SkipBlanks _ > > > > > > :=False, Transpose:=False > > > > > > Range("A1").Select > > > > > > ActiveWindow.SmallScroll Down:=0 > > > > > > Call fix_x > > > > > > Sheets("1").Select > > > > > > Call hide > > > > > > Range("C2").Select > > > > > > UserForm1.hide > > > > > > End Sub > > > > > > > > > > > > > > > > > > Sub hide() > > > > > > ' > > > > > > ' This hides the cost section, as we have not received costs > > > > > > ' > > > > > > Rows("70:94").Select > > > > > > Selection.EntireRow.Hidden = True > > > > > > End Sub > > > > > > > > > > > > > > > > > > Sub copy() > > > > > > Sheets("staging").Select > > > > > > Rows("1:189").Select > > > > > > Selection.copy > > > > > > Range("A1").Select > > > > > > > > > > > > > > > > > > End Sub > > > > > > > > > > > > Sub fix_x() > > > > > > ' > > > > > > > > > > > > Sheets("staging").Select > > > > > > Range("A1").Select > > > > > > Application.CutCopyMode = False > > > > > > ActiveCell.FormulaR1C1 = "" > > > > > > Range("A1").Select > > > > > > End Sub > > > > > > > > > > > > > > > I will try the cmd search. Thanks again Dave! > > > > > > "Dave Peterson" wrote: > > > > > > > It may help if you posted the code, but I'd still look for the *.xlb > > files. > > > > > > > > Windows start button|Run > > > > cmd > > > > (to get to a Command prompt) > > > > c: > > > > (to get to the c: drive) > > > > cd\ > > > > (to get to the root directory) > > > > > > > > Dir *.xlb /s > > > > (to search for all the .xlb files on the c: drive) > > > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > I searched the whole computer and found no xlb files anywhere hidden > > or not. > > > > > Any other possibilities? Would it help if I posted the code? Thanks > > for the > > > > > help! > > > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > > > Just a guess... > > > > > > > > > > > > One of the things that excel does when you close the program is > > update the > > > > > > customized toolbar. Maybe you could try this: > > > > > > > > > > > > Close excel > > > > > > windows start button|Search > > > > > > look for *.xlb in hidden folders and for hiddend files. > > > > > > > > > > > > Rename all you find to *.xlbOLD > > > > > > > > > > > > Then back to excel and test it. Open your file and make some > > changes. Then > > > > > > close excel. > > > > > > > > > > > > If it crashes, then this wasn't the problem. And rename your > > *.xlbOLD files > > > > > > back to *.xlb. > > > > > > > > > > > > If it works ok, then delete those *.xlbOLD files. You will have to > > rebuild any > > > > > > customized changes you've made to your toolbars, though. > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > > > Hi Folks, > > > > > > > I have Excel 2003 updated on XP Pro updated. I have a VB object in > > my file. > > > > > > > All it does is copy and paste. It ends with a memory clearing. I > > close Excel > > > > > > > and it crashes. Here is what I found in the Event Viewer for Apps: > > > > > > > > > > > > > > Faulting application excel.exe, version 11.0.8120.0, stamp > > 4578a992, > > > > > > > faulting module fm20.dll, version 11.0.8000.0, stamp 434ba62b, > > debug? 0, > > > > > > > fault address 0x000b1544. > > > > > > > > > > > > > > > > > > > > > > > > > > > > For more information, see Help and Support Center at > > > > > > > http://go.microsoft.com/fwlink/events.asp. > > > > > > > > > > > > > > I have installed hotfixes FM2OFF and FM20op. Still happens. Anyone > > know what > > > > > > > to do? Thanks! > > > > > > > > > > > > -- > > > > > > > > > > > > Dave Peterson > > > > > > > > > > > > > > -- > > > > > > > > Dave Peterson > > > > > > > > > > -- Dave Peterson
From: Matt on 25 Apr 2007 10:06 Yeah, sorry Dave, I meant I did find the xlb's, changed them, and still Excel crashed so renaming didn't work. I will try the new workbook idea and let you know how that goes. Thanks again for all the help! "Dave Peterson" wrote: > First, what does "no avail" mean? Does that mean you found it, renamed it and > tested it and that failed--or does that mean you still couldn't find it? > > If you couldn't find it, you may not have a *.xlb file. It only gets created > when you need it (like when you customize a toolbar). > > If you want to verify that your find works, make a minor modification to a > toolbar in excel. Then close excel and try to find *.xlb. You should be able > to find it. If you can't, then you should try the CMD stuff once more. > > But... > > I don't see anything in that portion of your code that even runs when excel is > closing. If you copy and paste it into a new workbook's module, then save and > close that new workbook, does excel still crash? > > I have no list of everything excel does when it closes. > > Matt wrote: > > > > Thanks Dave! I have tried the xlb method but to no avail. Can you tell me > > where I can see everything that occurs when closing Excel? I am referring to > > all processes that occur on the system when just closing so I can look at it > > in comparison to everything. It is weird. That section of code is the only > > part that makes the crash occur. We are so stumped! Thanks again though! > > > > "Dave Peterson" wrote: > > > > > I don't see anything in the posted code that would even run when excel (or the > > > workbook) closes. And I don't see anything that would make excel crash even if > > > all that code ran. > > > > > > I'm still guessing the *.xlb file. > > > > > > Matt wrote: > > > > > > > > Here ya go! > > > > > > > > Sub gen1() > > > > > > > > ' > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > Range("I2").Select > > > > > > > > ActiveCell.FormulaR1C1 = "1" > > > > > > > > Range("A1").Select > > > > > > > > Call copy > > > > > > > > Sheets("1").Select > > > > > > > > Range("A1").Select > > > > > > > > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ > > > > > > > > SkipBlanks:=False, Transpose:=False > > > > > > > > Range("A1").Select > > > > > > > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > > > > SkipBlanks _ > > > > > > > > :=False, Transpose:=False > > > > > > > > Range("A1").Select > > > > > > > > ActiveWindow.SmallScroll Down:=0 > > > > > > > > Call fix_x > > > > > > > > Sheets("1").Select > > > > > > > > Call hide > > > > > > > > Range("C2").Select > > > > > > > > UserForm1.hide > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > Sub hide() > > > > > > > > ' > > > > > > > > ' This hides the cost section, as we have not received costs > > > > > > > > ' > > > > > > > > Rows("70:94").Select > > > > > > > > Selection.EntireRow.Hidden = True > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > Sub copy() > > > > > > > > Sheets("staging").Select > > > > > > > > Rows("1:189").Select > > > > > > > > Selection.copy > > > > > > > > Range("A1").Select > > > > > > > > > > > > > > > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > Sub fix_x() > > > > > > > > ' > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > Range("A1").Select > > > > > > > > Application.CutCopyMode = False > > > > > > > > ActiveCell.FormulaR1C1 = "" > > > > > > > > Range("A1").Select > > > > > > > > End Sub > > > > > > > > I will try the cmd search. Thanks again Dave! > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > It may help if you posted the code, but I'd still look for the *.xlb files. > > > > > > > > > > Windows start button|Run > > > > > cmd > > > > > (to get to a Command prompt) > > > > > c: > > > > > (to get to the c: drive) > > > > > cd\ > > > > > (to get to the root directory) > > > > > > > > > > Dir *.xlb /s > > > > > (to search for all the .xlb files on the c: drive) > > > > > > > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > I searched the whole computer and found no xlb files anywhere hidden or not. > > > > > > Any other possibilities? Would it help if I posted the code? Thanks for the > > > > > > help! > > > > > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > > > > > Just a guess... > > > > > > > > > > > > > > One of the things that excel does when you close the program is update the > > > > > > > customized toolbar. Maybe you could try this: > > > > > > > > > > > > > > Close excel > > > > > > > windows start button|Search > > > > > > > look for *.xlb in hidden folders and for hiddend files. > > > > > > > > > > > > > > Rename all you find to *.xlbOLD > > > > > > > > > > > > > > Then back to excel and test it. Open your file and make some changes. Then > > > > > > > close excel. > > > > > > > > > > > > > > If it crashes, then this wasn't the problem. And rename your *.xlbOLD files > > > > > > > back to *.xlb. > > > > > > > > > > > > > > If it works ok, then delete those *.xlbOLD files. You will have to rebuild any > > > > > > > customized changes you've made to your toolbars, though. > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > > > > > Hi Folks, > > > > > > > > I have Excel 2003 updated on XP Pro updated. I have a VB object in my file. > > > > > > > > All it does is copy and paste. It ends with a memory clearing. I close Excel > > > > > > > > and it crashes. Here is what I found in the Event Viewer for Apps: > > > > > > > > > > > > > > > > Faulting application excel.exe, version 11.0.8120.0, stamp 4578a992, > > > > > > > > faulting module fm20.dll, version 11.0.8000.0, stamp 434ba62b, debug? 0, > > > > > > > > fault address 0x000b1544. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > For more information, see Help and Support Center at > > > > > > > > http://go.microsoft.com/fwlink/events.asp. > > > > > > > > > > > > > > > > I have installed hotfixes FM2OFF and FM20op. Still happens. Anyone know what > > > > > > > > to do? Thanks! > > > > > > > > > > > > > > -- > > > > > > > > > > > > > > Dave Peterson > > > > > > > > > > > > > > > > > -- > > > > > > > > > > Dave Peterson > > > > > > > > > > > -- > > > > > > Dave Peterson > > > > > -- > > Dave Peterson >
From: Matt on 25 Apr 2007 10:14 Hey Dave! I pasted the code into a fresh workbook and it didn't crash. "Dave Peterson" wrote: > First, what does "no avail" mean? Does that mean you found it, renamed it and > tested it and that failed--or does that mean you still couldn't find it? > > If you couldn't find it, you may not have a *.xlb file. It only gets created > when you need it (like when you customize a toolbar). > > If you want to verify that your find works, make a minor modification to a > toolbar in excel. Then close excel and try to find *.xlb. You should be able > to find it. If you can't, then you should try the CMD stuff once more. > > But... > > I don't see anything in that portion of your code that even runs when excel is > closing. If you copy and paste it into a new workbook's module, then save and > close that new workbook, does excel still crash? > > I have no list of everything excel does when it closes. > > Matt wrote: > > > > Thanks Dave! I have tried the xlb method but to no avail. Can you tell me > > where I can see everything that occurs when closing Excel? I am referring to > > all processes that occur on the system when just closing so I can look at it > > in comparison to everything. It is weird. That section of code is the only > > part that makes the crash occur. We are so stumped! Thanks again though! > > > > "Dave Peterson" wrote: > > > > > I don't see anything in the posted code that would even run when excel (or the > > > workbook) closes. And I don't see anything that would make excel crash even if > > > all that code ran. > > > > > > I'm still guessing the *.xlb file. > > > > > > Matt wrote: > > > > > > > > Here ya go! > > > > > > > > Sub gen1() > > > > > > > > ' > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > Range("I2").Select > > > > > > > > ActiveCell.FormulaR1C1 = "1" > > > > > > > > Range("A1").Select > > > > > > > > Call copy > > > > > > > > Sheets("1").Select > > > > > > > > Range("A1").Select > > > > > > > > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ > > > > > > > > SkipBlanks:=False, Transpose:=False > > > > > > > > Range("A1").Select > > > > > > > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > > > > SkipBlanks _ > > > > > > > > :=False, Transpose:=False > > > > > > > > Range("A1").Select > > > > > > > > ActiveWindow.SmallScroll Down:=0 > > > > > > > > Call fix_x > > > > > > > > Sheets("1").Select > > > > > > > > Call hide > > > > > > > > Range("C2").Select > > > > > > > > UserForm1.hide > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > Sub hide() > > > > > > > > ' > > > > > > > > ' This hides the cost section, as we have not received costs > > > > > > > > ' > > > > > > > > Rows("70:94").Select > > > > > > > > Selection.EntireRow.Hidden = True > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > Sub copy() > > > > > > > > Sheets("staging").Select > > > > > > > > Rows("1:189").Select > > > > > > > > Selection.copy > > > > > > > > Range("A1").Select > > > > > > > > > > > > > > > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > Sub fix_x() > > > > > > > > ' > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > Range("A1").Select > > > > > > > > Application.CutCopyMode = False > > > > > > > > ActiveCell.FormulaR1C1 = "" > > > > > > > > Range("A1").Select > > > > > > > > End Sub > > > > > > > > I will try the cmd search. Thanks again Dave! > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > It may help if you posted the code, but I'd still look for the *.xlb files. > > > > > > > > > > Windows start button|Run > > > > > cmd > > > > > (to get to a Command prompt) > > > > > c: > > > > > (to get to the c: drive) > > > > > cd\ > > > > > (to get to the root directory) > > > > > > > > > > Dir *.xlb /s > > > > > (to search for all the .xlb files on the c: drive) > > > > > > > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > I searched the whole computer and found no xlb files anywhere hidden or not. > > > > > > Any other possibilities? Would it help if I posted the code? Thanks for the > > > > > > help! > > > > > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > > > > > Just a guess... > > > > > > > > > > > > > > One of the things that excel does when you close the program is update the > > > > > > > customized toolbar. Maybe you could try this: > > > > > > > > > > > > > > Close excel > > > > > > > windows start button|Search > > > > > > > look for *.xlb in hidden folders and for hiddend files. > > > > > > > > > > > > > > Rename all you find to *.xlbOLD > > > > > > > > > > > > > > Then back to excel and test it. Open your file and make some changes. Then > > > > > > > close excel. > > > > > > > > > > > > > > If it crashes, then this wasn't the problem. And rename your *.xlbOLD files > > > > > > > back to *.xlb. > > > > > > > > > > > > > > If it works ok, then delete those *.xlbOLD files. You will have to rebuild any > > > > > > > customized changes you've made to your toolbars, though. > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > > > > > Hi Folks, > > > > > > > > I have Excel 2003 updated on XP Pro updated. I have a VB object in my file. > > > > > > > > All it does is copy and paste. It ends with a memory clearing. I close Excel > > > > > > > > and it crashes. Here is what I found in the Event Viewer for Apps: > > > > > > > > > > > > > > > > Faulting application excel.exe, version 11.0.8120.0, stamp 4578a992, > > > > > > > > faulting module fm20.dll, version 11.0.8000.0, stamp 434ba62b, debug? 0, > > > > > > > > fault address 0x000b1544. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > For more information, see Help and Support Center at > > > > > > > > http://go.microsoft.com/fwlink/events.asp. > > > > > > > > > > > > > > > > I have installed hotfixes FM2OFF and FM20op. Still happens. Anyone know what > > > > > > > > to do? Thanks! > > > > > > > > > > > > > > -- > > > > > > > > > > > > > > Dave Peterson > > > > > > > > > > > > > > > > > -- > > > > > > > > > > Dave Peterson > > > > > > > > > > > -- > > > > > > Dave Peterson > > > > > -- > > Dave Peterson >
From: Matt on 25 Apr 2007 10:54 Hey Dave, We tried changing the code to the following, and the file didn't crash on closing. Every subsequent try crashes. Does anything get cached in Excel that might cause something like that? The memory is cleared too which is weird, so is something about the form cached between uses regardless of a memory clearing? Thanks! Sorry for all the dang questions! This is everything: =================================================== Sub activateinput() Call CreateMenu UserForm1.Show End Sub =================================================== Sub CreateMenu() ' 'THE DROP-DOWN CODE BEGINS HERE Dim custBar, oControl Set custBar = CommandBars("Worksheet Menu Bar") For Each oControl In custBar.Controls If oControl.Caption = "&NAME" Then oControl.Delete End If Next Call CreateMenu2 End Sub =================================================== Sub CreateMenu2() Dim custBar As Object Set custBar = CommandBars("Worksheet Menu Bar").Controls. _ Add(Type:=msoControlPopup) With custBar .Caption = "&NAME" End With Call CreateClearMenu Call SubMenu_Output Call CreateInputMenu Call CreateIntroMenu Call SubMenu_Sim7 Call SubMenu_Sim6 Call SubMenu_Sim5 Call SubMenu_Sim4 Call SubMenu_Sim3 Call SubMenu_Sim2 Call SubMenu_Sim1 End Sub =================================================== Sub CreateIntroMenu() With CommandBars("Worksheet menu bar").Controls("&NAME") .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "&Introduction" .Controls("Introduction").OnAction = "activateintro" End With End Sub =================================================== Sub CreateInputMenu() With CommandBars("Worksheet menu bar").Controls("&NAME") .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "I&nput" .Controls("Input").OnAction = "activateinput" End With End Sub Sub SubMenu_Output() Dim newSub As Object Set newSub = CommandBars("Worksheet menu bar").Controls("&NAME") With newSub .Controls.Add(Type:=msoControlPopup, Before:=1).Caption = "&Output" End With End Sub =================================================== Sub CreateClearMenu() With CommandBars("Worksheet menu bar").Controls("&NAME") .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "&Clear" .Controls("Clear").OnAction = "delete_prior" End With End Sub Sub SubMenu_Sim1() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&1" .Controls("Simulation #1").OnAction = "Sim1" End With End Sub Sub SubMenu_Sim2() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&2" .Controls("Simulation #2").OnAction = "Sim2" End With End Sub Sub SubMenu_Sim3() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&3" .Controls("Simulation #3").OnAction = "Sim3" End With End Sub Sub SubMenu_Sim4() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&4" .Controls("Simulation #4").OnAction = "Sim4" End With End Sub Sub SubMenu_Sim5() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&5" .Controls("Simulation #5").OnAction = "Sim5" End With End Sub Sub SubMenu_Sim6() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&6" .Controls("Simulation #6").OnAction = "Sim6" End With End Sub Sub SubMenu_Sim7() Dim newSubItem As Object Set newSubItem = CommandBars("Worksheet menu bar") _ .Controls("&NAME").Controls("Output") With newSubItem .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation #&7" .Controls("Simulation #7").OnAction = "Sim7" End With End Sub =================================================== Private Sub CommandButton1_Click() Call gen1 End Sub =================================================== Sub gen1() ' Sheets("staging").Select Range("I2").Select ActiveCell.FormulaR1C1 = "1" Range("A1").Select Call copy Sheets("1").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select ActiveWindow.SmallScroll Down:=0 Call fix_x Sheets("1").Select Call hide Range("C2").Select UserForm1.hide End Sub =================================================== Sub hide() ' ' This hides the cost section, as we have not received costs ' Rows("70:94").Select Selection.EntireRow.Hidden = True End Sub =================================================== Sub copy() Sheets("staging").Select Rows("1:189").Select Selection.copy Range("A1").Select End Sub =================================================== Sub fix_x() ' Sheets("staging").Select Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("A1").Select End Sub "Dave Peterson" wrote: > First, what does "no avail" mean? Does that mean you found it, renamed it and > tested it and that failed--or does that mean you still couldn't find it? > > If you couldn't find it, you may not have a *.xlb file. It only gets created > when you need it (like when you customize a toolbar). > > If you want to verify that your find works, make a minor modification to a > toolbar in excel. Then close excel and try to find *.xlb. You should be able > to find it. If you can't, then you should try the CMD stuff once more. > > But... > > I don't see anything in that portion of your code that even runs when excel is > closing. If you copy and paste it into a new workbook's module, then save and > close that new workbook, does excel still crash? > > I have no list of everything excel does when it closes. > > Matt wrote: > > > > Thanks Dave! I have tried the xlb method but to no avail. Can you tell me > > where I can see everything that occurs when closing Excel? I am referring to > > all processes that occur on the system when just closing so I can look at it > > in comparison to everything. It is weird. That section of code is the only > > part that makes the crash occur. We are so stumped! Thanks again though! > > > > "Dave Peterson" wrote: > > > > > I don't see anything in the posted code that would even run when excel (or the > > > workbook) closes. And I don't see anything that would make excel crash even if > > > all that code ran. > > > > > > I'm still guessing the *.xlb file. > > > > > > Matt wrote: > > > > > > > > Here ya go! > > > > > > > > Sub gen1() > > > > > > > > ' > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > Range("I2").Select > > > > > > > > ActiveCell.FormulaR1C1 = "1" > > > > > > > > Range("A1").Select > > > > > > > > Call copy > > > > > > > > Sheets("1").Select > > > > > > > > Range("A1").Select > > > > > > > > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ > > > > > > > > SkipBlanks:=False, Transpose:=False > > > > > > > > Range("A1").Select > > > > > > > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > > > > SkipBlanks _ > > > > > > > > :=False, Transpose:=False > > > > > > > > Range("A1").Select > > > > > > > > ActiveWindow.SmallScroll Down:=0 > > > > > > > > Call fix_x > > > > > > > > Sheets("1").Select > > > > > > > > Call hide > > > > > > > > Range("C2").Select > > > > > > > > UserForm1.hide > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > Sub hide() > > > > > > > > ' > > > > > > > > ' This hides the cost section, as we have not received costs > > > > > > > > ' > > > > > > > > Rows("70:94").Select > > > > > > > > Selection.EntireRow.Hidden = True > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > Sub copy() > > > > > > > > Sheets("staging").Select > > > > > > > > Rows("1:189").Select > > > > > > > > Selection.copy > > > > > > > > Range("A1").Select > > > > > > > > > > > > > > > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > Sub fix_x() > > > > > > > > ' > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > Range("A1").Select > > > > > > > > Application.CutCopyMode = False > > > > > > > > ActiveCell.FormulaR1C1 = "" > > > > > > > > Range("A1").Select > > > > > > > > End Sub > > > > > > > > I will try the cmd search. Thanks again Dave! > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > It may help if you posted the code, but I'd still look for the *.xlb files. > > > > > > > > > > Windows start button|Run > > > > > cmd > > > > > (to get to a Command prompt) > > > > > c: > > > > > (to get to the c: drive) > > > > > cd\ > > > > > (to get to the root directory) > > > > > > > > > > Dir *.xlb /s > > > > > (to search for all the .xlb files on the c: drive) > > > > > > > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > I searched the whole computer and found no xlb files anywhere hidden or not. > > > > > > Any other possibilities? Would it help if I posted the code? Thanks for the > > > > > > help! > > > > > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > > > > > Just a guess... > > > > > > > > > > > > > > One of the things that excel does when you close the program is update the > > > > > > > customized toolbar. Maybe you could try this: > > > > > > > > > > > > > > Close excel > > > > > > > windows start button|Search > > > > > > > look for *.xlb in hidden folders and for hiddend files. > > > > > > > > > > > > > > Rename all you find to *.xlbOLD > > > > > > > > > > > > > > Then back to excel and test it. Open your file and make some changes. Then > > > > > > > close excel. > > > > > > > > > > > > > > If it crashes, then this wasn't the problem. And rename your *.xlbOLD files > > > > > > > back to *.xlb. > > > > > > > > > > > > > > If it works ok, then delete those *.xlbOLD files. You will have to rebuild any > > > > > > > customized changes you've made to your toolbars, though. > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > > > > > Hi Folks, > > > > > > > > I have Excel 2003 updated on XP Pro updated. I have a VB object in my file. > > > > > > > > All it does is copy and paste. It ends with a memory clearing. I close Excel > > > > > > > > and it crashes. Here is what I found in the Event Viewer for Apps: > > > > > > > > > > > > > > > > Faulting application excel.exe, version 11.0.8120.0, stamp 4578a992, > > > > > > > > faulting module fm20.dll, version 11.0.8000.0, stamp 434ba62b, debug? 0, > > > > > > > > fault address 0x000b1544. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > For more information, see Help and Support Center at > > > > > > > > http://go.microsoft.com/fwlink/events.asp. > > > > > > > > > > > > > > > > I have installed hotfixes FM2OFF and FM20op. Still happens. Anyone know what > > > > > > > > to do? Thanks! > > > > > > > > > > > > > > -- > > > > > > > > > > > > > > Dave Peterson > > > > > > > > > > > > > > > > > -- > > > > > > > > > > Dave Peterson > > > > > > > > > > > -- > > > > > > Dave Peterson > > > > > -- > > Dave Peterson >
From: Dave Peterson on 25 Apr 2007 12:13 I don't understand why you have an option to create the menu inside an option in that menu (activeateinput is the .onaction for the i&nput routine. If you discount my confusion, I still don't see anything in your code that runs when the workbook closes--or when excel closes. You may have an event that calls one of these routines that calls one of the routines that calls one of the routines?????? Anyway, you can clean up some of your code by using something like this: Option Explicit Sub CreateMenu() Dim CustBar As CommandBar Dim oControl As CommandBarControl Dim ctrl As CommandBarControl Dim myMacs As Variant Dim myCaps As Variant Dim iCtr As Long Set CustBar = Application.CommandBars("Worksheet Menu Bar") On Error Resume Next CustBar.Controls("&Name").Delete On Error GoTo 0 Set oControl = CustBar.Controls.Add(Type:=msoControlPopup, temporary:=True) With oControl .Caption = "&NAME" End With myCaps = Array("Simulation #&1", _ "Simulation #&2", _ "Simulation #&3", _ "Simulation #&4", _ "Simulation #&5", _ "Simulation #&6", _ "Simulation #&7", _ "&Introduction", _ "I&nput", _ "&Output", _ "&Clear") myMacs = Array("Sim1", _ "Sim2", _ "Sim3", _ "Sim4", _ "Sim5", _ "Sim6", _ "Sim7", _ "activateintro", _ "activateinput", _ "donothing", _ "delete_prior") If UBound(myMacs) <> UBound(myCaps) Then MsgBox "Design error!" Exit Sub End If For iCtr = LBound(myMacs) To UBound(myMacs) Set ctrl = oControl.Controls.Add(Type:=msoControlButton, _ temporary:=True) With ctrl .Caption = myCaps(iCtr) .OnAction = "'" & ThisWorkbook.Name & "'!" & myMacs(iCtr) End With Next iCtr End Sub Make sure you put the macro names and the macro captions in the correct order! Matt wrote: > > Hey Dave, > We tried changing the code to the following, and the file didn't crash on > closing. Every subsequent try crashes. Does anything get cached in Excel that > might cause something like that? The memory is cleared too which is weird, so > is something about the form cached between uses regardless of a memory > clearing? Thanks! Sorry for all the dang questions! > > This is everything: > > =================================================== > > > > Sub activateinput() > > Call CreateMenu > > UserForm1.Show > > End Sub > > > > =================================================== > > > > Sub CreateMenu() > > ' > > 'THE DROP-DOWN CODE BEGINS HERE > > Dim custBar, oControl > > Set custBar = CommandBars("Worksheet Menu Bar") > > > > For Each oControl In custBar.Controls > > If oControl.Caption = "&NAME" Then > > oControl.Delete > > End If > > Next > > Call CreateMenu2 > > End Sub > > > > =================================================== > > > > Sub CreateMenu2() > > > > Dim custBar As Object > > Set custBar = CommandBars("Worksheet Menu Bar").Controls. _ > > Add(Type:=msoControlPopup) > > With custBar > > .Caption = "&NAME" > > End With > > > > Call CreateClearMenu > > > > Call SubMenu_Output > > > > Call CreateInputMenu > > > > Call CreateIntroMenu > > > > Call SubMenu_Sim7 > > > > Call SubMenu_Sim6 > > > > Call SubMenu_Sim5 > > > > Call SubMenu_Sim4 > > > > Call SubMenu_Sim3 > > > > Call SubMenu_Sim2 > > > > Call SubMenu_Sim1 > > > > > > End Sub > > > > =================================================== > > > > Sub CreateIntroMenu() > > With CommandBars("Worksheet menu bar").Controls("&NAME") > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = > "&Introduction" > > .Controls("Introduction").OnAction = "activateintro" > > End With > > End Sub > > > > =================================================== > > > > Sub CreateInputMenu() > > With CommandBars("Worksheet menu bar").Controls("&NAME") > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "I&nput" > > .Controls("Input").OnAction = "activateinput" > > End With > > End Sub > > Sub SubMenu_Output() > > Dim newSub As Object > > Set newSub = CommandBars("Worksheet menu bar").Controls("&NAME") > > With newSub > > .Controls.Add(Type:=msoControlPopup, Before:=1).Caption = "&Output" > > End With > > End Sub > > > > =================================================== > > > > Sub CreateClearMenu() > > With CommandBars("Worksheet menu bar").Controls("&NAME") > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "&Clear" > > .Controls("Clear").OnAction = "delete_prior" > > End With > > End Sub > > Sub SubMenu_Sim1() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&1" > > .Controls("Simulation #1").OnAction = "Sim1" > > End With > > End Sub > > Sub SubMenu_Sim2() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&2" > > .Controls("Simulation #2").OnAction = "Sim2" > > End With > > End Sub > > Sub SubMenu_Sim3() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&3" > > .Controls("Simulation #3").OnAction = "Sim3" > > End With > > End Sub > > Sub SubMenu_Sim4() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&4" > > .Controls("Simulation #4").OnAction = "Sim4" > > End With > > End Sub > > Sub SubMenu_Sim5() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&5" > > .Controls("Simulation #5").OnAction = "Sim5" > > End With > > End Sub > > Sub SubMenu_Sim6() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&6" > > .Controls("Simulation #6").OnAction = "Sim6" > > End With > > End Sub > > Sub SubMenu_Sim7() > > Dim newSubItem As Object > > Set newSubItem = CommandBars("Worksheet menu bar") _ > > .Controls("&NAME").Controls("Output") > > With newSubItem > > .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Simulation > #&7" > > .Controls("Simulation #7").OnAction = "Sim7" > > End With > > End Sub > > > > =================================================== > > > > Private Sub CommandButton1_Click() > > Call gen1 > > End Sub > > > > =================================================== > > > > Sub gen1() > > ' > > > > Sheets("staging").Select > > Range("I2").Select > > ActiveCell.FormulaR1C1 = "1" > > Range("A1").Select > > Call copy > > Sheets("1").Select > > Range("A1").Select > > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ > > SkipBlanks:=False, Transpose:=False > > Range("A1").Select > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > SkipBlanks _ > > :=False, Transpose:=False > > Range("A1").Select > > ActiveWindow.SmallScroll Down:=0 > > Call fix_x > > Sheets("1").Select > > Call hide > > Range("C2").Select > > UserForm1.hide > > End Sub > > > > =================================================== > > > > Sub hide() > > ' > > ' This hides the cost section, as we have not received costs > > ' > > Rows("70:94").Select > > Selection.EntireRow.Hidden = True > > End Sub > > > > =================================================== > > > > Sub copy() > > Sheets("staging").Select > > Rows("1:189").Select > > Selection.copy > > Range("A1").Select > > > > > > End Sub > > > > =================================================== > > > > Sub fix_x() > > ' > > > > Sheets("staging").Select > > Range("A1").Select > > Application.CutCopyMode = False > > ActiveCell.FormulaR1C1 = "" > > Range("A1").Select > > End Sub > > "Dave Peterson" wrote: > > > First, what does "no avail" mean? Does that mean you found it, renamed it and > > tested it and that failed--or does that mean you still couldn't find it? > > > > If you couldn't find it, you may not have a *.xlb file. It only gets created > > when you need it (like when you customize a toolbar). > > > > If you want to verify that your find works, make a minor modification to a > > toolbar in excel. Then close excel and try to find *.xlb. You should be able > > to find it. If you can't, then you should try the CMD stuff once more. > > > > But... > > > > I don't see anything in that portion of your code that even runs when excel is > > closing. If you copy and paste it into a new workbook's module, then save and > > close that new workbook, does excel still crash? > > > > I have no list of everything excel does when it closes. > > > > Matt wrote: > > > > > > Thanks Dave! I have tried the xlb method but to no avail. Can you tell me > > > where I can see everything that occurs when closing Excel? I am referring to > > > all processes that occur on the system when just closing so I can look at it > > > in comparison to everything. It is weird. That section of code is the only > > > part that makes the crash occur. We are so stumped! Thanks again though! > > > > > > "Dave Peterson" wrote: > > > > > > > I don't see anything in the posted code that would even run when excel (or the > > > > workbook) closes. And I don't see anything that would make excel crash even if > > > > all that code ran. > > > > > > > > I'm still guessing the *.xlb file. > > > > > > > > Matt wrote: > > > > > > > > > > Here ya go! > > > > > > > > > > Sub gen1() > > > > > > > > > > ' > > > > > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > > > Range("I2").Select > > > > > > > > > > ActiveCell.FormulaR1C1 = "1" > > > > > > > > > > Range("A1").Select > > > > > > > > > > Call copy > > > > > > > > > > Sheets("1").Select > > > > > > > > > > Range("A1").Select > > > > > > > > > > Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ > > > > > > > > > > SkipBlanks:=False, Transpose:=False > > > > > > > > > > Range("A1").Select > > > > > > > > > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, > > > > > SkipBlanks _ > > > > > > > > > > :=False, Transpose:=False > > > > > > > > > > Range("A1").Select > > > > > > > > > > ActiveWindow.SmallScroll Down:=0 > > > > > > > > > > Call fix_x > > > > > > > > > > Sheets("1").Select > > > > > > > > > > Call hide > > > > > > > > > > Range("C2").Select > > > > > > > > > > UserForm1.hide > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Sub hide() > > > > > > > > > > ' > > > > > > > > > > ' This hides the cost section, as we have not received costs > > > > > > > > > > ' > > > > > > > > > > Rows("70:94").Select > > > > > > > > > > Selection.EntireRow.Hidden = True > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Sub copy() > > > > > > > > > > Sheets("staging").Select > > > > > > > > > > Rows("1:189").Select > > > > > > > > > > Selection.copy > > > > > > > > > > Range("A1").Select > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > End Sub > > > > > > > > > > > > > > > > > > > > Sub fix_x() > > > > > > > > > > ' > > > > > > > > > > > > > > > > > > > > Sheets("staging").Select > > > > > > > > > > Range("A1").Select > > > > > > > > > > Application.CutCopyMode = False > > > > > > > > > > ActiveCell.FormulaR1C1 = "" > > > > > > > > > > Range("A1").Select > > > > > > > > > > End Sub > > > > > > > > > > I will try the cmd search. Thanks again Dave! > > > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > > > It may help if you posted the code, but I'd still look for the *.xlb files. > > > > > > > > > > > > Windows start button|Run > > > > > > cmd > > > > > > (to get to a Command prompt) > > > > > > c: > > > > > > (to get to the c: drive) > > > > > > cd\ > > > > > > (to get to the root directory) > > > > > > > > > > > > Dir *.xlb /s > > > > > > (to search for all the .xlb files on the c: drive) > > > > > > > > > > > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > > > I searched the whole computer and found no xlb files anywhere hidden or not. > > > > > > > Any other possibilities? Would it help if I posted the code? Thanks for the > > > > > > > help! > > > > > > > > > > > > > > "Dave Peterson" wrote: > > > > > > > > > > > > > > > Just a guess... > > > > > > > > > > > > > > > > One of the things that excel does when you close the program is update the > > > > > > > > customized toolbar. Maybe you could try this: > > > > > > > > > > > > > > > > Close excel > > > > > > > > windows start button|Search > > > > > > > > look for *.xlb in hidden folders and for hiddend files. > > > > > > > > > > > > > > > > Rename all you find to *.xlbOLD > > > > > > > > > > > > > > > > Then back to excel and test it. Open your file and make some changes. Then > > > > > > > > close excel. > > > > > > > > > > > > > > > > If it crashes, then this wasn't the problem. And rename your *.xlbOLD files > > > > > > > > back to *.xlb. > > > > > > > > > > > > > > > > If it works ok, then delete those *.xlbOLD files. You will have to rebuild any > > > > > > > > customized changes you've made to your toolbars, though. > > > > > > > > > > > > > > > > Matt wrote: > > > > > > > > > > > > > > > > > > Hi Folks, > > > > > > > > > I have Excel 2003 updated on XP Pro updated. I have a VB object in my file. > > > > > > > > > All it does is copy and paste. It ends with a memory clearing. I close Excel > > > > > > > > > and it crashes. Here is what I found in the Event Viewer for Apps: > > > > > > > > > > > > > > > > > > Faulting application excel.exe, version 11.0.8120.0, stamp 4578a992, > > > > > > > > > faulting module fm20.dll, version 11.0.8000.0, stamp 434ba62b, debug? 0, > > > > > > > > > fault address 0x000b1544. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > For more information, see Help and Support Center at > > > > > > > > > http://go.microsoft.com/fwlink/events.asp. > > > > > > > > > > > > > > > > > > I have installed hotfixes FM2OFF and FM20op. Still happens. Anyone know what > > > > > > > > > to do? Thanks! > > > > > > > > > > > > > > > > -- > > > > > > > > > > > > > > > > Dave Peterson > > > > > > > > > > > > > > > > > > > > -- > > > > > > > > > > > > Dave Peterson > > > > > > > > > > > > > > -- > > > > > > > > Dave Peterson > > > > > > > > -- > > > > Dave Peterson > > -- Dave Peterson
First
|
Prev
|
Next
|
Last
Pages: 1 2 3 4 Prev: C# COM in Excel: Avoid using Marshal Next: Usage of serial port in VBA ( exel ) |