dir fonksiyonu hakkında adı değişken dosyadan veri alma

[hoguz2]

Arkadaslar Merhaba , dir fonksiyonu hakkında bir sorum olacak . Yardımınızı rica ederim. Dosya yolunu LResult adlı değişken' e aşağıdaki gibi tanımladığımda

Dim LResult As String
LResult = "C:\Users\hoguz2\Desktop\okan\P000753288_20170417.t xt"

kod çalışıyor fakat aşağıdaki gibi yapmak isteyince çalışmıyor.

Dim LResult As String
LResult = Dir("C:\Users\hoguz2\Desktop\okan\P000753288*.txt")

yanlış nerede nasıl düzeltilir..

kodun tamamı aşağıdaki gibi

Kod:
Sub dosyadanal()
On Error GoTo sonsatir
Dim LResult As String
LResult = Dir("C:\Users\hoguz2\Desktop\okan\P000753288*.txt")
satir = 1
Open LResult For Input As 1
Do While Not EOF(1)
Line Input #1, kayit1
If kayit1 <> Empty Then
Cells(satir, 1) = kayit1
satir = satir + 1
End If
Loop
Close #1
End If
Exit Sub
sonsatir:
MsgBox ("HATA OLUŞTU")
End Sub
iyi çalışmalar

 

[Necdet]

Merhaba,

Ne yapmak istediğinizi belirtseniz daha çabuk yanıt alırsınız.

Siz P000753288 ile başlayan tüm text dosyalarını bulup işlem mi yapmak istiyorsunuz?

Aşağıdaki kodlar P000753288 ile başlayan text dosyalarını bulur. Kodları kendinize göre düzenleyiniz.

Sub DosyadanAl()

    On Error GoTo SonSatir
    
    Dim LResult As String, _
        Satir   As Long
    
    LResult = Dir("C:\Users\hoguz2\Desktop\okan\P000753288*.txt")
    
    Satir = 1
    
    While LResult <> ""
    
        'Burada dosyayı açıp işlemleri yapabilirsiniz
        'Kodlarınız
        LResult = Dir
        
    Wend
    
SonSatir:

    MsgBox ("HATA OLUŞTU")
    
End Sub

 

[hoguz2]

hocam merhaba denedim ama yapamadim. sizden ricam örnek kodlari bilgisayarinizda bir calistirabilir misiniz. kodlar aşağıda yazdigim sekilde ve bu haliyle sonuc veriyor. gosterdiğim yolda ve adini verdiğim txt dosyasini bulup içinden veri alabiliyorum.

fakat ben txt dosyasinin tam ismine gore değil , sizin de anladiginiz sekilde P000753288 ile başlayanından veri almak istiyorum.


Sub dosyadanal()
On Error GoTo sonsatir
Dim LResult As String
LResult = "C:\Users\hoguz2\Desktop\okan\P000753288_20170417.txt"
Satir = 1
Open LResult For Input As 1
Do While Not EOF(1)
Line Input #1, kayit1
If kayit1 <> Empty Then
Cells(Satir, 1) = kayit1
Satir = Satir + 1
End If
Loop
Close #1
Exit Sub
sonsatir:
MsgBox ("HATA OLUŞTU")
End Sub

 

[Necdet]

Merhaba,

denemek için dosya gerek. Siz aşağıdaki kodları deneyiniz.

Sub DosyadanAl()

    On Error GoTo SonSatir
    
    Dim LResult As String, _
        Satir   As Long, _
        Kayit1  As String, _
        Yol     As String
         
    Yol = "C:\Users\hoguz2\Desktop\okan\"
    
    LResult = Dir(Yol & "P000753288*.txt")
    
    Satir = 1
    
    While LResult <> ""
    
        Open Yol & LResult For Input As 1
        Do While Not EOF(1)
            Line Input #1, Kayit1
            If Kayit1 <> Empty Then
            Cells(Satir, "A") = Kayit1
            Satir = Satir + 1
            End If
        Loop
        Close #1
        
        LResult = Dir
        
    Wend
    
    Exit Sub
    
SonSatir:

    MsgBox ("HATA OLUŞTU")
    
End Sub

 

[hoguz2]

Hocam Günaydın..

Vakit ayırdığınız için çok teşekkür ederim. Elinize sağlık

iyi çalışmalar,