Kapalı dosyadan veri alma

M

mersilen

Destek Ekibi
Destek Ekibi
Katılım
31 Aralık 2009
Mesajlar
1,101
Excel Vers. ve Dili
excel 2007 türkçe
Merhabalar
Kapalı dosyadaki sütun bazındaki verileri alt alta yazdırabilir miyiz?
Dosyalardaki sütun ve satır sayısı farklı olabilir.
Sütun başlıklarının bir kısmına göre secim yapılacaktır.

Yeni oluşturulacak tabloda satır bazında mükerrer kayıt olabilir. Bunuda (renkli) belirtebilir mi?

winrar dosyası yüklemeye sistem izin vermediği için dosyaları tek tek yükledim.
Bunlar bir klasör içinde olacak.

Not
sütun sayısında farklılık olabiliyor.Kiminde 20, kiminde 25 sütun mevcut.
Ben sütun başlıkları aynı olan verileri birleştireceğim.Ortalama 5-7 sütun oluyor.
Dosyayı güncelledim


Teşekkürler.
 

Ekli dosyalar

Son düzenleme:
M

mersilen

Destek Ekibi
Destek Ekibi
Katılım
31 Aralık 2009
Mesajlar
1,101
Excel Vers. ve Dili
excel 2007 türkçe
arkadaşlar konu güncel
 
A

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Sütun sayıları farklı olabilir yazmışsınız ama örneklerinizde hep E sütununa kadar gidiyor. Sadece satır sayısı mı farklı sütun da mı farklı. Sütun farklı ise sütun başlıkları aynı olmalı ki veriler karşılık gelmesin.
 
M

mersilen

Destek Ekibi
Destek Ekibi
Katılım
31 Aralık 2009
Mesajlar
1,101
Excel Vers. ve Dili
excel 2007 türkçe
askm' Alıntı:
Sütun sayıları farklı olabilir yazmışsınız ama örneklerinizde hep E sütununa kadar gidiyor. Sadece satır sayısı mı farklı sütun da mı farklı. Sütun farklı ise sütun başlıkları aynı olmalı ki veriler karşılık gelmesin.
Genişletmek için tıkla ...
farklı sayfalardaki tabloların satır sayıları farklı, ama her sayfa içindeki tablolarda sütunlardaki satır sayıları aynı

sütun sayısında farklılık olabiliyor.Kiminde 20, kiminde 25 sütun mevcut.
Ben sütun başlıkları aynı olan verileri birleştireceğim.Ortalama 5-7 sütun oluyor.
Dosyayı güncelledim
 

Ekli dosyalar

A

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Workbooks.open yöntemi ile verileriniz alınabilir yalnız örneğinizi gerçeğe uygun olarak tekrar eklerseniz 20 sütun olandan ve 25 sütun olandan eklerseniz. Dosyaların içerisinde birer sayfa mı mevcut sayfa sayısı da mı farklı.
 
M

mersilen

Destek Ekibi
Destek Ekibi
Katılım
31 Aralık 2009
Mesajlar
1,101
Excel Vers. ve Dili
excel 2007 türkçe
her bir dosyada 1 sayfa olacak
sayfa isimlerini aynı yapabilirim
her bir dosyada ortalama 25.000+ satır
ortalama 300-500 bin veri

aşağıdakinin döngüsü gibi olmalı diye düşünüyorum

select kolonadı1, kolonadı2 from tablo1 unıon kolonadı1, kolonadı2 from tablo2

veya Aşağıdaki kod gibi olmalı
ama hata veriyor sorgu kısmında
Rs.Open Sorgu, Con, 1, 3

Kod: 
Private Sub CommandButton1_Click()
Dim Sorgu As String, Yol As String, Dosya As String
Dim Sutun As Byte
Set Con = CreateObject("AdoDb.Connection")
Set Rs = CreateObject("AdoDb.RecordSet")
Set Fso = CreateObject("Scripting.FileSystemObject")
Yol = ThisWorkbook.Path
Set Klasor = Fso.GetFolder(Yol)
Range("A2:G1115").ClearContents
'Sutun = 2
SonSat = 2
For Each Dosyalar In Klasor.Files
If Dosyalar.Name < "ana.xls" Then
Dosya = Replace(Dosyalar.Name, ".xls", "")
Con.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & ThisWorkbook.Path & "\" & Dosya & ".xls" & ";Extended Properties=""Excel 8.0;HDR=NO"""
Sorgu = "Select ID,Kolon1,Kolon2,Kolon3,Kolon4 FROM [Sayfa1$A2:G5]"
Rs.Open Sorgu, Con, 1, 3
Cells(SonSat, "A").CopyFromRecordset Rs
Rs.Close
Con.Close
'Sutun = Sutun + 1
SonSat = Range("A" & Rows.Count).End(xlUp).Row
End If
Next Dosyalar
Set Con = Nothing
Set Rs = Nothing
Set Fso = Nothing
Set Klasor = Nothing
Set Dosyalar = Nothing
Yol = vbNullString
Dosya = vbNullString
End Sub
 

Ekli dosyalar

Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Üst