- Katılım
- 12 Mart 2017
- Mesajlar
- 7
- Excel Vers. ve Dili
- Excel 2010 türkçe
Merhaba
Bir konuda hocalarımın yardımına ihtiyacım oldu.
Bir klasör içerisinde isimleri farklı olan bir çok excel dosyam bulunmakta. bu dosyaların ilk sayfasındaki F sütununun son dolu hücresini ayrı bir excel dosyasında toplamak istiyorum. Klasördeki dosyaların F sütununa satır eklenirse veya silinirse de yeni dosyam güncel kalacak şekilde olmalı. Bu arada klasördeki excel dosyalarının ilk sayfalarının da isimleri farklı farklı bu sorun olurmu bilmiyorum. Avantajım ise tüm dosyalarda istediğim bilgi F sütunundaki son dolu değer. yani sütun değişmşyor.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\")
Set dc = f.Files
For Each Dosya In dc
c = c + 1
Cells(c, 1) = Dosya.Name
Next
End Sub
üstte ki modül ile dosya isimlerini yeni excel dosyasına çekebiliyorum fakat devamını nasıl yapabilirim bilmiyorum.
Bir konuda hocalarımın yardımına ihtiyacım oldu.
Bir klasör içerisinde isimleri farklı olan bir çok excel dosyam bulunmakta. bu dosyaların ilk sayfasındaki F sütununun son dolu hücresini ayrı bir excel dosyasında toplamak istiyorum. Klasördeki dosyaların F sütununa satır eklenirse veya silinirse de yeni dosyam güncel kalacak şekilde olmalı. Bu arada klasördeki excel dosyalarının ilk sayfalarının da isimleri farklı farklı bu sorun olurmu bilmiyorum. Avantajım ise tüm dosyalarda istediğim bilgi F sütunundaki son dolu değer. yani sütun değişmşyor.
Sub Dosya_İsimleri()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Users\")
Set dc = f.Files
For Each Dosya In dc
c = c + 1
Cells(c, 1) = Dosya.Name
Next
End Sub
üstte ki modül ile dosya isimlerini yeni excel dosyasına çekebiliyorum fakat devamını nasıl yapabilirim bilmiyorum.