Soru Makro Yardım

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki kod ta düzeltme ihtiyacım oldu,


= ten sonra "sıfre123" C:\DOSYA\UPDATE\SIFRE.TXT dosyasına yazmak istiyiyorum, kod çalıştığında = sonra olan kısmı sıfre.txt den okutmak mümkün olur mu acaba. yardımcı olabilirseniz sevinirim.

con.Open "FileDSN=C:\DOSYA\UPDATE\AHORCL.dsn;uid=REPORTUSER;pwd=sıfre123"

 

[bulentkars]

pwd= den sonrası txt den okuyacak. sıfre123

 

[Haluk]

    Open "C:\DOSYA\UPDATE\SIFRE.TXT" For Input As #1
        strFile = Input(LOF(1), #1)
    Close #1
    
    myArr = Split(strFile, vbCrLf)
        
    con.Open "FileDSN=C:\DOSYA\UPDATE\AHORCL.dsn;uid=REPORTUSER;pwd=" & myArr(0)

.

 

[bulentkars]

Haluk Bey
Çok teşekkür ederim. Tam istediğim gibi olmuş emeğinize sağlık.