[Yardım]  Kapalı excel dosyasından veri alma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kapalı excel dosyasından veri alma

İleti#1)  mutu54 » 10 Oca 2019 15:19

Sub GetDataFromClosedWorkbook(SourceFile As String, SourceRange As String, _
TargetRange As Range, IncludeFieldNames As Boolean)
' requires a reference to the Microsoft ActiveX Data Objects library
' if SourceRange is a range reference:
' this will return data from the first worksheet in SourceFile
' if SourceRange is a defined name reference:
' this will return data from any worksheet in SourceFile
' SourceRange must include the range headers
'
Dim dbConnection As ADODB.Connection, rs As ADODB.Recordset
Dim dbConnectionString As String
Dim TargetCell As Range, i As Integer
dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & "ReadOnly=1;DBQ=" & SourceFile
'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=C:\MyExcel.xls;

Set dbConnection = New ADODB.Connection
On Error GoTo InvalidInput
dbConnection.Open dbConnectionString ' open the database connection
Set rs = dbConnection.Execute("[" & SourceRange & "]")
Set TargetCell = TargetRange.Cells(1, 1)
If IncludeFieldNames Then
For i = 0 To rs.Fields.Count - 1
TargetCell.Offset(0, i).Formula = rs.Fields(i).Name
Next i
Set TargetCell = TargetCell.Offset(1, 0)
End If
TargetCell.CopyFromRecordset rs
rs.Close
dbConnection.Close ' close the database connection
Set TargetCell = Nothing
Set rs = Nothing
Set dbConnection = Nothing
On Error GoTo 0
Exit Sub
InvalidInput:
MsgBox "The source file or source range is invalid!", _
vbExclamation, "Get data from closed workbook"
End Sub
Sub cagir()
Debug.Print ActiveWorkbook.FullName
GetDataFromClosedWorkbook "C:\Users\BELALAN\Desktop\PersonelÖzlükTakip.xlsm", "B2:C100", ActiveCell, True
GetDataFromClosedWorkbook "C:\Users\BELALAN\Desktop\resim açma\Yeni klasör\Kitap1.xlsm", "liste", Worksheets("Sayfa1").Range("A1"), True
End Sub
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#2)  mutu54 » 10 Oca 2019 15:21

Yukarıaki kod kümesi ile yapmak istediğim belirlediğim hücre değerine göre belirlediğim kolondan ona ait veriyi alıp diğer excel dosyasında belirlediğim hücreye getirmesini sağlamak ama liste olarak alabiliyorum ve toplu veri geliyor yardım edebilirmisiniz
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#3)  kerevizone » 10 Oca 2019 15:40

Kod: Tümünü seç
Sub kayıtal()
Dim Con As Object, Rs As Object, Sorgu As String
    Set Con = CreateObject("Adodb.Connection")
    Set Rs = CreateObject("Adodb.RecordSet")
    Worksheets("Sayfa1").Range("B2:J" & Rows.Count).ClearContents
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        "C:\Users\Sanal7\Desktop\al1.xlsx" & ";extended properties=""excel 12.0;hdr=yes"""
        Sorgu = "Select * from [Sayfa1$B1:J35]"
        Rs.Open Sorgu, Con, 1, 1
        Sheets("Sayfa1").Range("B2").CopyFromRecordset Rs
       Rs.Close: Con.Close
Set Con = Nothing: Set Rs = Nothing: Sorgu = ""
End Sub


Yukarıdaki kodlar ile istediğim kapalı Excel sayfasından istediğim alanı alıp kendi Excel sayfama çekebiliyorum.Biraz daha geliştirerek istediğiniz şekle getirebilirsiniz.Umarım işinizi görür.
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Kapalı excel dosyasından veri alma

İleti#4)  mutu54 » 10 Oca 2019 15:42

Peki belli kritere göre yapabiliyormuyuz bunu
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Kapalı excel dosyasından veri alma

İleti#5)  mutu54 » 10 Oca 2019 15:43

benim yazdığım kodlarla alabiliyorum fakat sadece belirlediğim aralığı getirrebiliyorum benim istediğim belirlediğim hücreye göre tarama yapacak onun karşılığında istediğim veriyi alacak
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#6)  kerevizone » 10 Oca 2019 15:51

Sorgu = "Select * from [Sayfa1$B1:J35]" Yazan kısım geliştirilebilir ise bu mümkün sanırım.Ben bu şekilde kullanıyorum.Biraz araştırılır ise olabilir. Üstadlar ise daha iyi olur.
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kapalı excel dosyasından veri alma

İleti#7)  mutu54 » 10 Oca 2019 16:01

eyvallah kardeşim çok sağolasın
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#8)  şahin » 10 Oca 2019 17:28

Sorun ne
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 472
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Kapalı excel dosyasından veri alma

İleti#9)  mutu54 » 10 Oca 2019 17:38

sorun belirlediğim bir hücrenin değerini gidecek dış sayfada arayacak ve bana onun istediğim bir özelliğini getirecek
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#10)  mutu54 » 10 Oca 2019 17:41

kısaca belirlediğim şartlara göre veriyi gidecek arayacak bulacak getirecek
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#11)  Ali ÖZ » 10 Oca 2019 17:52

Kod: Tümünü seç
veri = range("a1").value
veri1 = range("b1").value
Sorgu = "Select alanadi,alanadi1,alanadi2 from [Sayfa1] where alanadi = '" & veri & "' and alanadi1 = '" & veri1 & "' "
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9592
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Kapalı excel dosyasından veri alma

İleti#12)  mutu54 » 10 Oca 2019 18:07

ali hocam doğru mu anladım bilmiyorum ama anladığım kadarıyla alan adını yazdığım alanda b1 hücresiyle eşleşen veriyi mi getiriyor bu kodlar yoksa b1 hücresine verdiğim değeri mesela 2. sutunda tarayıp bulup o değerin bulunduğu satırın mesela 5. hücresini istiyorum onu mu getiriyor tam anlayamadım benim istediğim tam olarak b1 hücresinin değerini mesela 2. sütunun hepsinde arasın ve 5. sütunda mesela doğum tarihi bölümü var bende o doğum tarihini veriyi çekeceğim sayfadaki A1 hücresine yazacağm sadece onu getirsin istiyorum
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#13)  Ali ÖZ » 10 Oca 2019 18:26

Kod: Tümünü seç
aranan= range("a1").value
Sorgu = "Select sutunadi(gelmesini istediğiniz sütun) from [Sayfa1] where aranacaksutun(aramanın yapılacağı sütun) = '" & aranan & "'"
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9592
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Kapalı excel dosyasından veri alma

İleti#14)  mutu54 » 10 Oca 2019 18:34

ali hocam çalıştıramadım kodları kusura bakmayın sizi de rahatsız ediyorm ama
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#15)  mutu54 » 10 Oca 2019 18:36

tek bir hücrenin verisini getiriyor dimi hocam
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#16)  kerevizone » 10 Oca 2019 19:20

Ekteki dosya benim bilgisayarımda çalıştı.Ali Beye kodlar için teşekkür ederim.Aramak istediğiniz iki veri A1 ve A2 sütununda almak istediğiniz yeri kendinegöre uyarlaabilirsiniz.ÖRnek den1 ve Muta54 yazarsanız 2 verinin de geçtiği satırı getirir.Kendinize göre uyarlarsanız istediğiniz sonucu alırsınız.Örnek dosya eklerseniz yetkililer daha hızlı ve kolay cevap verebilirler.Bunu yapsanız bile tarih ve sayı aratacağınız zaman veri türlerini değiştirmeniz gerekir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Kapalı excel dosyasından veri alma

İleti#17)  mutu54 » 10 Oca 2019 19:31

hocam hata alıyorum access veri tabanı altyapısı sayfa 1 nesnesini bulamadı die
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#18)  kerevizone » 10 Oca 2019 19:35

Module1 içerisindeki klasör yolunu kendinize göre düzeltirseniz çalışır.Bende herhangi bir sorun çıkarmıyor.
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Kapalı excel dosyasından veri alma

İleti#19)  mutu54 » 10 Oca 2019 19:56

hocam çalışıyor fakat sadece mutu56'yı getiriyor bu mutu54 yaptığım zman bişey getirmiyor
Kullanıcı avatarı
mutu54
Yeni Başlamış
 
Kayıt: 10 Eyl 2018 20:05
Meslek: ön muhasebe
Yaş: 27
İleti: 51
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya /adapazarı

Cevap: Kapalı excel dosyasından veri alma

İleti#20)  kerevizone » 10 Oca 2019 20:03

Kod: Tümünü seç
veri = range("a1").value
veri1 = range("a2").value
Sorgu = "Select alanadi,alanadi1,alanadi2 from [Sayfa1] where alanadi = '" & veri & "' and alanadi1 = '" & veri1 & "' "


Buradaki kod hem a1 hende a2 olan veriyi bulur.

Kod: Tümünü seç
Sorgu = "Select alanadi,alanadi1,alanadi2 from [Sayfa1] where alanadi1 = '" & veri1 & "'"


Bu sorguda sadece a2 deki veriyi arar.
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 17:10
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, hamidgf ve 3 misafir

Bumerang - Yazarkafe