• Web sitemize destek olmak, Hazır Excel Dosyaları indirmek ve sitemizi reklamsız kullanmak için VIP Üyelik Satın alabilirsiniz.
    Hesabını VIP Üyeliğe Yükselt

Çözüldü İnternet Sitesinde Veri Çekme (hız)

REKLAM

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

mslmyre

Yeni Üye
Kullanıcı

Reputation:

Yazmış olduğum kodumu mshtml ve xmlreques haline çevirmek istiyorum, yardımcı olabilecek varsa sevinirim, iyi bayramlar.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar

  • Veri.xlsm
    38.2 KB · Görüntüleme: 12
Çözüm
Orjinal kodunuz yaklaşık 170 satır. 18 saniyede çalışıyor. 98. satırdan sonraki kısım herhangi bir bilgi getirmiyor. Bu satırdan sonrasını silip yukarda belirttiğim değişiklikler yapıldığında 9 saniyede çalışıyor.

Kod:
ie.navigate Sheets("sayfa1").Range("a2").Value

Ayrıca internetim yavaş olduğu için buradaki beklemeyide 0.5 saniyeden 1.5 saniyeye çıkarttım:

Kod:
basla = Timer: While (Timer - basla) < 1.5: Wend
For ğ = 0 To ie.document.getelementsbyclassname("posNormal").Length - 1
'sitedeki verileri sayfaya çekme
Sheets("sayfa1").Cells(ğ + 3, 13).Value = ie.document.getelementsbyclassname("posNormal")(ğ).innertext
With Sayfa1
 .Hyperlinks.Add Anchor:=.Cells(ğ + 3, 14), _...

Qene

Yeni Üye
Kullanıcı
Versiyon
  1. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. İngilizce

Reputation:

Merhaba.. mshtml' e geçmeden önce mevcut kodların düzenlenmesi küçük bir hız artışı sağlayabilir.

