🚀 go-pugleaf

Ciao,
devo ottimizzare dei valori di una tabella in access. per fare ciò ho
impostato un risolutore in excel. Quindi ho fatto in modo che excel
caricasse i dati dei vincoli sulle variabili da access, e che
eseguisse l'algoritmo di risoluzione.
alla fine però mi appare questo errore: "Risolutore: si è verificato
un errore interno inaspettato oppure la memoria disponibile è
esaurita."
Premetto che eseguendo manualmente il risolutore su excel (senza
avviarlo da access) funziona perfettamente.

il codice che ho usato nel form di access è il seguente.

Private Sub Comando10_Click()
Dim xlApp As Excel.Application      '<---- riferimento
all'applicazione Excel
Dim xlBook As Excel.Workbook       '<---- riferimento al Workbook
Dim xlSheet As Excel.Worksheet '<---- riferimento al Worksheet
Dim tmi As Double
Dim tmx As Double
Dim vmmi As Double
Dim vmmx As Double
tmi = Me![valore tasso minimo]
tmx = Me![valore tasso massimo]
vmmi = Me![valore volumi medi minimo]
vmmx = Me![valore volumi medi massimo]
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings
\Administrator\Desktop\soluzioni.xls")
Set xlSheet = xlBook.Worksheets("soluzioni aggregate")
xlApp.Visible = False
xlSheet.Activate    '<--- attiva il foglio di lavoro
xlSheet.Range("l2").Value = appoggio '<---- scrive in una cella
xlSheet.Range("b3").Value = tmi
xlSheet.Range("b4").Value = tmx
xlSheet.Range("b5").Value = vmmi
xlSheet.Range("b6").Value = vmmx
xlSheet.Application.ActiveWorkbook.Save
xlSheet.Application.ActiveWorkbook.Close
MsgBox prompt:="Caricamento effettuato", Title:="caricamento dati e
vincoli"
xlApp.Quit
End Sub

Private Sub Comando19_Click()
Dim xlApp As Excel.Application      '<---- riferimento
all'applicazione Excel
Dim xlBook As Excel.Workbook       '<---- riferimento al Workbook
Dim xlSheet As Excel.Worksheet '<---- riferimento al Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings
\Administrator\Desktop\soluzioni.xls")
Set xlSheet = xlBook.Worksheets("soluzioni aggregate")
xlSheet.Activate
xlApp.Run ("risoluzione") '<---- esegui la macro di risoluzione
xlApp.Quit
End Sub

Spero sappiate aiutarmi.
grazie