Birden Çok Kapalı Excel Dosyasından Veri Alma

[safaksinikci]

Farklı excel sayfalarından veri almak

ben excel sayfalarındaki C4,C5,C6,E10,E12,E14,E15 hücrelerinde verileri alıp farklı bir dosyaya yazdırmak istiyorum.

çok acil yardımınıza ihtiyacım var

 

[ayilmaztr]

Dinamik Klasör Yolu

kod:

Sub aktar()
a = MsgBox("DOSYALARINDAN VERİ ALMAK İSTİYORMUSUNUZ.?", vbYesNo)
If a = vbNo Then
Exit Sub
End If
sat1 = 2
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Hyperlinks.Delete


Liste (ThisWorkbook.Path)
MsgBox "İŞLEM TAMAM"
End Sub
Private Sub Liste(Kalasor As String)
Dim fL As Object, f As Object, Dosya As String, j As Long

Set fL = CreateObject("Scripting.FileSystemObject")


Dim wb As Workbook
Dosya = Dir(Kalasor & "\*.xls")
'Application.ScreenUpdating = False
While Dosya <> ""
DoEvents
If ThisWorkbook.Name <> Dosya Then
On Error Resume Next
Application.DisplayAlerts = False
deg = "'" & Kalasor & "\" & "[" & 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, 1).Hyperlinks.Add Anchor:=Cells(sat, 1), Address:=Kalasor & "\" & Dosya, TextToDisplay:=fL.GetBaseName(Dosya)


Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")

End If
Dosya = Dir
Wend
On Error GoTo sonraki
For Each f In fL.GetFolder(Kalasor).subfolders
Kalasor = f.Path
Liste (f.Path)
sonraki:
Next
Set fL = Nothing
Application.ScreenUpdating = True
End Sub

Halit Hocam Merhabalar,

Hücrelerden oluşturduğumuz bir klasör yolunu bu makroya eklememiz mümkün müdür?

(Uzun yoldan şöyle anlatayım. Elimde yaklaşık 110-120 klasör ve bu klasörlere ait ortalama 10-15 excel dosyasından İki ayrı sekmeden veri çekmem gerekiyor.

Buna göre isimleri sıralı klasörden ve dosya isimlerini excelde listeliyorum bu listeye göre kapalı .xlsx dosyalarından veri almalıyım.)

Örneğin

c:// aa-bb-1001-00 / aa-bb-1001-00-001.xlsx
c:// aa-bb-1001-00 / aa-bb-1001-00-002.xlsx
c:// aa-bb-1002-00 / aa-bb-1001-00-001.xlsx
c:// aa-bb-1003-00 / aa-bb-1001-00-001.xlsx

şeklindedir.


Yardımlarınız için teşekkür eder,
İyi çalışmalar dilerim.

 

[basdart]

merhaba arkadaşlar, çalıştığım firmada siparişlerle ilgili bir çalışmam var.
burada her bir siparişi ayrı bir sipariş numarası olarak dosya olarak kaydediyorum.sorunum şu aynı dosya içerisine oluşturduğum genel sipariş durumu dosyasına bu kapalı dosyalardan istediğim bilgileri çekebilmek(müşteri,sipariş no,renk,sip net kg,sip brüt kg,sip net kg,ort.fire).
Not:excel dosya numaraları ve sayısı değişken olacak o yüzden aktif siparişler içerisindeki tüm excell dosyalarına bakabilecek bir çözüm olmalı yardımlarınızı bekliyorum.
şimdiden teşekkürler.

 

[basdart]

Lütfen arkadaşlar yardımcı olabilecek yok mu? Forumda birden çok değişken isimde kapalı excel dosyasından veri alma ilgili bir çalışma bulamadım.bulduklarımıda düzenleyemedim.gönderdiğim dosya üzerinden düzenleme yapabilecek olan var mı?

 

[bayramhoca]

kod:

Sub aktar()
a = MsgBox("DOSYALARINDAN VERİ ALMAK İSTİYORMUSUNUZ.?", vbYesNo)
If a = vbNo Then
Exit Sub
End If
sat1 = 2
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Value = ""
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Hyperlinks.Delete


Liste (ThisWorkbook.Path)
MsgBox "İŞLEM TAMAM"
End Sub
Private Sub Liste(Kalasor As String)
Dim fL As Object, f As Object, Dosya As String, j As Long

Set fL = CreateObject("Scripting.FileSystemObject")


Dim wb As Workbook
Dosya = Dir(Kalasor & "\*.xls")
'Application.ScreenUpdating = False
While Dosya <> ""
DoEvents
If ThisWorkbook.Name <> Dosya Then
On Error Resume Next
Application.DisplayAlerts = False
deg = "'" & Kalasor & "\" & "[" & 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, 1).Hyperlinks.Add Anchor:=Cells(sat, 1), Address:=Kalasor & "\" & Dosya, TextToDisplay:=fL.GetBaseName(Dosya)


Cells(sat, 2) = ExecuteExcel4Macro(deg & 8 & "C8")
Cells(sat, 3) = ExecuteExcel4Macro(deg & 8 & "C9")

End If
Dosya = Dir
Wend
On Error GoTo sonraki
For Each f In fL.GetFolder(Kalasor).subfolders
Kalasor = f.Path
Liste (f.Path)
sonraki:
Nextlit bey.

Set fL = Nothing
Application.ScreenUpdating = True
End Sub

Merhaba halit bey, bir iki gündür yukarıdaki kodu kendi dosyalarıma uygulamaya çalışıyorum ama bir türlü beceremedim.

Elimde yüzlerce farklı isimde excel dosyası var. Bunların içinde kavram adında bir sayfa var. İçindeki C2-C9 arasındaki ve C23 hücresindeki verileri yanyana bir excelde toplamaya çalışıyorum.

verileri toplanacak örnek dosyayı ekledim.

Bu konuda yardımcı olmanız mümkün müdür? Ayrıca ilgili hücreleri seçtiğiniz satırları da yorumla belirtebilirseniz sevinirim.

İyi Çalışmalar

 

[Haluk]

bayramhoca;

Ekli dosyada "C:\TestFolder" klasöründeki tüm Excel dosyalarındaki "kavram" isimli sayfalarda C2:C9 ve C23 hücrelerindeki veriler alınarak, bu dosyada A ve B sütunlarında alt alta yazılmaktadır.

Siz, kendi Excel dosyalarınızın olduğu yeri, kodlarda değiştirirsiniz.

Umarım işinize yarar


Not: Olumlu veya olumsuz bir cevap verilmediği için eklenmiş olan dosya kaldırılmıştır.
.

 

[lion_25_77]

Veri aktarımı

Bir Stok adlı klasörün içinde kapalı durumda bulunan birden fazla tek sayfalı dosya var. Bu dosyaların sayfalarının bir kaç yerinde silgi ve defter adında ürünler var. Silgilerin miktarları silgi yazan hücrelerin bir alt satırında ( Örnek: Silgi yazılı hücreler B5, B8, B12 Silgilerin miktarlarının yazılı olduğu hücreler B6, B9, B13), Defterlerin miktarları defter yazan hücrelerin bir yan sütununda ( Örnek: Defter yazılı hücreler D5, D8, D12, Defterlerin miktarlarının yazılı olduğu hücreler E5, E8, E13) yazılı. Silgi ve defterlerin miktarlarını yeni oluşturan herhangi bir dosyanın a ve b sütunlarına nasıl aktarabilrim. Şimdiden teşekkür ederim

 

[lion_25_77]

Arkadaşlar yardımlarınızı bekliyoruz. Lütfen yardımcı olur musunuz. Halit bey lütfen konuya bir el atsanız sanırım hemen çözülür.:yardim:

 

[halit3]

Arkadaşlar yardımlarınızı bekliyoruz. Lütfen yardımcı olur musunuz. Halit bey lütfen konuya bir el atsanız sanırım hemen çözülür.:yardim:

Buradaki soru bütünlüğünü bozmamak için sorunuzu farklı bir konu başlığı altında yeni konu açarak soruyu sorunuz.

Not: bu işlemler için mutlaka küçük boyutlu örnek dosyalarınızı açıklayıcı bilgi ile ekleyiniz.

 

[lion_25_77]

Buradaki soru bütünlüğünü bozmamak için sorunuzu farklı bir konu başlığı altında yeni konu açarak soruyu sorunuz.

Not: bu işlemler için mutlaka küçük boyutlu örnek dosyalarınızı açıklayıcı bilgi ile ekleyiniz.

Halit bey yeni konu açıldı. ilginiz için teşekkür eder yardımlarınızı bekleriz.

Konu linki:
http://www.excel.web.tr/f50/kapaly-excel-dosyasyndan-hucre-icerioine-gore-veri-alma-t170741.html#post931204

 

[cashhflow]

Merhaba,

Elimde 5-6 excel dosyası var. Her çalışma dosyasında 30-40 sayfa var ve farklı isimlerde.. Bu sayfaların hepsini tek bir excel dosyasında ve veri çekilecek olan sayfanın ismi ile birlikte almanın bir yolu var mıdır?

Teşekkür ederim.