Kapalı dosyadan veri alma

[ozuberk]

Evren bey Deneme 8 olan yerde tarih vardı. Daha önce yazmış olduğunuz kod da B1 den alıyordu ona atlamışız. Bunu nasıl yapabilirim. Teşekkürler

 

[Orion1]

Yani 2nci satırdan itibarenmi aktarma yapsın.Yani siz yeteri kadar açıklama yapmıyorsunuz.Benim 2 satırda yazacağım kod habire uzayıp duruyor.Şimdiye kadar bu konunun çoktan bitmesi lazımdı.
H1 de tarih olacak bu sorgulanacakmı ne olacak şimdi açıklama yapmışsınız ama bunuda yine söylememişsiniz.

 

[ozuberk]

Hocam pardon haklısınız kusura bakmayın. Sorum ekte dir.

 

[Orion1]

Hocam pardon haklısınız kusura bakmayın. Sorum ekte dir.

Dosyayı güncelledim.
20 numaralı mesajdan dosyayı indirebilirsiniz.

 

[ozuberk]

Sayın Evren Bey,

Yardımlarınız için çok teşekkür ederim.

Saygılarımla,

 

[Orion1]

Sayın Evren Bey,

Yardımlarınız için çok teşekkür ederim.

Saygılarımla,

Rica ederim.
İyi çalışmalar.

 

[Hasan_32]

Dosyanız ektedir.
her 2 dosyada ayni klasörde olmalıdır.

