Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Esportazione formula con divisione da Access VBA ad Excel

71 views
Skip to first unread message

e-emme di Marzocchi Ennio

unread,
Apr 7, 2023, 11:18:39 AM4/7/23
to
Buona Pasqua a tutti.
In un processo di esportazione dati da Access ad Excel, mi ritrovo con un problema relativo alla scrittura di una formula su una cella del foglio dati.
La riga che mi crea problemi è la seguente:
oWsh.Range("O" & Riga).Formula = "=SE(VAL.ERR(O21/R7);0;O21/R7)"
"Riga" è ovviamente il numero di riga.
L'oggetto dovrebbe essere ok perchè lo uso sia per esportare valori fissi che per assegnare formule con somme.
Con questa espressione invece si blocca e non consente l'esportazione sulla cella.
E se appiccico l'espressione direttamente su Excel, essa funziona regolarmente.
Problemi di punteggiatura? O concettuali?

Giorgio Rancati

unread,
Apr 16, 2023, 7:51:48 AM4/16/23
to
Ciao Ennio,
in access quando si va a popolare la proprietà ControlSource con una funzione o una formula bisogna usare il linguaggio anglosassone, la stessa cosa vale per Excel.

nel tuo caso puoi modificare la riga così:
oWsh.Range("O" & Riga).Formula = "=IF(ISERR(O21/R7),0,O21/R7)"

se hai dubbi su come scrivere la formula puoi inserirla in Italiano nella cella A1 di un nuovo foglio di lavoro in un nuovo file di excel, nel tuo caso =SE(VAL.ERR(O21/R7);0;O21/R7)
poi dalla finestra immediata VBA di Excel scrivi:
? Application.Sheets(1).Range("A1").Formula
e ti verrà stampato l'equivalente in lingua anglosassone
=IF(ISERR(O21/R7),0,O21/R7)

Ciao
Giorgio Rancati

e-emme di Marzocchi Ennio

unread,
Apr 18, 2023, 4:01:14 AM4/18/23
to
Grazie Giorgio, adesso funziona perfettamente.
0 new messages