Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama > JavaScript
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-02-2007, 21:52   #1
Mahmut Kök
 
Mahmut Kök kullanıcısının avatarı
 
Giriş: 14/07/2006
Şehir: Adana
Mesaj: 830
Excel Vers. ve Dili:
Excel 2007 - Türkçe
Varsayılan internet tarayıcısından (internet explorer) excele veri almak.

Bu konuyla ilgili olabilecek başka bir başlık daha vardı ama uzun zamandır yeni leti almadığı için ekranda gözükmüyor. Her neyse;

İnternet explorerda açtığım sayfada sadece #100 veya #500 gibi yazı çıkıyor. Kaynağı görüntüle dediğimde de sadece bu ifadeyi görüyorum. Ekrana gelen bu ifadeler aslında benim gönderimime bir cevap, o yüzden bu ifadeleri excelde herhangi bir hücreye almam gerekiyor; çok denedim ama yapamadım.

Sadece xml koduyla gönderi örneği vardı (Sayın Haluk ve veyselemre'nin yardımlarıyla oluşturulmuştu). O şekilde cevabı alabiliyorum; ama bazı bilgisayarlarda -"...xml 5.0" ın seçili olması gerektiği için- çalışmıyor.

adres:

http://www.aytelsms.com/post/SendBulkSMS.asp





Ekrana gelen cevabı, excele nasıl alabilirim? Yardımlarınız için şimdiden teşekkür ederim. İyi çalışmalar.
__________________
_______

Lütfen Türkçe...
Mahmut Kök Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2007, 16:26   #2
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,082
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Sayfanın gövdesini A1 hücresine yazar ...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Test()
        Dim W As Object
        Dim URL As String
        URL = "http://www.aytelsms.com/post/SendBulkSMS.asp"
        Range("A1").ClearContents
        On Error Resume Next
            Set W = CreateObject("winhttp.winhttprequest.5")
            If Err.Number <> 0 Then
                Set W = CreateObject("winhttp.winhttprequest.5.1")
            End If
        On Error GoTo 0
        
        On Error Resume Next
        W.Open "GET", URL, False
        W.Send
        If Err Then
            MsgBox "Sunucu cevap vermedigi icin veriler alinamiyor...", vbCritical
            Exit Sub
        End If
       
        Temp = W.ResponseText
        
        Range("A1") = Temp
       
    Set W = Nothing
End Sub
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 15-02-2007, 20:31   #3
Mahmut Kök
 
Mahmut Kök kullanıcısının avatarı
 
Giriş: 14/07/2006
Şehir: Adana
Mesaj: 830
Excel Vers. ve Dili:
Excel 2007 - Türkçe
Varsayılan

Sayın Haluk, çok teşekkür ederim. İki gündür programımın kısamesaj bölümünü tamamlamak için bu cevabı bekliyordum. Ayrıca internet-excel bağlantısı ve bu türdeki diğer çalışmalarınız için de size çok teşekkür ediyorum, sağ olun.
__________________
_______

Lütfen Türkçe...
Mahmut Kök Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-04-2007, 13:04   #4
cenk77ist
 
Giriş: 07/12/2006
Şehir: istanbul
Mesaj: 83
Excel Vers. ve Dili:
Excel 2002 ingilizce
Varsayılan banka hesabı bilgileri

arkadaşlar kullanıcı adını ve şifreyi excel macro içersinden hesabımın bulunduğu bankanın sitesine bağlanıp girmek ve belirlediğim tarihler arasındaki hesap hareketlerini excele almak istiyorum.. benzer bir excel kitabı örnek varmı acaba yada kodlar ??

tşk
cenk77ist Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-11-2007, 12:34   #5
KuTuKa
Altın Üye
 
KuTuKa kullanıcısının avatarı
 
Giriş: 10/03/2005
Şehir: izmir
Mesaj: 614
Excel Vers. ve Dili:
Excel 2010 - İngilizce
Varsayılan

sayın cenk77ist in yapmak istediğini bende düşündüm 12 tane bankanın hesa bilgierine bakmam günlük 1,3 saatimi alıyor bir makro ile bu çok kısa zaman da olabilir ama aklıma birşey gelmiyor fikirleri olan var mı?
KuTuKa Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 09:35


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden