automatischer Verweis auf Solver in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2000
nach unten

Betrifft: automatischer Verweis auf Solver in VBA
von: Billy
Geschrieben am: 06.05.2002 - 18:24:30

Hi,

in einem VBA-Projekt benötige ich die Funktionen des Solvers. Das Projekt soll auf verschiedensten Rechnern lauffähig sein. Da allerdings der Solver (solver.xla) in verschiedensten Verzeichnissen liegt, müsste der entsprechende Verweis dynamisch formuliert sein. D.h.: Im Optimalfall, sucht das VBA-Projekt selbsständig nach der Datei und erstellt den Verweis im VBA-Code.

nach oben   nach unten

Re: automatischer Verweis auf Solver in VBA
von: MRR
Geschrieben am: 07.05.2002 - 00:20:08

Hier ein Versuch, der Dich vielleicht weiterbringt:

Private Sub Check_Solver()
Dim blnSolver_installed As Boolean
Dim objAddin
Dim As Integer

blnSolver_installed = False
For Each objAddin In AddIns
  If InStr(UCase(objAddin.Name), "SOLVER") > 0 Then
    If Not objAddin.Installed Then
      Application.EnableEvents = False
      AddIns.Add objAddin.FullName
      objAddin.Installed = True
      blnSolver_installed = True
      Application.EnableEvents = True
    Else
      blnSolver_installed = True
    End If
    Exit For
  End If
Next

j = 1
Do Until (j = Application.VBE.ActiveVBProject.References.Count) Or _
    (UCase(Application.VBE.ActiveVBProject.References(j).Name) = "SOLVER")
  j = j + 1
Loop
If (UCase(Application.VBE.ActiveVBProject.References(j).Name) <> "SOLVER") Then
  Application.VBE.ActiveVBProject.References.AddFromFile objAddin.FullName
End If

If Not blnSolver_installed Then
  MsgBox "Unfortunately, I cannot find SOLVER.XLA. If you do not have the Excel Solver installed on your machine:" & vbCr & vbCr & _
      "      1.  try first with the Search tool under Start," & vbCr & _
      "      2.  then try to install Solver from your Excel installation CD," & vbCr & _
      "      3.  if you still cannot succeed - come to the Herber-Forum and let us know" & vbCr & _
      "          or: download a copy of the standard Solver as supplied by Microsoft." & vbCr & _
      "          You can download also at http://www.frontsys.com, the developer of solver." & vbCr & vbCr, _
      vbCritical, "Solver-installation-error"
End If
End Sub


HTH, Matthias
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "automatischer Verweis auf Solver in VBA"