bir kac kapali calisma kitabindan ayni anda veri alabilmek

[dennisf06]

merhaba

11.08.2008, 12.08.2008 seklinde günlük olarak tutdugum calisma kitaplarindan tarih araligi vererek ( 11.08.2008 adli calisma kitabi ile 18.08.2008 calisma kitabi arasi gibi ) verileri nasil tabloya aktarabilirim. ekteki dosya sorumu daha aciklayici anlatmaya calistim.
ilginiz icin simdiden cok tesekkür ederim. saygilarimla.

 

[dennisf06]

daha önce sn Levent Mentesoglu bey in veri almak hakkinda baska bir sorum icin sunmus oldugu asagidaki kodlari sorum icin nasil uyarlayabilirim acaba, daha dogrusu böyle bir sey yapilabilir mi ? tesekkür ederim.

Kod:
Sub verilerial()
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\deneme\" & [c3] & ".xls;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set rs = baglanti.Execute("[sayfa11$c6:c65536]")
[c6].CopyFromRecordset rs
End Sub

 

[dennisf06]

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("E:\deneme").Files
c = c + 1
Cells(c + 4, "e") = dosya.Name
Cells(c + 4, "f") = ExecuteExcel4Macro("'E:\deneme\[" & dosya.Name & "]sayfa1'!R35C5")
Cells(c + 4, "g") = ExecuteExcel4Macro("'E:\deneme\[" & dosya.Name & "]sayfa1'!R35C6")
Cells(c + 4, "h") = ExecuteExcel4Macro("'E:\deneme\[" & dosya.Name & "]sayfa1'!R35C7")
Next
End Sub

merhaba

formu arastirdim yukardaki kodlari Sn Levent Mentesoglu bey benzer bir örnek icin yazmis. zannedersem istedigim cözüme cok yakin. makro bilgim yetersiz oldugu icin bir türlü uyarlayamiyorum. yardimci olabilirseniz cok memnun olurum. bir de ilk dosyamda ufak bir degisiklik yaptim.

 

[Orion1]

Veriler hep ayni yerde olmalı(Ayni Sütunda) ,diğer verilerde öyle.Standart olmazsa nereden ne alınacak bilinmez.

 

[dennisf06]

tamam. veriler ayni yerde olursa nasil yapabilirim. Ama ayni satirda olmasi lazim.sütun degil.

 

[dennisf06]

benzer bir calisma icin link gösterebilecek bir arkadas var mi acaba. hala ugrasmaktayim. tesekkür ederim.

 

[leumruk]

Aynı uygulamaya benim de ihtiyacım var.
Yalnız benimkinde ufak bir farklılık var: Anadosyaya bir combobox eklemek istiyorum. Bu combobox'ta başlıklar bulunacak. Bu başlıklar bahsi geçen kapalı excel dosyalarının adı olacak. Başlığa tıkladığımızda kapalı excel dosyasındaki veri anadosyaya gelecek. Tablo A130 aralığı olabilir.
Syn uzman arkadaşlarım, yardımlarınızı bekliyorum. Şimdiden teşekkürler.

 

[leumruk]

Aynı uygulamaya benim de ihtiyacım var.
Yalnız benimkinde ufak bir farklılık var: Anadosyaya bir combobox eklemek istiyorum. Bu combobox'ta başlıklar bulunacak. Bu başlıklar bahsi geçen kapalı excel dosyalarının adı olacak. Başlığa tıkladığımızda kapalı excel dosyasındaki veri anadosyaya gelecek. Tablo A130 aralığı olabilir.
Syn uzman arkadaşlarım, yardımlarınızı bekliyorum. Şimdiden teşekkürler.

Bir ek dosya ekliyorum. Bu dosya üzerinde yardımcı olursanız çok memnun olurum.

 

[Orion1]

Aynı uygulamaya benim de ihtiyacım var.
Yalnız benimkinde ufak bir farklılık var: Anadosyaya bir combobox eklemek istiyorum. Bu combobox'ta başlıklar bulunacak. Bu başlıklar bahsi geçen kapalı excel dosyalarının adı olacak. Başlığa tıkladığımızda kapalı excel dosyasındaki veri anadosyaya gelecek. Tablo A130 aralığı olabilir.
Syn uzman arkadaşlarım, yardımlarınızı bekliyorum. Şimdiden teşekkürler.

Dosyanız hazır.
ana dosya diğer dosyalarla ayni kjlasör içinde olmalı.
Excel4 makrosu kullandım.

Private Sub ComboBox1_Click()
Dim dosya, yol As String, sat, sut As Byte
If ComboBox1.ListCount < 1 Then Exit Sub
Application.ScreenUpdating = False
Range("A1:D30").ClearContents
yol = ThisWorkbook.Path & "\"
dosya = ComboBox1.Value
For sat = 1 To 30
    For sut = 1 To 4
        Cells(sat, sut).Value = Application.ExecuteExcel4Macro("'" & yol & "[" & dosya & "]Sayfa1'!R" & sat & "C" & sut)
    Next
Next
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim yol, dosya, dsy As String
yol = ThisWorkbook.Path & "\"
dosya = "*.xls"
dsy = Dir(yol & dosya)
Do While dsy <> ""
    If dsy <> ThisWorkbook.Name Then
        ComboBox1.AddItem dsy
    End If
    dsy = Dir
Loop
End Sub

 

[dennisf06]

Evren bey bunu satirlar icin uygulama imkani var mi acaba.

 

[Orion1]

Evren bey bunu satirlar icin uygulama imkani var mi acaba.

Biraz açarmısınız?

 

[leumruk]

Evren hocam, çok teşekkür ederim. İşlem tam istediğim gibi.
Şu an ihtiyacım olan, tam tamına bu makro. Ama sırf meraktan ve ilerde belki ihtiyacım olur düşüncesiyle soruyorum:
Aktarma işlemini biçimlendirmelerle birlikte yapabilir miyiz? Dolgu renkleri, metin şekillendirmeleri vs... Böyle bir şey mümkün mü? Kısaca, bu aktarma işlemini kopyala yapıştır şeklinde yapabilir miyiz?
Mümkünse aynı dosya üzerinde uygular mısınız?

 

[dennisf06]

Biraz açarmısınız?

merhaba

sayfa1 de A sutununa isimleri B sutununa da tarihleri yazdigim zaman 11.08.2008, 12.08.2008, 13.08.2008 sayfalarindan Ali ye ait verilerin bulundugu satiri sayfa1 e nasil aktarabilirim. örnek dosya ektedir.Tesekkür ederim. Saygilar.