Adı değişken olan dosyadan veri alma

[Muhammet Okumuş]

Arkadaşlar merhaba. Masaüstünde Taslak adlı klasörüm var. Bu klasöre csv uzantılı değişken adları olan dosya gönderiyorum. (CSV uzantılı dosyanın adı sabit değil). Amacım bu Taslak klasöründe var olan CSV uzantılı dosyayı açmadan A sütununda yer alan verileri Excel dosyamda bulunan Ham sayfasına alıp, CSV uzantılı dosyayı silmek.

 

[ÖmerBey]

Merhaba,
Dosyanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz...

Sub Düğme1_Tıklat()
yol = CreateObject("WScript.Shell").SpecialFolders("desktop") & Application.PathSeparator & "Taslak"
dsy = Dir(yol & "\*.csv")
If dsy <> "" Then
    dosya = yol & Application.PathSeparator & dsy
    Open dosya For Input As #1
        dz = Split(Input$(LOF(1), #1), vbLf)
        ReDim yeni(UBound(dz), UBound(Split(dz(0), ",")))
    Close #1
    For a = LBound(dz) To UBound(dz)
        dz1 = Split(dz(a), ",")
        For b = LBound(dz1) To UBound(dz1)
            yeni(a, b) = Replace(dz1(b), Chr(34), "")
        Next
    Next
    With Sheets("Ham")
        .UsedRange.ClearContents
        .Range("A1").Resize(UBound(yeni) + 1, UBound(yeni, 2) + 1).Value = yeni
    End With
    Kill dosya
Else
    MsgBox yol & " klasöründe hiç csv yok"
End If
End Sub

 

[Muhammet Okumuş]

Sn. Ömer Bey, çok teşekkür ederim. Zamanımı alan bir durumu sayenizde zaman kaybetmeden ve uğraşmadan yapabileceğim. Tekrardan çok teşekkür ederim.