incolla speciale testo o text

[matzap]

ciao,
passate bene le ferie?ho una programma ch mi esegue un comado di incolla speciale in formato testo.
il programma gira su versioni, italiano e inglese, e il codice:
ActiveSheet.PasteSpecial Format:="Testo", Link:=False, DisplayAsIcon:=False
non funziona sulla versione inglese e devo modificarlo:
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
ma così non funziona più sulla versione italiana.

come posso ovviare?
ciao

[Flash30005]

dovresti risolvere inserendo la funzione On Error (in caso di errore) e inserire entrambe le righe-codice

Codice: Seleziona tutto

On Error Resume Next  '<<<< in caso di errore salta la riga e prosegue
ActiveSheet.PasteSpecial Format:="Testo", Link:=False, DisplayAsIcon:=False
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
On Error GoTo 0  '<<<<<< ripristina le funzionalità di errore per default


ciao

[matzap]

grazie!

[Dylan666]

Non si puòa fare eseguire una o l'altra riga a seconda della lingua rilevata in Excel?
http://stackoverflow.com/questions/8588 ... r-language

Lo dico solo per curiosità!!

[peppo55]

Ciao Dylan666

guarda sul sito di Ron de Bruin

Country code

http://www.rondebruin.nl/win/s9/win012.htm