Örneğin bu kodların hiç bir fonksiyonu yok. Bunun gibi başka bloklarda olabilir. Bunları bulup temizleyin.
Kod:
ie.document.getelementsbyclassname ("h2hMatchesTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend


ie.document.getelementsbyclassname ("comparedGraphsTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend


ie.document.getelementsbyclassname ("fixtureResultContainer")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend


Bu kodunda sizin istediğiniz gibi çalıştığını düşünmüyorum:
Kod:
ie.document.getelementsbyclassname ("h2hMatchesTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend

For a = 0 To ie.document.getelementsbyclassname("homeTeamLastMatches").Length - 1
Sheets("sayfa1").Cells(a + 3, 4).Value = ie.document.getelementsbyclassname("homeTeamLastMatches")(a).innertext
Sheets("sayfa1").Cells(a + 3, 5).Value = ie.document.getelementsbyclassname("awayTeamLastMatches")(a).innertext
Sheets("sayfa1").Cells(a + 3, 1).Value = ie.document.getelementsbyclassname("homeTeam")(a).innerhtml
Sheets("sayfa1").Cells(a + 3, 2).Value = ie.document.getelementsbyclassname("awayTeam")(a).innerhtml
Sheets("sayfa1").Cells(a + 4, 2).Value = ie.document.getelementsbyclassname("desc")(a).innertext
Sheets("sayfa1").Cells(a + 4, 1).Value = ie.document.getelementsbyclassname("rightArea")(a).innerhtml
Next a
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mslmyre

Yeni Üye
Kullanıcı

Reputation:

Söylediğinizi uyguladım fakat, siteye giriş esnasın'da bekletme söz konusunun doğru olduğunu düşündüğüm için öyle bir kod yazdım... Yinede sildiğim zaman aynı sürede ve yavaş çekiyor..
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Qene

Yeni Üye
Kullanıcı
Versiyon
  1. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. İngilizce

Reputation:

Orjinal kodunuz yaklaşık 170 satır. 18 saniyede çalışıyor. 98. satırdan sonraki kısım herhangi bir bilgi getirmiyor. Bu satırdan sonrasını silip yukarda belirttiğim değişiklikler yapıldığında 9 saniyede çalışıyor.

Kod:
ie.navigate Sheets("sayfa1").Range("a2").Value

Ayrıca internetim yavaş olduğu için buradaki beklemeyide 0.5 saniyeden 1.5 saniyeye çıkarttım:

Kod:
basla = Timer: While (Timer - basla) < 1.5: Wend
For ğ = 0 To ie.document.getelementsbyclassname("posNormal").Length - 1
'sitedeki verileri sayfaya çekme
Sheets("sayfa1").Cells(ğ + 3, 13).Value = ie.document.getelementsbyclassname("posNormal")(ğ).innertext
With Sayfa1
 .Hyperlinks.Add Anchor:=.Cells(ğ + 3, 14), _
 Address:=ie.document.getelementsbyclassname("teamName")(ğ).innerhtml, _
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.
Çözüm

mslmyre

Yeni Üye
Kullanıcı

Reputation:

Çok teşekkür ederim , çok mutlu ettiniz beni??????
Kullanmış olduğum kodu mshtml ve xmlreques çevirebilir misiniz? pek ilgi alanım olmadığı için hiç bir fikrim bulunmuyor :confused:
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Qene

Yeni Üye
Kullanıcı
Versiyon
  1. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. İngilizce

Reputation:

Referanses kısmından "Microsoft HTML Object" i ekleyin.
Kod kısmına aşağıdaki ilaveyi yapın.
ie.document. olarak geçen yerleride doc. olarak değiştirin.
Çok önemli bir diğer nokta ise ğ, ı, ç, ş gibi Türkçe değişkenler kullanmayınız.


Kod:
Sub Son15cek()
On Error Resume Next
Sheets("Sayfa1").Range("A3:bd5000").ClearContents

'------------------------'
Dim doc As New MSHTML.HTMLDocument
Set rq = CreateObject("MSXML2.XMLHTTP")
rq.Open "GET", "http://istatistik.nesine.com/HeadToHead/Index.aspx?matchCode=240", False
rq.send
Do: DoEvents: Loop Until rq.ReadyState = 4
doc.body.innerHTML = rq.responseText
Set rq = Nothing
'------------------'


For ğ = 0 To doc.getelementsbyclassname("posNormal").Length - 1
'sitedeki verileri sayfaya çekme
Sheets("sayfa1").Cells(ğ + 3, 13).Value = doc.getelementsbyclassname("posNormal")(ğ).innertext
With Sayfa1
 .Hyperlinks.Add Anchor:=.Cells(ğ + 3, 14), _
 Address:=doc.getelementsbyclassname("teamName")(ğ).innerHTML, _
 ScreenTip:=doc.getelementsbyclassname("teamName")(ğ).innerHTML, _
 TextToDisplay:=doc.getelementsbyclassname("teamName")(ğ).innertext
End With
Sheets("sayfa1").Cells(ğ + 3, 15).Value = doc.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("played")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 16).Value = doc.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("wins")(0).innertext
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mslmyre

Yeni Üye
Kullanıcı

Reputation:

Teşekkür ederim, fakat sizi uğraştırdığım için özür dilerim. Çünkü buna benzer bir kod elimde var ve siteden çok hızlı veri çekiyor... Alttaki kodu İstediğim koda çevirilerse çok sevinirim. Son15cek makrosunu Bulmaca makrosuna uyarlayabilirsek çok güzel olur teşekkür ediyorum..

Kod 1 :
Kod:
Sub Bulmaca()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Dim htm As Object
Dim tr As Object
Dim td As Object
Dim Tab1 As Object

Sheets("Sayfa1").Range("a:t").ClearContents
Sheets("Sayfa1").Select

oranadress = "Nesine - 240 Kodlu Carlos Manucci - Academia Cantolao Maçı"


Set HTML_Content = CreateObject("htmlfile")

With CreateObject("msxml2.xmlhttp")
.Open "GET", oranadress, False
.send
HTML_Content.body.innerHTML = .responseText
End With

Column_Num_To_Start = 1
iRow = 2
iCol = Column_Num_To_Start
iTable = 0


For Each Tab1 In HTML_Content.GetElementsByTagName("table")
With HTML_Content.GetElementsByTagName("table")(iTable)
For Each div In .Rows
For Each td In tr.Cells
Sheets("sayfa1").Cells(iRow, iCol).Select
Sheets("sayfa1").Cells(iRow, iCol) = td.innertext
iCol = iCol + 1
Next td
iCol = Column_Num_To_Start
iRow = iRow + 1
Next tr
End With

iTable = iTable + 1
iCol = Column_Num_To_Start
iRow = iRow + 1
Next Tab1


Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Çevirilecek kod :
Kod:
Sub Son15cek()
On Error Resume Next
Dim ie As Object
Dim even As Object
Dim evn As Object, git As Object
Sheets("Sayfa1").Range("A3:bd5000").ClearContents
Shell "taskkill /f /im iexplore*"
basla = Timer: While (Timer - basla) < 1: Wend
Set ie = VBA.CreateObject("internetexplorer.application")
'siteye bağlan
ie.navigate "Nesine - 240 Kodlu Carlos Manucci - Academia Cantolao Maçı"
'ie.Visible = True
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
'sitedeki matches seç
ie.navigate2 "javascript:ChangeH2HPage(this, 'Matches')"
basla = Timer: While (Timer - basla) < 0.5: Wend
'bu tabloyu bul
ie.document.getelementsbyclassname ("h2hMatchesTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For a = 0 To ie.document.getelementsbyclassname("homeTeamLastMatches").Length - 1
Sheets("sayfa1").Cells(a + 3, 4).Value = ie.document.getelementsbyclassname("homeTeamLastMatches")(a).innertext
Sheets("sayfa1").Cells(a + 3, 5).Value = ie.document.getelementsbyclassname("awayTeamLastMatches")(a).innertext
Sheets("sayfa1").Cells(a + 3, 1).Value = ie.document.getelementsbyclassname("homeTeam")(a).innerHTML
Sheets("sayfa1").Cells(a + 3, 2).Value = ie.document.getelementsbyclassname("awayTeam")(a).innerHTML
Sheets("sayfa1").Cells(a + 4, 2).Value = ie.document.getelementsbyclassname("desc")(a).innertext
Sheets("sayfa1").Cells(a + 4, 1).Value = ie.document.getelementsbyclassname("rightArea")(a).innerHTML
Next a
ie.document.getelementsbyclassname ("center")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For b = 0 To ie.document.getelementsbyclassname("center").Length - 1
Sheets("sayfa1").Cells(b + 3, 6).Value = ie.document.getelementsbyclassname("center")(b).innertext
Next b
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeH2HPage(this, 'ComparedStatistics')"
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.document.getelementsbyclassname ("data")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For c = 0 To ie.document.getelementsbyclassname("line").Length - 1
Sheets("sayfa1").Cells(c + 3, 7).Value = ie.document.getelementsbyclassname("line")(c).innertext
Next c
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.document.getelementsbyclassname ("comparedGraphsTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For ı = 0 To ie.document.getelementsbyclassname("finalScore").Length - 1
Sheets("sayfa1").Cells(ı + 3, 37).Value = ie.document.getelementsbyclassname("finalScore")(ı).innertext
Next ı
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeH2HPage(this, 'RefereeStatistics')"
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.document.getelementsbyclassname ("fixtureResultContainer")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For a = 0 To ie.document.getelementsbyclassname("fixtureResultListLine").Length - 1
Sheets("sayfa1").Cells(a + 3, 8).Value = ie.document.getelementsbyclassname("fixtureResultListLine")(a).innertext
Next a
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeH2HPage(this, 'PerformanceTable')"
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.document.getelementsbyclassname("detailTypeItem")(0).Click
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For ğ = 0 To ie.document.getelementsbyclassname("posNormal").Length - 1
'sitedeki verileri sayfaya çekme
Sheets("sayfa1").Cells(ğ + 3, 13).Value = ie.document.getelementsbyclassname("posNormal")(ğ).innertext
With Sayfa1
.Hyperlinks.Add Anchor:=.Cells(ğ + 3, 14), _
Address:=ie.document.getelementsbyclassname("teamName")(ğ).innerHTML, _
ScreenTip:=ie.document.getelementsbyclassname("teamName")(ğ).innerHTML, _
TextToDisplay:=ie.document.getelementsbyclassname("teamName")(ğ).innertext
End With
Sheets("sayfa1").Cells(ğ + 3, 15).Value = ie.document.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("played")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 16).Value = ie.document.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("wins")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 17).Value = ie.document.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("draws")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 18).Value = ie.document.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("loses")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 19).Value = ie.document.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("scoredAgainst")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 20).Value = ie.document.getelementsbyclassname("generalPointValues")(ğ).getelementsbyclassname("points")(0).innertext

