-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
excel ve msgbox çıktığını anlama
- Konbuyu başlatan fcw1031
- Başlangıç tarihi
S
Skorpiyon
Misafir
Sayın fcw1031,
Tamam mesajının nereye ait olduğunu anlamanın en iyi yolu, kendi kodlarınızdaki TAMAM diye geçen mesajların içeriğini değiştirmektir.
Örnek bir dosya eklemeniz çözümü kolaylaştıracaktır.
Tamam mesajının nereye ait olduğunu anlamanın en iyi yolu, kendi kodlarınızdaki TAMAM diye geçen mesajların içeriğini değiştirmektir.
Örnek bir dosya eklemeniz çözümü kolaylaştıracaktır.
hiç bir msgbox yok kod içerisinde, activeworkbook.refreshall ile çektiğimde veriyi herhangi bir siteye ulaşamadığında www... adresten veri alamadı gibi bir hata yazıyor ekrana.tamam'a basınca devam ediyor. Benim niyetimde kod içerisinde sistemden msgbox çıkarsa kod içerisinde tamam demek.
S
Skorpiyon
Misafir
Sayın fcw1031,
Örnek bir dosya ekleyebilir misiniz.
Örnek bir dosya ekleyebilir misiniz.
Ekledim, benzer bir örnek yazdım yeniden, tahminen https'ten kaynaklı ilk başta hata veriyor başlat dedikten sonra,daha sonraki refreshlerinde hata vermiyor.tekrar exceli sıfırdan açın yine verir. Ve diğer bağlantıdan kaynaklı msgboxlar çıkıyor, bunun gibi. Bu tarz hataları kod içerisinde geçmek, programı sürekli kılmak derdim.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Makroya hata kodu ekledim ve iki kere döngüye aldım gayet güzel çalışıyor.
ilginize teşekkürler ama bağlantıyı code içerisinde sağlamak yerine dış veri al kullanarak, web yenilemesinide activeworkbook.refreshall ile yapmak derdim.
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Bunun sorun olacağını düşünmüyorum ne zaman verilere bakmak isterseniz düğmeye tıklamanız yeterli
açıkcası internette buna benzer bir sürü kod var, kullanmama amacım ilk önce hız,yazımda da belirttiğim gibi sadece örnek kod yazdım benzer.7-8 tane farklı web sayfasından güncelleme var toplamda ve açılan web sayfasının sadece belirli bir sayısal yeri lazım(örnekteki çok basit) full almak yerine, zaten amaç veriyi bilgisayar başında sürekli tıklayarak almak değil, bilgisayar başında olmadan örneğin 7-8 snlik peryotlarla bu verileri sürekli çekmek,ekranda exceldeki hatalar çıkmadan
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
1 nolu mesajınız.
1 nolu mesajınızla 9 nolu meajınızdaki sorularınız farklı
1 nolu mesajınızdaki soruda uyarı mesajının gelmemesini istiyorsunuz alternatif kod ve dosya eklemiştim. 9 nolu mesajınızda buna benzer bir sürü güncelleme olduğunu söylüyorsunuz ve 7-8 saniyede güncelleme istiyorsunuz bu bilgisayarı gereksiz yere ağırlaştıracaktır ve farklı excel dosyasındada çalışmanızı engelliyecektir.
Bana kalırsa doğru olan veri ihtiyacı olduğunda makroyu çalıştırmanız diğer türlü 7-8 sn güncelleşecek veriye bu kadar kısa zamanda devamlı bakmak bir hayli zor olacağını düşünüyorum.
Size iyi çalışmalar diliyorum.
1 nolu mesajınızla 9 nolu meajınızdaki sorularınız farklı
1 nolu mesajınızdaki soruda uyarı mesajının gelmemesini istiyorsunuz alternatif kod ve dosya eklemiştim. 9 nolu mesajınızda buna benzer bir sürü güncelleme olduğunu söylüyorsunuz ve 7-8 saniyede güncelleme istiyorsunuz bu bilgisayarı gereksiz yere ağırlaştıracaktır ve farklı excel dosyasındada çalışmanızı engelliyecektir.
Bana kalırsa doğru olan veri ihtiyacı olduğunda makroyu çalıştırmanız diğer türlü 7-8 sn güncelleşecek veriye bu kadar kısa zamanda devamlı bakmak bir hayli zor olacağını düşünüyorum.
Size iyi çalışmalar diliyorum.
Öncelikle ilginiz için teşekkürler, 3. ve 5.mesajda örnek isteyen arkadaşlarımız için kısa örnek bir kod yazdığımı ve kodu refreshall ile yaptığımı belirttim. Şu an mevcutta orjinal yazdığım excellde dediğim sıkıntıdan başka bir sıkıntı yok, kod çalışıyor 7-8snde total işlemi bitiriyor(7 farklı web sayfası),gelen veriye göre farklı hesaplar yapıyor ve sürekli peryot aynı şekil devam ediyor. Öyle fazla bir bilgisayarı zorlama gibi durumu yok. Anlık kritik bir iş olduğu için sürekli güncellemesi gerekmekte, amaçta bilgisayar başında olunmadığında web sayfasından veriyi alamadığında(yedisinden herhangi biri) çıkan uyarıya sadece ok demek, okye basınca kod devam ediyor zaten . "on error resume next" gibi birşey lazım.
Son düzenleme:
S
Skorpiyon
Misafir
Sayın fcw1031,
Siz zaten kodu vermişsiniz. "On error resume next" komutu sayfa güncelleme yapılamadığı zaman mesaj çıkmasını engelleyecektir.
Siz zaten kodu vermişsiniz. "On error resume next" komutu sayfa güncelleme yapılamadığı zaman mesaj çıkmasını engelleyecektir.
Ne yazıkki iş yapmıyor o kod, acaba activeworkbook.refreshall sayesinde excellde 4-5 sn güncelleme yaptığından mı es geçiyor,"On error resume next"e denk gelmeden diğer kodları mı işliyor arka planda.
S
Skorpiyon
Misafir
İmkansız. Kodu hangi modüle yazıyorsunuz ?
On Error Resume Next
ActiveWorkbook.RefreshAll
On Error Resume Next
hem üstüne hem altına yazdım aynı makro içerisinde aynı modülde denemek için ama olmadı
S
Skorpiyon
Misafir
Kodun 1 tane olması yeterli zaten. Ama olmuyorsa,yenilemenin tekrarlama aralığını 7-8 sn. demiştiniz. 15-20 sn. yaparak bir deneyin. Yani güncelleme bitsin ve aradan 1-2 sn. geçmesine izin verin ve bir de o şekilde deneyin.
Son düzenleme:
teşekkürler ilginiz için, peki belirli bir web sayfasında gözüken sadece o veriyi almak mümkün mü dış veri alsız?
dediğiniz gibi biraz süreci uzattım,bir yarım saat izliyeyim bakayım durum ne
- Katılım
- 18 Ocak 2008
- Mesajlar
- 12,878
- Excel Vers. ve Dili
- 2003 excell türkçe
ve
2007 excell türkçe
Ben bu konudaki sorunuzla ilgili kodu birazcık kısalttım ve süreyi iki saniyeden beş saniyeye çıkardım.
Kod:
Option Explicit
Dim ileri
Sub calıstır()
verial
End Sub
Sub durdur()
On Error Resume Next
Application.OnTime ileri, "verial", , False
Dim qt As QueryTable
For Each qt In ActiveSheet.QueryTables
qt.Delete
Next qt
End Sub
Sub verial()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://sube.sekerbank.com.tr/web/servlet/SekerbankServlet?service=SBkurlarOranlar.ButundovizKurlariListele" _
, Destination:=Range("A1"))
.Name = "SekerbankServlet?service=SBkurlarOranlar.ButundovizKurlariListele"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
On Error Resume Next
.Refresh BackgroundQuery:=False
End With
ileri = Now + TimeValue("00:00:05")
Application.OnTime ileri, "verial"
End Sub