Çözüldü Dosyalar Arası Veri Çekme Msgbox Ekleme

Mtudes · 6 Ara 2022

Merhaba
Aşağıda 4 farklı excel kitabından sorgulama yapıp veri çekiyorum.Veri çekilecek exceller açıkken hataya düşüyor. Hataya düşmeden veri çekilecek exceller açıksa " Veri Çekilecek Dosyalar Açık.Kapatıp Yeniden Deneyin" Msgbox uyarısı vermesini istiyorum.Bu uyarıyı nereye ekleyeceğimi bilemedim.Yardımcı olursanız sevinirim.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ahmet · 6 Ara 2022

Merhaba

Kodun şu kısmında, Numune Kayıt Programı açıksa cikisyap makrosunu çalıştırıyor gözüküyor. Bu makro diğer excel dosyalarının içine koyarsanız sorun kalmıyor sanırım.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Mesaj vermesini isterseniz ise öncesinde bu kodu ekleyebilirsiniz sanırım.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Örnek dosyalar olsa güzel olurdu.

Mtudes · 7 Ara 2022

Ahmet' Alıntı:
Merhaba

Kodun şu kısmında, Numune Kayıt Programı açıksa cikisyap makrosunu çalıştırıyor gözüküyor. Bu makro diğer excel dosyalarının içine koyarsanız sorun kalmıyor sanırım.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Mesaj vermesini isterseniz ise öncesinde bu kodu ekleyebilirsiniz sanırım.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Örnek dosyalar olsa güzel olurdu.

Yardımınız için teşekkür ediyorum Sayın Ahmet .Mesaj veriyor ama mesajdan sonra Resimdeki gibi çıkışyap makrosu çalıştırılamıyor şeklinde bir uyarı veriyor.Bunu nasıl düzeltebilirim?

halily · 7 Ara 2022

Mtudes' Alıntı:
Set rs = con.Execute(sorgu)

Yerine
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde düzenlerseniz excel açık da olsa veri alınabiliyor diye iliyorum

Mtudes · 7 Ara 2022

halily' Alıntı:
Yerine
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde düzenlerseniz excel açık da olsa veri alınabiliyor diye iliyorum

Denediğimde Nesne açık olduğunda işleme izin verilmez uyrarısı veriyor Sayın halily .Dosyalar kapalı olmasına rağmen .

halily · 7 Ara 2022

Ahmet hocamın belirttiği gibi

Ahmet' Alıntı:
Örnek dosyalar olsa güzel olurdu.

Ama anlamadığım şey şu dosyalar kapalıysa neden uyarı versin ki! Sizin yazdığınız dosya açık mı kodunuz hatalı olabilir. O kontrolü kaldırarak dener misiniz?
Not: yine olmazsa lütfen örnek çalışmanızı ekleyin. Dosyalarda bir kaç sahte bilgi olması yeterli

Mtudes · 8 Ara 2022

halily' Alıntı:
Ahmet hocamın belirttiği gibi

Ama anlamadığım şey şu dosyalar kapalıysa neden uyarı versin ki! Sizin yazdığınız dosya açık mı kodunuz hatalı olabilir. O kontrolü kaldırarak dener misiniz?
Not: yine olmazsa lütfen örnek çalışmanızı ekleyin. Dosyalarda bir kaç sahte bilgi olması yeterli

Sayın halily veri çekilecek dosya kapalıyken zaten kod problemsiz çalışıyor.Ama veri çekilecek dosya açıkken veriler getirilemediği için kod hata veriyor.Onun için uyarı mesajı konuldu zaten.Dosya açıkken dosyanın açık olduğuna dair uyarı mesajı veriyor.Burda exit sub benzeri birşey konulabilir mi bilemiyorum.çıkış yap makrosu çalıştırılamıyor deniyor sadece .ona çözüm bulmak istiyorum.

halily · 8 Ara 2022

Mtudes' Alıntı:
Denediğimde Nesne açık olduğunda işleme izin verilmez uyrarısı veriyor Sayın @halily .Dosyalar kapalı olmasına rağmen .

benim "Ama anlamadığım şey şu dosyalar kapalıysa neden uyarı versin ki!" derken kastettiğim yukardaki mesajınızdı. o mesajınızda siz dosyalar kapalı da olsa uyarı veriyor demişsiniz ben de ona binaen anlamadığım şeyi sormuşum.
neyse, benim önerdiğim kodda dosya açıkmı kontrolüne gerek yok. dosya açık da olsa kapalı da olsa verileri alıyor.
kullandığım kod aşağıdadır kendi çalışmanıza uyarlarsınız. gifte de görüleceği üzere örnek olsun diye xls, xlsm ve xlsx türünden 3 dosya için denedim 3 dosya da açıktı ve verileri sorunsuz aldı
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

halily · 8 Ara 2022

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

kitap açıkmı kontrolü için yukardaki yöntemi dener misiniz?
eğer kitap açıksa ismi x değişkenine atanıyor eger x 0 dan büyükse kitap açık uyarısı verilebilir yada doğrudan
Application.Run "'Numune Kayıt Programı.xlsm'!cikisyap" kodu ile kitap kapatılabilir ama kitabın kesin olarak kapatılamama ihtimali var o nedenle önerim işlemden çıkma kodu olur

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü Dosyalar Arası Veri Çekme Msgbox Ekleme

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol