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

[ibrahim16]

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

 

[Orion1]

Buyurun.
A1 hücresindeki değeri alıyor.

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

 

[ibrahim16]

Buyurun.
A1 hücresindeki değeri alıyor.

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

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

 

[Orion1]

yol = thisworkbook.path
thisworkbook.path yerine dosyanın bulunduğu yolu yazınız.

 

[ibrahim16]

yol = thisworkbook.path
thisworkbook.path yerine dosyanın bulunduğu yolu yazınız.

malesef yapamadım
veriyi almak istediğim yol şu. harddisk d. dükkan hesaplar. derya koltuk. derya koltuk.xlsx. sayfa4. hücre T56

 

[Orion1]

malesef yapamadım
veriyi almak istediğim yol şu. harddisk d. dükkan hesaplar. derya koltuk. derya koltuk.xlsx. sayfa4. hücre T56

O prosedürü silin.Aşağıdakini yapıştırın.

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

 

[ibrahim16]

O prosedürü silin.Aşağıdakini yapıştırın.

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

malesef yine olmadı
yoldaki türkçe karakterler yada boşluklarmı sorun yapıyor acaba

 

[Orion1]

malesef yine olmadı
yoldaki türkçe karakterler yada boşluklarmı sorun yapıyor acaba

Çalıştırınca ne oluyor!

 

[ibrahim16]

Çalıştırınca ne oluyor!

hücrede sadece mavi olarak Sub yazıyor

 

[Orion1]

Aşağıdaki linkteki dosyayı rardan dışarı çıkarın ve sayfadaki butona basın.

DOSYAYI İNDİR

hücrede sadece mavi olarak Sub yazıyor

..

 

[ibrahim16]

Aşağıdaki linkteki dosyayı rardan dışarı çıkarın ve sayfadaki butona basın.

DOSYAYI İNDİR
..

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

 

[Orion1]

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

Önce makroları aktif etmek gerekiyor.
Siz güvenlik düzeyini düşürüp,makroları etkinleştirdinizmi?
Bu işlemi 1 kere yapmanız gerekiyor.

 

[ibrahim16]

Önce makroları aktif etmek gerekiyor.
Siz güvenlik düzeyini düşürüp,makroları etkinleştirdinizmi?
Bu işlemi 1 kere yapmanız gerekiyor.

azönce yaptım değişen bişey yok

 

[ibrahim16]

ş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?

 

[Orion1]

ş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?

Formül ile yapmışsınız.Formülde olur.
Ayrıca daha önce verdiğiniz yol ile bu yol farklı.Oradanda çalışmaz.Ama siz sanırım makroları etkinleştirmemişsiniz.

 

[ibrahim16]

Formül ile yapmışsınız.Formülde olur.
Ayrıca daha önce verdiğiniz yol ile bu yol farklı.Oradanda çalışmaz.Ama siz sanırım makroları etkinleştirmemişsiniz.

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

 

[Orion1]

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

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.

 

[ibrahim16]

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

 

[Orion1]

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

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.

 

[ibrahim16]

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.

vb editörü nedir? bilelimde bide öyle deniyim