contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
17 Şub 2012

Anadolu Universitesi Sitesinden Bilgi Cekme

/
Yazar:
/
Yorumlar14
/
Etiketler

[quote author=”- Emrah BAŞPINAR”]S.A.
Sayın hocam
https://www.anadolu.edu.tr/akademik/fak_aof/bilyonprog/program.htm
sayfada ki dersler tablosunu otomatik aldırıp yeni bir sayfaya kadetmeye çalışıyorum
ama birtülü beceremedim yardım edermisiniz.[/quote]

Merhaba Emrah Bey, konunuzla ilgili bir calisma ekliyorum, altta ekran caplerini gorebilirsiniz ayrica dosyayi incelerseniz orayada veriler gelicektir, iyi calismalar.

Calismada icin yazdigimiz kodlar;

Sub Tablo_Al()
    Dim web_Http As MSXML2.XMLHTTP
    Dim web_Html As String
    Dim web_Doc As HTMLDocument
    Dim web_Tablo As HTMLTable
    Dim web_Satir As HTMLTableRow
    Dim web_Hucre As HTMLTableCell
    Dim web_Baslangic As Range

    Const web_URL As String = "https://www.anadolu.edu.tr/akademik/fak_aof/bilyonprog/program.htm"

    Set web_Http = New MSXML2.XMLHTTP
    Set web_Doc = New HTMLDocument
    Set web_Baslangic = Sheet1.Range("A1")

   web_Http.Open "GET", web_URL
    web_Http.send

   Do
        DoEvents
    Loop Until web_Http.readyState = 4

   web_Doc.body.innerHTML = web_Http.responseText

   For Each web_Tablo In web_Doc.all.tags("TABLE")
            For Each web_Satir In web_Tablo.Rows
                For Each web_Hucre In web_Satir.Cells
                    web_Baslangic.Offset(web_Satir.RowIndex, web_Hucre.cellIndex).Value = web_Hucre.innerText
                Next web_Hucre
            Next web_Satir

    Next web_Tablo

End Sub

Anadolu Universitesi Sitesinden Bilgi Cekme

14 % yanıt

  1. Merhaba Buseen,

    Skydrive site uzerinde bizde kullaniyoruz, dosyalar zaten manuel sekilde indirebilir durumda isteginiz excel ile indirmek midir? skydrive`daki bir dosyanin indirilip indirelemediginimi sorguluyorsunuz?

  2. buseen

    selam skydriver belgelerim içinde liste.xlm dosyam var.excel sayfası açtımda veri getir butona bastımda
    sayfa1 deki veryi alabilirmiyim ? Tşk

  3. buseen

    sizin yapmış oldunuz örnek gibi veriyi getir dedigimde liste.xlm dosyasındaki sayfa1 deki veriyi getirmek
    benim düşüncem skydriver paylaşılan belgeler içinde 150 adet isim dosyası var ismini yazacam dosya excel sayfa 1 e gelecek bilgileri
    “https://www.anadolu.edu.tr/akademik/fak_aof/bilyonprog/program.htm

  4. Merhabalar, uzerinde calisma yapabilecegim bir dusunce, fakat bu konu gibi olmayacaktir tabiki cunku sorgulama sifre kullanici gibi alanlar daha girilmesi gerekir, konuyu incelerim basarili olursa size mail adresinizden geri donus yaparim, iyi calismalar.

  5. Skydrive icin ogeleri denetledigimde iframe disinda bir oge bulunmadigini goruyorum, skydrive kendi API lerini yapmadigi surece veri cekmek mumkun olmayabilir.

    Neden veri cekmek istediginizi anlatirmisiniz belkide baska alternatif cozumler bulabiliriz, herhangi bir aspx ten veri cekebilmek gibi bir konu ile karsi karsiyamiyiz yoksa direkt olarak skydrive mi olmali ?

  6. buseen

    yok hayır heryerden ulaşabildigim için verilere.150 adet excel dosyası var isim olarak
    verecem kşiler sadece kendi ismindeki dosyayı çeke bilsin diye sizin yapmış oldunuz vb deki koda o kişinin dosya ismini yazacam sadece kendi dosyasını alabilsin diye.150 adet kart hesap kartıdır

  7. buseen

    bir site apartman yöneticisiyim verileri depolama yeri skydriver uygun gördüm başka yok depolama yeri
    üye hesaplarını görmek için sadece kendi kartını çekebilsin diye

  8. Konu uzerinde calisacagim ne tarz bisey yapilabilir suan bir fikrim yok fakat aspx uzerinden nasil bilgi alabilirim arastirma yapmam lazim, aspx uzerinden veri almaktan cok skydrive`in sıkıntısı veriyi bu ornektegi gibi bir database (xml) den almamasi. Skydrive dosyayi bir iframe icerinde tekrardan kullaniciya sunuyor.

    Yapmak istediginiz hakkinda daha genis bir arastirma yapip size donus yapacagim. Ayrica sizi msn`de ekledim bilemiyorum kullaniyormusunuz, iyi calismalar.

  9. Size zaten bir ftp acmamiz gerekiyor, bu ftp`de dosyaniz olsa ve bu dosyayi bir vb uygulamasi ile sizin dosyayi verdiginiz kisiler cekse olabilir mi ?

    Sanirim dosyayi bilgisyara indirmek icin bir kod yazabilirim. Kullanici dosyayi c`nin altinda bi yere indirir fakat gormez daha sonra bu dosya uzerinden bilgi cekilerek istediginiz kisinin verileri dosya icinden alinabilir.

    Yahut bu durum bir risk tasiyor ise her kisi icin yine dosya duzenlenir, kisinin adini verdiginiz dosyayi cekebilsin diye dosya adini yazabileceginiz bir yer yapariz. Kisi bir butona tiklar ve dosyayi indirir.

    Bu fikirlerden biri sizin icinde uygun mudur acaba ?

Cevap bırakın


2 + 7 =