Özel Arama
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: Tümünü seç
IE.document.GetElementByID("veriGirisForm:kopyaAlani").Click
FnWait (1)
Application.SendKeys ("^V")
'IE.document.GetElementByID("veriGirisForm:kopyaAlani").Value = ActiveCell.Value
- Kod: Tümünü seç
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: Tümünü seç
IE.document.GetElementByID("veriGirisForm:kopyaAlani").Value = FormatNumber(Range("B" & Satir).Value, 2) _
+ " " + FormatNumber(Range("C" & Satir).Value, 2) + " " + FormatNumber(Range("D" & Satir).Value, 2)
