EXCEL- CAMBIARE DA VBA LA LINGUA IMPOSTATA

In una macro in EXCEL 2003 che sto sviluppando ho bisogno di cambiare con istruzioni VBA l'impostazione della lingua da es. Inglese (Regno Unito) ad Italiano.
Apro pertanto il pannello di controllo e le opzioni internazionali con l'istruzione
'
Shell "control.exe intl.cpl", 1
'
con il comando sotto indicato mi sposto all'interno della lista di excel delle opzioni internazionali(nel caso sotto indicato di otto posizioni)
'
SendKeys "{DOWN 8}", True
'
il passo finale di convalida della selezione fatta (corrispondente alla operazione manuale di OK o Applica nel pannello di controllo) eseguito con il comando ENTER fa chiudere il pannello di controllo ma purtroppo non esegue la scelta fatta.
'
' SendKeys "{ENTER}", True
'
POTETE DARMI QUALCHE INDICAZIONE PER COME POTER convalidare/applicare LA SCELTA DELLA LINGUA O SUGGERIRMI UNA ALTERNATIVA PER CAMBIARE DA MACRO LA LINGUA IMPOSTATA PER L'EXCEL?
'
Grazie mille in anticipo
'
Saluti

Ciao mimmoquadro, non mi è mai capitato di cambiare lingua ad Excel, mi sono fatto aiutare dal generatore di macro, mi ha dato questa

Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 24/03/2011 da By Sal
'

'
With Application.SpellingOptions
.DictLang = 2057
.UserDict = "CUSTOM.DIC"
End With
Range("B4").Select
End Sub

però questa dall'italiano al regno unito, in strumenti->opzioni->internazionale.

non so se sia quella giusta, fai sapere.

Ciao By Sal

Purtroppo il suggerimento ricevuto non funziona.
L'impostazione della lingua nelle opzioni internazionali di Office tramite VBA da EXCEL (2003) con quanto suggerito non porta al risultato di cambiare le impostazioni.
Tale cambiamento mi è necessario per leggere correttamente numeri, date ed orari quando si caricano i dati dal web.

La mia sub che sotto riporto sembra funzionare fino alla chiusura della finestra di dialogo per la selezione della impostazione ma non si concretizza con un cambiamento delle impostazioni.

Saluti
Mimmo

'
Sub Opzioni_internazionali()
Shell "control.exe intl.cpl", 1
SendKeys "{DOWN 8}", True 'mi sposto in giù di otto posizioni da Inglese(GB) ad Italiano
SendKeys "{ENTER}", True 'si chiude la finestra ma ... non cambia la lingua come da selez.fatta
End Sub
'

mimmoquadro, 27/03/2011 03.22:

---

Purtroppo il suggerimento ricevuto non funziona.
L'impostazione della lingua nelle opzioni internazionali di Office tramite VBA da EXCEL (2003) con quanto suggerito non porta al risultato di cambiare le impostazioni.
Tale cambiamento mi è necessario per leggere correttamente numeri, date ed orari quando si caricano i dati dal web.

La mia sub che sotto riporto sembra funzionare fino alla chiusura della finestra di dialogo per la selezione della impostazione ma non si concretizza con un cambiamento delle impostazioni.
'

---

Prova così:

BENE.
ORA FUNZIONA LA SELEZIONE DELLA NUOVA OPZIONE INTERNAZIONALE SCELTA.
RIMANE PERO' UN ULTIMO PASSO.....
IL FILE EXCEL DAL QUALE SI LANCIA LA MACRO NON VIENE AGGIORNATO CON LA NUOVA OPZIONE.
HO PROVATO AGGIUNGENDO LE ISTRUZIONI SOTTO INDICATE MA NULLA ....
BISOGNA CHIUDERE E RIAPRIRE IL FILE PER VEDERE L'EFFETTO DELLA MODIFICA.

Application.CalculateFull
Application.ScreenUpdating = True
ActiveWorkbook.Save

AVETE QUALCHE IDEA PER SUPERARE QUESTO ULTIMO OSTACOLO?

GRAZIE COMUNQUE PER QUANTO GIA' FATTO.

SALUTI

MIMMO