Sheets("sayfa1").Cells(ğ + 3, 21).Value = ie.document.getelementsbyclassname("homePointValues")(ğ).getelementsbyclassname("wins")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 22).Value = ie.document.getelementsbyclassname("homePointValues")(ğ).getelementsbyclassname("draws")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 23).Value = ie.document.getelementsbyclassname("homePointValues")(ğ).getelementsbyclassname("loses")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 24).Value = ie.document.getelementsbyclassname("homePointValues")(ğ).getelementsbyclassname("scoredAgainst")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 25).Value = ie.document.getelementsbyclassname("homePointValues")(ğ).getelementsbyclassname("points")(0).innertext

Sheets("sayfa1").Cells(ğ + 3, 26).Value = ie.document.getelementsbyclassname("awayPointValues")(ğ).getelementsbyclassname("wins")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 27).Value = ie.document.getelementsbyclassname("awayPointValues")(ğ).getelementsbyclassname("draws")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 28).Value = ie.document.getelementsbyclassname("awayPointValues")(ğ).getelementsbyclassname("loses")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 29).Value = ie.document.getelementsbyclassname("awayPointValues")(ğ).getelementsbyclassname("scoredAgainst")(0).innertext
Sheets("sayfa1").Cells(ğ + 3, 30).Value = ie.document.getelementsbyclassname("awayPointValues")(ğ).getelementsbyclassname("points")(0).innertext
Next ğ
ie.navigate Sheets("sayfa1").Range("a2").Value
'ie.Visible = True
While ie.Busy: DoEvents: Wend
'bu tabloyu bul
ie.document.getelementsbyclassname ("teamSquadTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For haw = 0 To ie.document.getelementsbyclassname("country").Length - 1
Sheets("sayfa1").Cells(haw + 3, 32).Value = ie.document.getelementsbyclassname("country")(haw).innerHTML
Sheets("sayfa1").Cells(haw + 3, 33).Value = ie.document.getelementsbyclassname("playerName")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 34).Value = ie.document.getelementsbyclassname("position")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 35).Value = ie.document.getelementsbyclassname("birthDate")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 36).Value = ie.document.getelementsbyclassname("lineupCount")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 37).Value = ie.document.getelementsbyclassname("substituteCount")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 38).Value = ie.document.getelementsbyclassname("goalCount")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 39).Value = ie.document.getelementsbyclassname("yellowCount")(haw).innertext
Sheets("sayfa1").Cells(haw + 3, 40).Value = ie.document.getelementsbyclassname("redCount")(haw).innertext
Next haw
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeTeamPage(this, 'FixtureResult')"
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For haq1 = 0 To ie.document.getelementsbyclassname("date").Length - 1
Sheets("sayfa1").Cells(haq1 + 3, 41).Value = ie.document.getelementsbyclassname("fixtureResultListLine")(haq1).innertext
Next haq1
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeTeamPage(this, 'Statistics')"
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For bet = 0 To ie.document.getelementsbyclassname("singleStatsData").Length - 1
Sheets("sayfa1").Cells(bet + 3, 42).Value = ie.document.getelementsbyclassname("singleStatsData")(bet).innertext
Next bet
'siteye bağlan
ie.navigate Sheets("sayfa1").Range("b2").Value
'ie.Visible = True
While ie.Busy: DoEvents: Wend
'bu tabloyu bul
ie.document.getelementsbyclassname ("teamSquadTab")
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For sol = 0 To ie.document.getelementsbyclassname("country").Length - 1
Sheets("sayfa1").Cells(sol + 3, 45).Value = ie.document.getelementsbyclassname("country")(sol).innerHTML
Sheets("sayfa1").Cells(sol + 3, 46).Value = ie.document.getelementsbyclassname("playerName")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 47).Value = ie.document.getelementsbyclassname("position")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 48).Value = ie.document.getelementsbyclassname("birthDate")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 49).Value = ie.document.getelementsbyclassname("lineupCount")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 50).Value = ie.document.getelementsbyclassname("substituteCount")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 51).Value = ie.document.getelementsbyclassname("goalCount")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 52).Value = ie.document.getelementsbyclassname("yellowCount")(sol).innertext
Sheets("sayfa1").Cells(sol + 3, 53).Value = ie.document.getelementsbyclassname("redCount")(sol).innertext
Next sol
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeTeamPage(this, 'FixtureResult')"
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For sağ = 0 To ie.document.getelementsbyclassname("date").Length - 1
Sheets("sayfa1").Cells(sağ + 3, 54).Value = ie.document.getelementsbyclassname("fixtureResultListLine")(sağ).innertext
Next sağ
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
ie.navigate2 "javascript:ChangeTeamPage(this, 'Statistics')"
While ie.Busy: DoEvents: Wend
basla = Timer: While (Timer - basla) < 0.5: Wend
For ark = 0 To ie.document.getelementsbyclassname("singleStatsData").Length - 1
Sheets("sayfa1").Cells(ark + 3, 55).Value = ie.document.getelementsbyclassname("singleStatsData")(ark).innertext
Next ark
End Sub
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Qene

Yeni Üye
Kullanıcı
Versiyon
  1. Ofis 365
Sürüm
  1. 32 bit
Dil
  1. İngilizce

Reputation:

Eğer ki istediğinizi IE nesnesi ile yavaşda olsa yapabiliyorsanız onunla devam etmelisiniz. Ayrıca aşağıdaki dosya da ilginizi çekebilir:

 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Üst