Sub kapali_aktar()
Dim conn As Object, rs As Object
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\kapalı.xls;extended properties=""excel 8.0;hdr=yes"""
rs.Open "Select * from [Kapalı$];", [COLOR="Red"]conn, 1, 3[/COLOR]sat = Cells(65536, "A").End(xlUp).Row + 1
rs.movefirst
Range("A" & sat).CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "Kapalı dosyadan veriler aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Hocam Selamlar;
Alıntıda " conn, 1 , 3 " 'de ifade edilen 1 ve 3 'ün görevleri nedir? Bir Kod yazdım hdr=No olduğu halde başlıkları almakta problem yaşıyorum ve çözemedim. Başlıklarını aldığı sütunlarda alt değerleri alamıyorum, Başlıkları alamadığı sütunlarında alt değerleri tam olarak alınıyor. Buna bir yorum veya çözüm alabilirmiyim.
Teşekkürler.

 

[Orion1]

Hocam Selamlar;
Alıntıda " conn, 1 , 3 " 'de ifade edilen 1 ve 3 'ün görevleri nedir? Bir Kod yazdım hdr=No olduğu halde başlıkları almakta problem yaşıyorum ve çözemedim. Başlıklarını aldığı sütunlarda alt değerleri alamıyorum, Başlıkları alamadığı sütunlarında alt değerleri tam olarak alınıyor. Buna bir yorum veya çözüm alabilirmiyim.
Teşekkürler.

keyset ve keylock tur. hdr = no yaparsanız vt 'de başlık olmayacağını söylerseniz..Bu durumda alan adı kullanamzsınız.

 

[Hasan_32]

Alan Adı

Hocam Veri Alınan dosyada alan tanımlaması yapmadığım içinmi böyle bir sorun yaşıyorum, çünkü Veri aldığım doysa server da read only olarak açıyorum.

 

[Orion1]

Hocam Veri Alınan dosyada alan tanımlaması yapmadığım içinmi böyle bir sorun yaşıyorum, çünkü Veri aldığım doysa server da read only olarak açıyorum.

sql sorgulama yapabilmeniz için alan adlarını(sütun başlıklarını) hdr=yes yapmalısınız.Aşağıdaki kodu deneyerek vt deki alan adlarını öğrenebilirsiniz.
for i = 0 to rs.fieldscount-1
msgbox rs(i).name
next

 

[Hasan_32]

sql sorgulama yapabilmeniz için alan adlarını(sütun başlıklarını) hdr=yes yapmalısınız.Aşağıdaki kodu deneyerek vt deki alan adlarını öğrenebilirsiniz.
for i = 0 to rs.fieldscount-1
msgbox rs(i).name
next

Hocam ben bunu nasıl yapacağımı anlayamadım. İlgilenirseniz sıkıntı yaşadığım dosyayı ekte gönderdim. Emeğinize teşekkür ederim.

 

[Orion1]

Hocam ben bunu nasıl yapacağımı anlayamadım. İlgilenirseniz sıkıntı yaşadığım dosyayı ekte gönderdim. Emeğinize teşekkür ederim.

Veriler bu dosyaya aktarılacaksa kaynak dosyayıda yollamalısınız.

 

[Hasan_32]

Veriler bu dosyaya aktarılacaksa kaynak dosyayıda yollamalısınız.

Hocam bu dosyaların devamıda aynı formatta. İlginize teşekkür ederim.

 

[Hasan_32]

Hocam işe gitmek için ayrılıyorum, konuyu takip etmeye devam edeceğim. Verdiğiniz bilgilere, benim için harcadığınız emeğe teşekkür ediyorum. Çalışmalarınızda başarılar diliyorum.

 

[Orion1]

Dosyanız ektedir.

Sub kapali_Dosyayi_aktar()
Dim fso As Object, fs As Object, hcr As Range, z, deg As String
Set fso = CreateObject("Scripting.FileSystemObject")
'On Error Resume Next
For Each fs In fso.getfolder(ThisWorkbook.Path).Files
    z = Split(fs.Name, " - ")
    If z(0) = ActiveSheet.Name Then
        Range("A1").Value = Application.ExecuteExcel4Macro("'" & _
        ThisWorkbook.Path & "\[" & fs.Name & "]Sheet1'!R1C1")
        For Each hcr In Range("A4:AD28")
            hcr.Value = Application.ExecuteExcel4Macro("'" & _
            ThisWorkbook.Path & "\[" & fs.Name & "]Sheet1'!R" & hcr.Row & "C" & hcr.Column)
        Next
    End If
Next
MsgBox "İşlem tamamdır." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Hasan_32]

EVREN Hocam, Kodlar için teşekkür ederim.

Hocam Selamlar;
Hazırlamış olduğunuz kod dosyasını aldım, kodları inceliyorum kendi yollarımı ve dosya isimlerini yazarak revize edeceğim. Çalışmanız için çok teşekkür ederim.
Hocam bu konuyla ilgili farklı bir çalışma yaptım dosyaları ekte gönderiyorum, inceleyebilirmisiniz. Veri transferini hızlandırabilirmiyiz? Eksiklerimle ilgili önerilerinizin benim için büyük önem taşıdığını bilmenizi isterim. Yaptığım çalışmada sizin yazılarınızda göndermiş olduğunuz kodlardan yararlandım. Konularınızı ve konulara cevaplarınızı takip etmeye devam edeceğim. İyi çalışmalar diliyorum.

 

[Orion1]

Hocam Selamlar;
Hazırlamış olduğunuz kod dosyasını aldım, kodları inceliyorum kendi yollarımı ve dosya isimlerini yazarak revize edeceğim. Çalışmanız için çok teşekkür ederim.
Hocam bu konuyla ilgili farklı bir çalışma yaptım dosyaları ekte gönderiyorum, inceleyebilirmisiniz. Veri transferini hızlandırabilirmiyiz? Eksiklerimle ilgili önerilerinizin benim için büyük önem taşıdığını bilmenizi isterim. Yaptığım çalışmada sizin yazılarınızda göndermiş olduğunuz kodlardan yararlandım. Konularınızı ve konulara cevaplarınızı takip etmeye devam edeceğim. İyi çalışmalar diliyorum.

bir önceki mesajda(35nci mesaj) yoladığım dostayadaki ana dosyayı bu yolladıklarınız içinde kullanabilirisiniz.

 

[aliballi]

Sayın Evren Hocam,

Benimde bir kaç gündür forumda aradığım hatta başlık açtığım bir konum var. ama bir türlü cevap alamadım. benim sorum şu şekilde :

açık olan "veri" kitabındaki n2 hüsresinden itibaren n sütununu aynı klasördeki kapalı olan kdv kitabının c5 hücresinden itibaren c sütununa , k2 hücresindekini d5 sütununa gibi, yaklaşık 6 sütunu kapalı dosyaya aktarmam gerek ama bir türlü yapamadım.

yardımcı olursanız çok sevnirim..

şimdiden teşekkürler..

 

[tmrblt]

kapalı dosyalardan belli hücreleri almak

Merhaba Arkadaşlar,

Her müşterinin bir excel dosyası var örneğin çınarlı klasöründeki müşteriler ve yeni raporlama klasöründeki ÇINARLI RAPORU excel dosyası kapalı olan tüm çınarlı müşterilerinden belli hücreleri alması gerek. Bu düzeneği manual olarak yapabiliyorum örnekte olduğu gibi, bunu otomatikleştirecek yani bir klasörde kaç dosya varsa o dosyaların belli hücrelerindeki bilgileri getirecek.

Yardımcı olabilir misiniz?

Teşekkürler,

 

[Filose]

İyi akşamlar Orion,

Ekte olan Açık dosyadan veri almak istiyorum. Ancak bir özelliği var bir satırdaki verileri alındığında sonraki iki satırdan alınmayacak. Açıklaması üzerinde var. Yardımcı olursanız sevinirim.
Şimdiden teşekkür ederim.