Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code exected at "Workbook Open" slowing/stopping file from opening
Hi all,
I'm in process of completing a spreadsheet with a lot of custom macros that will be used by a lot of different people. Some of the macros require the "Analysis Toolpak" and "Solver" add-ins. As a result, I have the two subs below executing at "Workbook_Open" (they are the same macro really, one specific to "Analysis Toolpak" and one specific to "Solver"). The issue I'm having is that over time, it takes longer and longer to open - sometimes it just freezes up. When it freezes up, I use Task Manager to close Excel -- when I try to open the file again, Vista (my OS) recommends that I don't add in Solver or Analysis Toolpak as they caused a serious error the last time I attempted to open the file. Wondering if anyone knows what exactly in the code would be causing the issue and/or how to get around it? FYI - when I used "Code Cleaner" (http://www.appspro.com/Utilities/CodeCleaner.htm), this restores the file to openinig quickly again. However, within 20 times of opening the file, the issue resurfaces. Also, the code for the add-ins was taken from the "Peltier Technical Services" website (http://peltiertech.com/Excel/SolverVBA.html). Code: ----------------------------- Private Sub Workbook_Open() Module22.CheckSolver Module22.CheckAntoolpak End Sub ----------------------------- Public Function CheckSolver() As Boolean '' Adjusted for Application.Run() to avoid Reference problems with Solver '' Peltier Technical Services, Inc., Copyright © 2007. All rights reserved. '' Returns True if Solver can be used, False if not. Dim bSolverInstalled As Boolean If gbDebug Then Debug.Print Now, "CheckSolver " '' Assume true unless otherwise CheckSolver = True On Error Resume Next ' check whether Solver is installed bSolverInstalled = Application.AddIns("Solver Add-In").Installed Err.Clear If bSolverInstalled Then ' uninstall temporarily Application.AddIns("Solver Add-In").Installed = False ' check whether Solver is installed (should be false) bSolverInstalled = Application.AddIns("Solver Add-In").Installed End If If Not bSolverInstalled Then ' (re)install Solver Application.AddIns("Solver Add-In").Installed = True ' check whether Solver is installed (should be true) bSolverInstalled = Application.AddIns("Solver Add-In").Installed End If If Not bSolverInstalled Then MsgBox "Solver not found. This workbook will not work.", vbCritical CheckSolver = False End If If CheckSolver Then ' initialize Solver Application.Run "Solver.xla!Solver.Solver2.Auto_open" End If On Error GoTo 0 End Function ---------------------------------------- Public Function CheckAntoolpak() As Boolean '' Adjusted for Application.Run() to avoid Reference problems with Analysis ToolPak '' Peltier Technical Services, Inc., Copyright © 2007. All rights reserved. '' Returns True if Analysis ToolPak can be used, False if not. Dim bantoolpakInstalled As Boolean If gbDebug Then Debug.Print Now, "Checkantoolpak " '' Assume true unless otherwise CheckAntoolpak = True On Error Resume Next ' check whether Analysis ToolPak is installed bantoolpakInstalled = Application.AddIns("Analysis ToolPak").Installed Err.Clear If bantoolpakInstalled Then ' uninstall temporarily Application.AddIns("Analysis ToolPak").Installed = False ' check whether Analysis ToolPak is installed (should be false) bantoolpakInstalled = Application.AddIns("Analysis ToolPak").Installed End If If Not bantoolpakInstalled Then ' (re)install Analysis ToolPak Application.AddIns("Analysis ToolPak").Installed = True ' check whether Analysis ToolPak is installed (should be true) bantoolpakInstalled = Application.AddIns("Analysis ToolPak").Installed End If If Not bantoolpakInstalled Then MsgBox "Analysis ToolPak not found. This workbook will not work.", vbCritical CheckAntoolpak = False End If If CheckAntoolpak Then ' initialize Analysis ToolPak Application.Run "Analysis ToolPak.xla!Analysis ToolPak.Auto_open" End If On Error GoTo 0 End Function -- Robert |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unable to open a 82 KB XLSM file due to "Too many different cellformats" & "Converter failed to open the file." errors. | Excel Discussion (Misc queries) | |||
Unable to open a 82 KB XLSM file due to "Too many different cellformats" & "Converter failed to open the file." errors. | Setting up and Configuration of Excel | |||
"compatability mode" this is slowing things, how to fix | Excel Discussion (Misc queries) | |||
On opening Excel, 4 non ".xls" files open that I cannot delete | Excel Discussion (Misc queries) | |||
Problem- Recording macros for "file save" and "File open" | Excel Programming |