Kapalı dosyadan çekilen verilerin yanına dosya ismini yazma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kapalı dosyadan çekilen verilerin yanına dosya ismini yazma

İleti#1)  umit1907 » 18 May 2019 10:26

Merhabalar,

Ekteki gibi bir kod satırıyla kapalı dosyalardaki verileri çekebiliyorum yalnız çekilen verilerin karşısına örneğin "M" sutununada dosya ismini yazdırmak istiyorum. Yardımcı olabilirmisiniz. Tüm verilerin karşısına yazılacaktır.


Private Sub CommandButton2_Click()

On Error Resume Next
Dim con As Object, evn As Object, yol As String
Sayfa2.Range("a2:z65536").ClearContents

Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path & "\Siparişler")
For Each D In klasor.Files
If D.Name <> ThisWorkbook.Name Then
If VBA.Right(D.Name, 4) = "xlsx" Or VBA.Right(D.Name, 3) = "xls" Then


con.Open " provider=microsoft.ace.oledb.12.0;data source=" & _
D.Path & ";extended properties=""excel 12.0;hdr=no"""
sorgu = "select f2,f3,f14,f15,f16,f17,f18 from [Birleştirilmiş$a6:r300]"
rs.Open sorgu, con, 1, 1
Sayfa2.Range("b65536").End(3)(2, 1).CopyFromRecordset rs

rs.Close
con.Close

End If
End If
Next D

Set rs = Nothing: Set con = Nothing
Set evn = Nothing: Set klasor = Nothing: D = vbNullString
End Sub
Kullanıcı avatarı
umit1907
Yeni Başlamış
 
Adı Soyadı:Ümit ASLAN
Kayıt: 26 Arl 2008 00:26
Konum: nevşehir
Meslek: muhasebe
Yaş: 33
İleti: 74
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: NEVŞEHİR

Cevap: Kapalı dosyadan çekilen verilerin yanına dosya ismini

İleti#2)  Ali ÖZ » 21 May 2019 12:36

Kod: Tümünü seç
Sayfa2.Range("b65536").End(3)(1, 12).Value = d.Name
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9786
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Feyzullah ve 2 misafir

Bumerang - Yazarkafe