Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Web Üzerinden İmsakiye

ozanakkaya
ozanakkaya
Access Örnekleri ve Uygulamaları
25
13605

Web Üzerinden İmsakiye

#7
Bilgisayarcı
Atçalı
Bilgisayarcı
Bul
Aktif Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 22/04/2019,15:45
Yorumları: 658
Konuları: 34
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 410
Kod:
With IE.Document.All.tags("table").Item(1)
  For i = 1 To 30
    For j = 2 To 10
      s = .Rows(i).cells(j).innertext
    Next
  Next
End With
Bu şekilde daha kolay olmaz mıydı?
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
#8
maytas
Uzman
maytas
Bul
Uzman
Adı Soyadı:
Yaşı: 59
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 20/09/2022,13:21
Yorumları: 540
Konuları: 24
Kayıt Tarihi: 21/12/2008
Teşekkür Puanı: 178
Bir küçük ilave de ben yapayım.
İlgili örnekte bu şekilde uygulanabilir:

Kod:
s = 2
With IE.Document.All.tags("table").Item(1)
  Do While s <= 362
    For I = 1 To 30
      For J = 2 To 10
        Controls("Metin" & s) = .Rows(I).cells(J).innertext
        s = s + 1
        If s = 11 Then s = 102
      Next
    Next
  Loop
End With
Cevapla
#9
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
`1. mesajdaki örnek yenilenmiştir.
Cevapla
#10
maytas
Uzman
maytas
Bul
Uzman
Adı Soyadı:
Yaşı: 59
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 20/09/2022,13:21
Yorumları: 540
Konuları: 24
Kayıt Tarihi: 21/12/2008
Teşekkür Puanı: 178
(23/08/2009, 02:18)sledgeab yazdı: `1. mesajdaki örnek yenilenmiştir.

Eklenti görünmüyor.
Cevapla
#11
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
eklenti düzeltildi.

ayrıca tüm önerilerinizi sonraki web çalışmalarında bekliyorum.

rows nedir, item nedir öğrendiniz nasıl olsa.
Cevapla
#12
teknikdestek
Üye
teknikdestek
Bul
Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Ofis 2003
Son Oturumu: 23/08/2009,13:27
Yorumları: 1
Konuları: 0
Kayıt Tarihi: 13/08/2009
Teşekkür Puanı: 0
Değerli katkıları için destek ekibimize rep vermiyor muyuz sayın admin?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task