• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

webe veri aktarırken clipboarda kopyalanan veriyi webe yapıştırmak

Katılım
15 Nisan 2009
Mesajlar
122
Excel Vers. ve Dili
MSOPP2019TR-64bit
selam.
webe veri aktarmaya çalışıyorum. bu noktaya kadar geldim. aşağıdaki kod ile veriler aktarılabiliyor ancak bunu excelde makro kullanarak zaten ilgili satırları kopyalıyorum ve normalde elle girerken kopyaalanını seçip ctrl+v yapıp yapıştırıyor ekle yükle ile gönderiyordum. yada automatic mouse keyboard yazılımı ile ilgili alanı seçip ctrl+v yapıp yapıştırıp gidiyordum. ancak işyeri bu programı kullanmamızı istemiyor. bende direk excelden göndermek için aynı işle uğraşan bir arkadaşımdan aldığım kodları değiştirerek bu işi yapmaya çalışıyorum.
ancak aşağıdaki kod beni yoruyor. uzama satırların çoğalma ihtimali de var. o nedenle acaba ilgili formülde excelde makro ile kopyalanmış olan ve kesik çizgiler ile seçili duruma gelmiş olan veri satırını (yani clipboarda kopyalanmış)
IE.document.GetElementByID("veriGirisForm:kopyaAlani").Value =
değeri olarak girme şansım varmı.?
teşekkürler.

bunları denedim ama olmadı.:(

Kod:
    IE.document.GetElementByID("veriGirisForm:kopyaAlani").Click
    
    FnWait (1)
    
    Application.SendKeys ("^V")
    'IE.document.GetElementByID("veriGirisForm:kopyaAlani").Value = ActiveCell.Value


Kod:
FnWait (1)
    IE.document.GetElementByID("veriGirisForm:kopyaAlani").Click
    IE.document.GetElementByID("veriGirisForm:kopyaAlani").Paste


Normalde tektek tanımlama ile bu şekilde çalışıyor. ama yorucu ve uzun geliyor.

Kod:
    IE.document.GetElementByID("veriGirisForm:kopyaAlani").Value = FormatNumber(Range("B" & Satir).Value, 2) _
    + " " + FormatNumber(Range("C" & Satir).Value, 2) + " " + FormatNumber(Range("D" & Satir).Value, 2)
 
Geri
Üst