Ado İle Kapalı Dosyadan Veri Almak Hk.

Ado İle Kapalı Dosyadan Veri Almak Hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ado İle Kapalı Dosyadan Veri Almak Hk. (/konu-ado-ile-kapali-dosyadan-veri-almak-hk.html)

Sayfalar: 1 2 3 4 5 6

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - ByChilavert - 27/10/2019

EN AZINDAN BİR KAÇ VERİNİN NASIL ÇEKİLDİĞİNİ GÖRSEM DİĞERLERİNİ YAPMAYA ÇALIŞIRIM YADA FARKLI SAYFALARDAN VERİ ÇEKME KONUSUNDA NASIL BİR ŞEY YAPMAM LAZIM. BİR ÇOK DEFA DENEDİM ÇÖZEMEDİM.

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - berduş - 29/10/2019

çalışmanızla ilgili biraz daha bilgi verebilir misiniz? eklediğiniz personel veri dosyası tek bir personele ait ve buraya ekleyeceğimiz bir buton aracılığıyla mı veriler veritabanı.xlsx dosyasına aktarılacak yoksa tek seferde birden çok, farklı personele ait, Excel dosyası seçilecek ve toplu olarak mı aktarılacak?
not: ayrıca sayın @C*e*l*o*y*c*e ye katılıyorum Access ile daha kolay olay olacağı kanaatindeyim

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - ByChilavert - 29/10/2019

(29/10/2019, 11:53)berduş yazdı: çalışmanızla ilgili biraz daha bilgi verebilir misiniz? eklediğiniz personel veri dosyası tek bir personele ait ve buraya ekleyeceğimiz bir buton aracılığıyla mı veriler veritabanı.xlsx dosyasına aktarılacak yoksa tek seferde birden çok, farklı personele ait, Excel dosyası seçilecek ve toplu olarak mı aktarılacak?
not: ayrıca sayın @C*e*l*o*y*c*e ye katılıyorum Access ile daha kolay olay olacağı kanaatindeyim

Merhaba
Evet gönderdiğim sadece bir tane personele aittir. Ekte gönderdiğim resimde belirttiğim şekilde personelin işe giriş tarihine göre her personel için Excel dosyası oluşturuyorum. Personele ait bilgilerini girip çıktı alıyorum. eskiye yönelik bilgileri tek tek açıp kopya yapıştır yapmaktansa bu bilgileri toplu şekilde tek bir excele yada accesse aktarmak istiyorum. Programcılık bilgim olmadığı için Access tarzı programla yapamıyorum. Doldurduğum sayfa ve bilgileri ilk mesajımda sarı renkte belirttim.

[img=800x600] [Resim: do.php?img=9289]

[/img]

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - berduş - 29/10/2019

ben sadece temel şablonu oluşturup bir kaç hücre için yaptım geriye kalanları (toplam 162 hücre) örneğe bakarak yapabilirsiniz
makro kodu olarak kullanabilirsiniz
dilerim işinize yarar

Sub VeriKopyala()

Dim WbKaynak, WbKaynak2, WbKaynak3, WbKaynak4 As Worksheet

Dim WbHedef As Worksheet

Dim SonSatir As Long



  '

  Workbooks.Open ActiveWorkbook.Path & "\Veri Tabanı.xlsx"

  Set WbKaynak = ThisWorkbook.Worksheets("VERİ GİRİŞİ")

  Set WbKaynak2 = ThisWorkbook.Worksheets("09-Personel_Envanteri")

  '... diğer sayfalar

  Set WbHedef = Workbooks("Veri Tabanı.xlsx").Worksheets("Veri")

    

   

  '2. Find first blank row in the destination range based on data in Column A

  'Offset property moves down 1 row

  SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "B").End(xlUp).Offset(1).Row

If SonSatir = 3 Then x = 4 Else x = SonSatir



WbHedef.Range("b" & x).Value = WbKaynak.Range("G4").Value

WbHedef.Range("c" & x).Value = WbKaynak.Range("G5").Value

WbHedef.Range("d" & x).Value = WbKaynak.Range("G6").Value

WbHedef.Range("e" & x).Value = WbKaynak.Range("G7").Value

'... diğer hücreler

'hy Not: ilk sayfadaki bilgiler bitince kitabı kapatıp tekrar açmak gerek yada 4 ( kaç sayfadaki veri alınacaksa o kadar)farklı kaynak tanımlanmalı

'hedef sabit ama kaynak değişken olduğu için sayfa değiştikçe WbKaynak,WbKaynak2,WbKaynak3... şeklinde gitmeli

End Sub

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - ByChilavert - 30/10/2019

(29/10/2019, 19:15)berduş yazdı: ben sadece temel şablonu oluşturup bir kaç hücre için yaptım geriye kalanları (toplam 162 hücre) örneğe bakarak yapabilirsiniz
makro kodu olarak kullanabilirsiniz
dilerim işinize yarar

Sub VeriKopyala()

Dim WbKaynak, WbKaynak2, WbKaynak3, WbKaynak4 As Worksheet

Dim WbHedef As Worksheet

Dim SonSatir As Long



  '

  Workbooks.Open ActiveWorkbook.Path & "\Veri Tabanı.xlsx"

  Set WbKaynak = ThisWorkbook.Worksheets("VERİ GİRİŞİ")

  Set WbKaynak2 = ThisWorkbook.Worksheets("09-Personel_Envanteri")

  '... diğer sayfalar

  Set WbHedef = Workbooks("Veri Tabanı.xlsx").Worksheets("Veri")

    

   

  '2. Find first blank row in the destination range based on data in Column A

  'Offset property moves down 1 row

  SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "B").End(xlUp).Offset(1).Row

If SonSatir = 3 Then x = 4 Else x = SonSatir



WbHedef.Range("b" & x).Value = WbKaynak.Range("G4").Value

WbHedef.Range("c" & x).Value = WbKaynak.Range("G5").Value

WbHedef.Range("d" & x).Value = WbKaynak.Range("G6").Value

WbHedef.Range("e" & x).Value = WbKaynak.Range("G7").Value

'... diğer hücreler

'hy Not: ilk sayfadaki bilgiler bitince kitabı kapatıp tekrar açmak gerek yada 4 ( kaç sayfadaki veri alınacaksa o kadar)farklı kaynak tanımlanmalı

'hedef sabit ama kaynak değişken olduğu için sayfa değiştikçe WbKaynak,WbKaynak2,WbKaynak3... şeklinde gitmeli

End Sub

Zaman ayırıp ilgilendiğin için teşekkür ederim. Excel dosyasını klasör olarak göstermem mi gerekiyor. yoksa Veri Tabanı.xlsx ile aynı dosya içinde mi olması gerekiyor.

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - berduş - 30/10/2019

(29/10/2019, 19:15)berduş yazdı: Workbooks.Open ActiveWorkbook.Path & "\Veri Tabanı.xlsx"

burada aynı klasör olarak tanımlanmış ama siz gerçek konumunu yazabilirsiniz.

Workbooks.Open  "d:\masaüstü\Veri Tabanı.xlsx" 'gibi