Cu placere... si legat de RS... am reusit sa pun peste tot RS = "Romanian" cu exceptia departamentului de Resurse Umane care foloseste o multime de aplicatii pentru diverse "declaratii" si trebuie sa "jongleze" cu RS in functie de necesitati... dar asta e... a fost greu la inceput dar acum sunt "experti"...deltady scrie: Voi ati reusit cumva sa aveti peste tot aceleasi setari in RS? De curiozitate..
Merci
Problema la importul unui fisier de tip .txt
-
- Moderator
- Mesaje: 4570
- Membru din: Vin Iul 31, 2009 7:32 am
Re: Problema la importul unui fisier de tip .txt
Re: Problema la importul unui fisier de tip .txt
Banuiam eu...ca nu se prea poate standardiza peste tot - RS-ul..din cauza acelor programe de RU (si nu numai).
Re: Problema la importul unui fisier de tip .txt
Va propun un lucru.
Pentru a evita pierderea de timp pana cand intrii in Control Panel si pana gasesti Regional Settings, va pun la dispozitie un mic programel care lanseaza acea caseta de dialog din Regional Settings, ramanand doar sa va alegeti ce optiuni setati.
Pt. cine vrea sa scrie acel soft in VBA iata codul: (atasati codul unui buton dintr-un USERFORM)
Pt. cine doreste am scris in VB6 acelasi lucru:
Atasez softul facut in VB6.(parola este 1234)
Alegeti solutia optima pentru a eficientiza munca.
In poza veti vedea ce contine arhiva:
- codul sursa + soft-ul compilat.
Bafta!
Pentru a evita pierderea de timp pana cand intrii in Control Panel si pana gasesti Regional Settings, va pun la dispozitie un mic programel care lanseaza acea caseta de dialog din Regional Settings, ramanand doar sa va alegeti ce optiuni setati.
Pt. cine vrea sa scrie acel soft in VBA iata codul: (atasati codul unui buton dintr-un USERFORM)
Cod: Selectaţi tot
Sub RS_Click()
On Error GoTo err
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)
End
Exit Sub
err:
MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub
Cod: Selectaţi tot
Private Sub cmdRS_Click()
On Error GoTo err
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)
End
Exit Sub
err:
MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub
Alegeti solutia optima pentru a eficientiza munca.
In poza veti vedea ce contine arhiva:
- codul sursa + soft-ul compilat.
Bafta!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.