Birden Çok Kapalı Excel Dosyasından Veri Alma

eleceng · 11 Mart 2013

Arkadaşlar, çalıştığım firmada Cari Hesaplar, ekte göndermiş olduğum dosyadaki gibi klasörlenmiş şekilde tutuluyor. Toplamda yaklaşık 1000 adet müşteri hesabı bulunmakta. Benim yapmak istediğim şey, "Alacak&Verecek Rapor" dosyasına bütün dosyalardan Son Bakiyeyi ve Son Bakiyenin Tarihini (Yani H8 ve I8 hücrelerini) çekebilmek. Bunun kolay bir yolu var mıdır? Ayrıca klasörler içerisine ekleyeceğim veya sileceğim her dosyanın da bu rapora eklenmesi veya silinmesi gerek. Eğer yardımcı olursanız çok sevinirim.

halit3 · 12 Mart 2013

eleceng' Alıntı:
Arkadaşlar, çalıştığım firmada Cari Hesaplar, ekte göndermiş olduğum dosyadaki gibi klasörlenmiş şekilde tutuluyor. Toplamda yaklaşık 1000 adet müşteri hesabı bulunmakta. Benim yapmak istediğim şey, "Alacak&Verecek Rapor" dosyasına bütün dosyalardan Son Bakiyeyi ve Son Bakiyenin Tarihini (Yani H8 ve I8 hücrelerini) çekebilmek. Bunun kolay bir yolu var mıdır? Ayrıca klasörler içerisine ekleyeceğim veya sileceğim her dosyanın da bu rapora eklenmesi veya silinmesi gerek. Eğer yardımcı olursanız çok sevinirim.

1-Bu dosya veri alınacak klasörlerin yanında olmalı
2-veri alınacak dosyaların hepsinde Sayfa1 olmalı ve verilerde bu sayfa1 de olmalı

eleceng · 12 Mart 2013

Üstadım eli koluna sağlık şahane olmuş. tam irdeleyemedim, çok vaktim yoktu, ama beni büyük bir dertten kurtardın teşekkürlerimi sunarım..

meaksoy · 11 Temmuz 2013

2 farklı excel sayfasından veri alma

2 adet farklı excel dosyasından veri alma konusunda yardımınız rica edeiyroumekli dosyada örneğini yolladım.

meaksoy · 12 Temmuz 2013

meaksoy' Alıntı:
2 adet farklı excel dosyasından veri alma konusunda yardımınız rica edeiyroumekli dosyada örneğini yolladım.

yardımcı olabilecekmisiniz ?

netsynter · 24 Temmuz 2013

halit3' Alıntı:
1-Bu dosya veri alınacak klasörlerin yanında olmalı
2-veri alınacak dosyaların hepsinde Sayfa1 olmalı ve verilerde bu sayfa1 de olmalı

Halit bey dosya oldukça faydalı belirli bir klasörden, belirli bir excel dosyasından veri alırken bu kodu nasıl modifiye edebiliriz acaba?

halit3 · 24 Temmuz 2013

netsynter' Alıntı:
Halit bey dosya oldukça faydalı belirli bir klasörden, belirli bir excel dosyasından veri alırken bu kodu nasıl modifiye edebiliriz acaba?

Klasör için kod:

Kod:

