- What is data analysis toolpak vba in excel how to#
- What is data analysis toolpak vba in excel install#
StrMsg = "Add-in '" & strAddIn & "' installed successfully." & vbCRLF StrMsg = strMsg & "Failed to set add-in installed status." & vbCRLF & strMsgNotInstalled StrMsg = strMsg & "Failed to add add-in '" & strAddIn & "'." & vbCRLF & strMsgNotInstalled StrMsg = strMsg & "Error: " & Err.Description & vbCRLF StrMsg = "Created worksheet object." & vbCRLF StrMsg = "Failed to create new workbook." & vbCRLF '// We only need this if we're installing StrMsg = "Created Excel object." & vbCRLF StrMsg = "Failed to create Excel object." & vbCRLF Set objXL = CreateObject("Excel.Application") StrMsg = "The source file " & strAddIn & " does not exist." & vbCRLF & strMsgNotInstalled StrMsg = "The add-in source folder " & strPath & " does not exist." & vbCRLF & strMsgNotInstalled Set objFSO_XL = CreateObject("Scripting.FileSystemObject") '// We only care about this if we're installing StrMsgNotRemoved = "'" & strAddIn & "' was not removed." StrMsgNotInstalled = "'" & strAddIn & "' was not installed." StrPath = Left(strPath, Len(strPath) - 1)
What is data analysis toolpak vba in excel install#
StrMsg = "Unable to install Excel add-in '" & strAddInName & "'"įunction ExcelAddin(ByVal strPath, ByVal strName, blnAdding) StrAddInPath = "C:\Program Files\Microsoft Office\Office10\Library\Analysis"īlnReturn = ExcelAddin(strAddInPath, strAddInName, True) '// Pass 'True' to install, 'False' to uninstall Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWSHShell = CreateObject("Wscript.Shell") You don't need to create a new Excel object.
What is data analysis toolpak vba in excel how to#
I think that I need to register de addin too calling regedit, but I'm not sure and I don't have any ideia how to put it in this script. Debugging it, shows there is an error at line 6 (oAddin.Installed = True). The first part shold install the addin and the second part shold enable. Set oAddin1 = ("C:\Program Files\Microsoft Office\Office10\Library\Solver\SOLVER.XLA", True)ĪddIns("Analysis ToolPak").Installed = TrueĪddIns("Analysis ToolPak - VBA").Installed = True Set oXL1 = CreateObject("Excel.Application") Set oAddin = ("C:\Program Files\Microsoft Office\Office10\Library\Analysis\ANALYS32.XLL", True) Set oXL = CreateObject("Excel.Application") I found this file and ATPVBAEN.XLA, FUNCRES.XLA, PROCDB.XLA and all the others library files and subpastes in a network file (J:) So, a tried to use de xcopy command, pasted at local drive (C:\Program Files\Microsoft Office\Office10\Library), and tried to execute the below script found at microsoft support website to autoinstall add-ins (addept to my reality): I need a script to autoinstall the Analysis ToolPak (not only enable) for users that don't have ANALYS32.XLL on theirs computers (local drive C:).
0 kommentar(er)
