Merhaba arkadaslar,
Eger excel calisiyor ise istedigim bir dosyayi acik olan excel ile acmak eger acik degilse exceli calistirip istedigim bir dosyayi acmak istiyorum,
bu tarz bir component buldum bu component ile excel ile dosya acabiliyorum fakat her dosya actigimda exceli yeniden calistiriyor ve dolayisi ile excel dosyalari arasinda sayfa tasimam mumkun olmuyor,
Burhan Cakmak
Acik olan excel programinda istenilen bir dosyayi acmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 143
- Kayıt: 15 Haz 2003 08:33
- Konum: Almaty, Kazakhstan
Re: Acik olan excel programinda istenilen bir dosyayi acmak
exceli baştan çalıştırması iyidir. excel açıksa aç dediğin zaman ide içinde test edemezsin.Burhan_ast yazdı:Merhaba arkadaslar,
Eger excel calisiyor ise istedigim bir dosyayi acik olan excel ile acmak eger acik degilse exceli calistirip istedigim bir dosyayi acmak istiyorum,
bu tarz bir component buldum bu component ile excel ile dosya acabiliyorum fakat her dosya actigimda exceli yeniden calistiriyor ve dolayisi ile excel dosyalari arasinda sayfa tasimam mumkun olmuyor,
Burhan Cakmak
bunun için component kurmak gerekli değil.
http://www.sissdelphicenter.ch
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Ben yazılımlarımda şöyle kullanıyorum. Senin istediğin de bu sanırım...
Böylece procedure sonunda BizActik true ise Excel'in işi bitince kapatıyorum False ise yani hali hazırda açık Excel'i kullanmışsak o zaman WorkSheet'imizi (sayfamızı) kapatıyorum.
Kod: Tümünü seç
BizActik := False;
try
xExcel := GetActiveOleObject('Excel.Application');
except
xExcel := CreateOleObject('Excel.Application');
xExcel.Workbooks.Open(xlsFile);
xExcel.Visible := True;
SetForegroundWindow(Application.Handle);
BizActik := True;
end;
arman usta bu kod delphi ide içinde çalışıyormu debug ederken yani?
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
- Bu koda özel değil genel bir uygulama olarak Try .. Except bloğu içeren kodlarda Delphi IDE içinden Try işleminde başarısızlık olursa delphi IDE BREAK yaptırır. Sen buna continue butonuna basarak devam edebilir ve EXCEPT bloğunun devreye girerek görev yapmasını sağlayabilirsin.
- Diğer yadan Project Options kısmından DEBUG olayında Warning olanları pass geç de diyebilirsin.
- Tercih senin.
- Diğer yadan Project Options kısmından DEBUG olayında Warning olanları pass geç de diyebilirsin.
- Tercih senin.
kod break değil üstad. daha farklı bir hata oluşuyor . inceleyip detayını yazarım. ama excel olesi cidden sorunlu. misal ole den excel açıyorum. sonra bir daha açtığımda excel açık ama veri penceresi yok. full screen yapıp geri alıyorum geliyor.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
- Windows açık olduğu süre içerisinde programdan Excel.Application oluşturup daha VISIBLE özelliğini TRUE yapmadan önce program kırılırsa açmış olduğunuz EXCEL gizli olarak arka fonda kalır. Bunu her yaptığınız defada yeni bir EXCEL daha açılır ve yine VISIBLE yapamadan program kırılırsa o da öyle kalır.
- CTRL+ALT+DELETE basıp Windows Task Manager (Görev Yöneticisi) açın ve açık / çalışıyor olan EXCEL threadlarini elle kapatın.
- CTRL+ALT+DELETE basıp Windows Task Manager (Görev Yöneticisi) açın ve açık / çalışıyor olan EXCEL threadlarini elle kapatın.