Sub aktar2()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Kaynak).Files
If ThisWorkbook.Name <> Dosya.Name Then
deg = "'" & Kaynak & "\" & "[" & Dosya.Name & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
End If
Next

Application.ScreenUpdating = True
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

dosya için kod:

Kod:

Sub aktar3()

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

Kaynak = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xls", Title:="Open a File", MultiSelect:=False)
If Kaynak = False Then
MsgBox "Kaynak klasörü seçmediniz"
Exit Sub
End If

Klasor = fL.GetParentFolderName(Kaynak)
Dosya = fL.GetFileName(Kaynak)

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
deg = "'" & Klasor & "\" & "[" & Dosya & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
Application.ScreenUpdating = True

MsgBox "işlem tamam"

End Sub

eleceng · 23 Ekim 2013

Halit Bey bir konuda daha yardıma ihtiyacım var. yardımcı olursanız sevinirim. "Senelik Ciro hesabı" yapmaya çalışıyorum. Ek'te "Cari Hesap Şablonumuzu" gönderdim. Benim yapmayı düşündüğüm şey; başka bir excel dosyasında her firmanın Yıllık toplam satış, toplam ödeme ve toplam ciroyu ayrı ayrı satırlarda belirterek listelemek. Ben bir şablon uydurdum. Ek'te onu da gönderdim. Daha mantıklı bir çözümünüz var ise kabulümdür. Yardımlarınızı bekliyorum.

selimcengizince · 15 Kasım 2013

Merhaba,

Mobil aygıttaki bir excel dosyasından kapalıyken veri almak istiyorum. Dosya yolunu bulamıyorum. smartphone olarak görünüyor..dizin oluşturamıyorum sürücü yok

C:'mi D:'mi H:'mi nasıl bulacağımı da bulamadım..

misal; "C:\users\desktop\vs.xlsx" adresinden sorunsuz veri alabiliyorum..
Mobil aygıt için adresi ne şekilde belirtmeliyim?

selimcengizince · 16 Kasım 2013

Arkadaşlar bilen, anlayan varsa yardımlarınızı bekliyorum.

simetri. · 18 Kasım 2013

Merhabalar Halit Hocam,

7 Nolu mesajınızda Klasör için kod var. Bu kodu klasör seçme yöntemi ile değilde

Kodun içine dosya yolu yazma yöntemi ile kullanmak istiyoruz. Kendimiz düzeltemedik.

Yardımcı olabilir misiniz acaba?

halit3 · 18 Kasım 2013

simetri.' Alıntı:
Merhabalar Halit Hocam,

7 Nolu mesajınızda Klasör için kod var. Bu kodu klasör seçme yöntemi ile değilde

Kodun içine dosya yolu yazma yöntemi ile kullanmak istiyoruz. Kendimiz düzeltemedik.

Yardımcı olabilir misiniz acaba?

KOD:

Kod:

Sub aktar2()
Kaynak = [COLOR="red"]"C:\DENEME"[/COLOR]

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Kaynak).Files
If ThisWorkbook.Name <> Dosya.Name Then
deg = "'" & Kaynak & "\" & "[" & Dosya.Name & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
End If
Next
Application.ScreenUpdating = True

MsgBox "işlem tamam"

End Sub

Kod:

Sub aktar3()
Kaynak = [COLOR="Red"]"C:\DENEME"[/COLOR]

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

Klasor = fL.GetParentFolderName(Kaynak)
Dosya = fL.GetFileName(Kaynak)

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
deg = "'" & Klasor & "\" & "[" & Dosya & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
Application.ScreenUpdating = True

MsgBox "işlem tamam"

End Sub

simetri. · 18 Kasım 2013

Çok çok teşekkür ederim, değerli hocam.

Ellerinize sağlık.

gertt · 30 Kasım 2013

Merhaba
Aynı şekilde A1 ile Z100 arasındaki verileri nasıl çekebiliriz? Yani kodlamada verilerin çekildiği ve aktarıldığı alanı nasıl revize edebiliriz?

gertt · 1 Aralık 2013

Yardımcı olabilecek arkadaş yok mu?

gertt · 2 Aralık 2013

Konu hala güncel...

erdenek · 25 Aralık 2013

arkadaşlar aynı konu olduğu için tekrar konu açmadım.Ekteki dosyayada bir zahmet bakabilirmisiniz.diğer excel dosyasındaki veriler buraya aktıralacak isimli excel dosyasına aktarılacak.dosya boyutu büyük olduğu için birçoğunu çkardım.elimde daha 100-150 arası dosya var.

halit3 · 25 Aralık 2013

erdenek' Alıntı:
arkadaşlar aynı konu olduğu için tekrar konu açmadım.Ekteki dosyayada bir zahmet bakabilirmisiniz.diğer excel dosyasındaki veriler buraya aktıralacak isimli excel dosyasına aktarılacak.dosya boyutu büyük olduğu için birçoğunu çkardım.elimde daha 100-150 arası dosya var.

Sorunuzun bu konu ile benzerliği taşımadığını düşünüyorum.
aşağıdaki linkde sorunuzu sormuşsunuz bilenler zaten yardımcı olur diye düşünüyorum.

Size şu öneriyi verebilirim öncelikle dosyanız ofis 2003 de açılmıyor diğer taraftan örnek dosyanızda o kadar çok sayfa var ki sayfalardaki hangi bilgiler alınacak sizin örneğinizde bunlar mevcut değil.

Yukarıda yazdığım sadece öneriydi Kapalı dosyadan veri almak olduk ca zahmetli ve meşekkatli iş.

http://www.excel.web.tr/f14/dioer-excel-dosyalaryndan-veri-alma-t136614.html

erdenek · 25 Aralık 2013

ilginize teşekkür ederim.

27style · 23 Ocak 2014

halit3' Alıntı:

Klasör için kod:

Kod:

Sub aktar2()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Kaynak).Files
If ThisWorkbook.Name <> Dosya.Name Then
deg = "'" & Kaynak & "\" & "[" & Dosya.Name & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
End If
Next

Application.ScreenUpdating = True
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub

dosya için kod:

Kod:

Sub aktar3()

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

Kaynak = Application.GetOpenFilename(FileFilter:="Excel Workbooks,*.xls", Title:="Open a File", MultiSelect:=False)
If Kaynak = False Then
MsgBox "Kaynak klasörü seçmediniz"
Exit Sub
End If

Klasor = fL.GetParentFolderName(Kaynak)
Dosya = fL.GetFileName(Kaynak)

Application.DisplayAlerts = False

Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
deg = "'" & Klasor & "\" & "[" & Dosya & "]" & "Sayfa1" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
sat = Cells(Rows.Count, "A").End(3).Row + 1
Cells(sat, 1) = ExecuteExcel4Macro(deg & 2 & "C2")
Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")
Application.ScreenUpdating = True

MsgBox "işlem tamam"

End Sub

merhaba,

kodları inceleyip, kendi ihtiyacıma göre editlemeye çalışıyorum
ama kodların içerisinde kayboldum. ".xls" ile biten tüm dosyaların "sayfa1" sekmesinden
B2'yi A kolonuna,
H8'i B kolonuna,
I8'i C kolonuna yazıyor.

bu hücrelerin ismini hiçbir satırda göremedim.
yani ben aşağıdaki gibi yapabilmek için neyi değiştirmeliyim?

birçok .xls dosyasının "sayfa1" sekmesinden aşağıdaki hücreleri alıp, ana dosyama taşımak istiyorum.

A2 - A kolonuna,
A4 - B kolonuna,
A7 - C kolonuna,
A10 - D kolonuna,
A13 - E kolonuna,
A16 - F kolonuna,
A19 - G kolonuna yazmak istiyorum.

bana yardımcı olabilir misiniz?

Birden Çok Kapalı Excel Dosyasından Veri Alma

eleceng

Ekli dosyalar

halit3

Uzman

Ekli dosyalar

eleceng

meaksoy

Ekli dosyalar

meaksoy

netsynter

halit3

Uzman

eleceng

Ekli dosyalar

selimcengizince

selimcengizince

simetri.

halit3

Uzman

simetri.

gertt

gertt

gertt

erdenek

Ekli dosyalar

halit3

Uzman

erdenek

27style