• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Başka klasördeki exel dosyasından veri alma

I

ibrahim16

Katılım
24 Temmuz 2017
Mesajlar
16
Excel Vers. ve Dili
2017 türkçe
merhabalar sitede araştırdım ama bulamadım.
bir exel sayfamız var ordaki bir hücreye başka bir klasördeki exel sayfasının istediğimiz bir hücresindeki veriyi nasıl çekeriz
 
Buyurun.
A1 hücresindeki değeri alıyor.
Kod: 
Sub verial59()
Dim yol As String, dosya As String
yol = ThisWorkbook.path
dosya = "Kitap1.xlsx"
Range("A1").Value = Application.ExecuteExcel4Macro("'" & yol & "\[" & dosya & "]Sayfa1'!R1C1")
End Sub
 
Orion1' Alıntı:
Buyurun.
A1 hücresindeki değeri alıyor.
Kod: 
Sub verial59()
Dim yol As String, dosya As String
yol = ThisWorkbook.path
dosya = "Kitap1.xlsx"
Range("A1").Value = Application.ExecuteExcel4Macro("'" & yol & "\[" & dosya & "]Sayfa1'!R1C1")
End Sub
Genişletmek için tıkla ...

teşekkürler fakat şöyle bir durum var verileri alacağımız hücre bilgisayarın yerel disk D içinde bikaç klasör içeride. bu yolu tam olarak nereye yazıyoruz
 
yol = thisworkbook.path
thisworkbook.path yerine dosyanın bulunduğu yolu yazınız.:cool:
 
ibrahim16' Alıntı:
malesef yapamadım
veriyi almak istediğim yol şu. harddisk d. dükkan hesaplar. derya koltuk. derya koltuk.xlsx. sayfa4. hücre T56
Genişletmek için tıkla ...

O prosedürü silin.Aşağıdakini yapıştırın.:cool:
Kod: 
Sub verial59()
Dim yol As String, dosya As String
yol = "D:\dükkan hesaplar\derya koltuk"
dosya = "derya koltuk.xlsx"
Range("A1").Value = Application.ExecuteExcel4Macro("'" & yol & "\[" & dosya & "]Sayfa4'!R56C20")
End Sub
 
Orion1' Alıntı:
O prosedürü silin.Aşağıdakini yapıştırın.:cool:
Kod: 
Sub verial59()
Dim yol As String, dosya As String
yol = "D:\dükkan hesaplar\derya koltuk"
dosya = "derya koltuk.xlsx"
Range("A1").Value = Application.ExecuteExcel4Macro("'" & yol & "\[" & dosya & "]Sayfa4'!R56C20")
End Sub
Genişletmek için tıkla ...

malesef yine olmadı
yoldaki türkçe karakterler yada boşluklarmı sorun yapıyor acaba
 
Orion1' Alıntı:
Aşağıdaki linkteki dosyayı rardan dışarı çıkarın ve sayfadaki butona basın.:cool:

DOSYAYI İNDİR
..
Genişletmek için tıkla ...

değişen bişey olmadı
butona tıkladığımda. dosya59.xlsm!verial59 makrosu çalıştırılamıyor. makro bu çalışma kitabında olmayabilir veya tüm makrolar devre dışı bırakılmış olabilir.
yazan bir pencere çıktı onada tamam dedim
 
ibrahim16' Alıntı:
değişen bişey olmadı
butona tıkladığımda. dosya59.xlsm!verial59 makrosu çalıştırılamıyor. makro bu çalışma kitabında olmayabilir veya tüm makrolar devre dışı bırakılmış olabilir.
yazan bir pencere çıktı onada tamam dedim
Genişletmek için tıkla ...

Önce makroları aktif etmek gerekiyor.
Siz güvenlik düzeyini düşürüp,makroları etkinleştirdinizmi?
Bu işlemi 1 kere yapmanız gerekiyor.
 
şunu yazdım oldu
='D:\diğer pc tümü\Dükkan Hesaplar\Firmalar\Derya Koltuk\[Derya-Koltuk-2017.xlsx]AĞUSTOS.17'!T56

ilerde sıkıntı yaparmı acaba?
 
ibrahim16' Alıntı:
şunu yazdım oldu
='D:\diğer pc tümü\Dükkan Hesaplar\Firmalar\Derya Koltuk\[Derya-Koltuk-2017.xlsx]AĞUSTOS.17'!T56

ilerde sıkıntı yaparmı acaba?
Genişletmek için tıkla ...

Formül ile yapmışsınız.Formülde olur.:cool:
Ayrıca daha önce verdiğiniz yol ile bu yol farklı.Oradanda çalışmaz.Ama siz sanırım makroları etkinleştirmemişsiniz.:cool:
 
Orion1' Alıntı:
Formül ile yapmışsınız.Formülde olur.:cool:
Ayrıca daha önce verdiğiniz yol ile bu yol farklı.Oradanda çalışmaz.Ama siz sanırım makroları etkinleştirmemişsiniz.:cool:
Genişletmek için tıkla ...

yani bu şekilde formulle kullansamda sorun olurmu sıkıntı yaparmı.
dediğin gibi makrolarıda etkinleştirdim ama verdiğin kodlar yine çalışmadı.
bu arada bıkmadan usanmadan uğraşıyosun çok sağol
 
ibrahim16' Alıntı:
yani bu şekilde formulle kullansamda sorun olurmu sıkıntı yaparmı.
dediğin gibi makrolarıda etkinleştirdim ama verdiğin kodlar yine çalışmadı.
bu arada bıkmadan usanmadan uğraşıyosun çok sağol
Genişletmek için tıkla ...
Benim verdiğim kod siz makroları etkinleştirdikten sonra çalıştırdığında ne hata veriyor.Neler oluyor?
Bu kullandığınız formül işe yarar.Ama sanırım diğer dosyanında açık olması gerekiyor.Birde diğer dosyayı kapatarak bir deneyin isterseniz.:cool:
 
verdiğin kodu kullandığımda hücrede sadece mavi olarak sub yazıyor.
bu kullandığım formül veriyi çektiği sayfa açık olmasada çalışıyor. zaten amacım buydu her müşterinin hesabı için ayrı bir exel sayfamız var. bu son oluşturduğumuz sayfada bütün müşterilerin sayfasından toplam bakiyenin olduğu hücreden verileri çekiyor. yani bu exel sayfasından hangi müşterinin nekadar borcu var görebiliyoruz, bütün alacaklarımın nekadar olduğunu görebiliyorum vs. güzel oldu böyle
 
ibrahim16' Alıntı:
verdiğin kodu kullandığımda hücrede sadece mavi olarak sub yazıyor.
bu kullandığım formül veriyi çektiği sayfa açık olmasada çalışıyor. zaten amacım buydu her müşterinin hesabı için ayrı bir exel sayfamız var. bu son oluşturduğumuz sayfada bütün müşterilerin sayfasından toplam bakiyenin olduğu hücreden verileri çekiyor. yani bu exel sayfasından hangi müşterinin nekadar borcu var görebiliyoruz, bütün alacaklarımın nekadar olduğunu görebiliyorum vs. güzel oldu böyle
Genişletmek için tıkla ...

Benim verdiğim kodları vb editörü açıp oraya yapıştıracaksınız.Hücreye değil.
Neyse sorun çözülmüş.
İyi çalışmalar.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst