Soru TXT Dosyası Oluşturma

[halit3]

Sizin değiştirip yazdığınız açılmayan text dosyasını buraya ekleyin bir bakalım

 

[bulentkars]

Sizin değiştirip yazdığınız açılmayan text dosyasını buraya ekleyin bir bakalım

 

[halit3]

kodun bu bölümünden sonra
Line Input #1, a
şunu ekle
Cells(1, 1).Value = a

sonra A1 hücresindeki değere bakınız
"Åifre Giriniz"
bu yazıyor.

 

[Haluk]

Haluk bey,

kod hiç bir işlem yapmıyor.

En hayırlısı olmuş .... kolay gelsin.

.

 

[bulentkars]

Haluk Bey,

Haklısınız A1 de "Åifre Giriniz" yazıyor, ancak txt dosyası içinde şifre giriniz yazıyor. neden olabilir acaba

 

[Haluk]

Haluk Bey,

Haklısınız A1 de "Åifre Giriniz" yazıyor, ancak txt dosyası içinde şifre giriniz yazıyor. neden olabilir acaba

Benim adımı o adamın adıyla karıştırmayın... arada dağlar kadar fark var!

.

 

[bulentkars]

Merhaba

sorunu çözdüm. Türkçe karakter olmuyor. Düzeldi. Çok teşekkür ederim. Emeğinize sağlık

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Password_Check()
    Dim My_Text As String, My_File As String
    
    My_File = "O:\Ortak\Raporlar\Update\AHORCLPSW.txt"
    
    With VBA.CreateObject("AdoDb.Stream")
        .Charset = "Utf-8"
        .Open
        .LoadFromFile My_File
         My_Text = .ReadText()
        .Close
    End With
    
    If My_Text = "Şifre Giriniz" Then
        MsgBox ("Lütfen " & My_File & " dosyasına veritabanı şifresi giriniz!"), vbCritical, "Hata!"
        Shell "Notepad.exe " & My_File, vbNormalFocus
    End If
End Sub

 

[bulentkars]

Teşekürler Korhan Bey,