- Katılım
- 13 Kasım 2008
- Mesajlar
- 374
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2016 TR
Arkadaşlar merhaba,
Müsaadeniz olursa aşağıdaki konuda sizlerden yardımlarınızı rica edebilir miyim ?
Dim myDir As String, fn As String, LastR As Range, r As Range, myDate As String
myDir = "C:\Users\Kullanıcı\Desktop\Kapalı Kitaplardan Veri AL\"
fn = Dir(myDir & "*.xls*")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
myDate = CreateObject("Scripting.FileSystemObject").GetFile(myDir & fn).DateLastModified
Set LastR = ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(2)
With Workbooks.Open(myDir & fn).Sheets(1)
Set r = .Range("a" & Rows.Count).End(xlUp)
Burada kapalı kitaplardan veri alınması esnasında klasör adresi belli edilmiş olarak Veri alan kitabın bulunduğu yer sabitlenmiştir.
Veri alan kitap ola ki yer değiştirsin başka bir klasörde (yeni durduğu klasörde ) kapalı kitaplardan veri almaya çalışsın. kod bloğundaki adres geçersiz olacak.
Bu kitabın durduğu klasör yolunu .path nasıl ayarlabilirim. Sabit bir klasör yolu olmaksızın. Bulunduğu yada bulunacağı klasör yolu.Sabit adres belirtmeden.
Altı çizili kodların durumunun buna bağlı revizesi.
Müsaadeniz olursa aşağıdaki konuda sizlerden yardımlarınızı rica edebilir miyim ?
Dim myDir As String, fn As String, LastR As Range, r As Range, myDate As String
myDir = "C:\Users\Kullanıcı\Desktop\Kapalı Kitaplardan Veri AL\"
fn = Dir(myDir & "*.xls*")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
myDate = CreateObject("Scripting.FileSystemObject").GetFile(myDir & fn).DateLastModified
Set LastR = ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(2)
With Workbooks.Open(myDir & fn).Sheets(1)
Set r = .Range("a" & Rows.Count).End(xlUp)
Burada kapalı kitaplardan veri alınması esnasında klasör adresi belli edilmiş olarak Veri alan kitabın bulunduğu yer sabitlenmiştir.
Veri alan kitap ola ki yer değiştirsin başka bir klasörde (yeni durduğu klasörde ) kapalı kitaplardan veri almaya çalışsın. kod bloğundaki adres geçersiz olacak.
Bu kitabın durduğu klasör yolunu .path nasıl ayarlabilirim. Sabit bir klasör yolu olmaksızın. Bulunduğu yada bulunacağı klasör yolu.Sabit adres belirtmeden.
Altı çizili kodların durumunun buna bağlı revizesi.
