Çoklu Veri Kopyalama

[sullivan]

Arkadaşlar siteyi inceledim ama benim istediğim şeyin tam karşılığını bulamadığım için bu konuyu açmaya karar verdim. Yardımcı olabilecek arkadaşlara gerçekten minnettar kalırım. Şimdi konu şöyle;

Bir adet excel dosyamın içinde bilgilerim var ve bunları bir web sitesindeki cell'lere girmem gerekiyor.

Fakat tek tek yapıştırmak çok zaman alıyor. Bunları toplu bir şekilde kopyalayıp sitedeki cell'lere yapıştırmak istiyorum. Fakat işin bir zor yanı var. Hangi excel verisinin hangi celle yapıştırılıcağını belirlemek zorundayım.

Örnekle açıklamam gerekirse;Elimde aşağıdaki excel dosyası var.

Seçili verileri ise aşağıdaki websitesine kopyalamam gerekiyor.

Excel'deki A1'İ ahmete B1'i ali'ye C1'i ayşe'ye gelecek şekilde topluca yapıştırmak istiyorum. Diğerleride aynı sırayla hayvanlar ve bitkilere yapıştırılacak. Yani ilk imajdaki seçili bölgeyi kopyalayıp tek hamlede siteye yapıştırmak istiyorum. Mouse ve Keyboard hareketlerini kopyalayan ve tekrarlayan porgramlar denedim ama sağlıklı çalışmadı.

Birde şöyle bir sorunum var. Verileri girerken uzun bir süre 3 kategoride de veri giriyorum. Ama bazen hayvanlar kategorisinde giricek veri olmuyor. Yani 2 satır kopyaladığımda insanları girip, hayvanları atlayıp, bitkilere girmesi gerekiyor.

Benim için baya zor bir konu, bilmiyorum yardım edebilecek çıkar mı? Herkese zamanını ayırdığı için şimdiden teşekkürler.

 

[F1]

Merhaba
Öncelikle userform oluşturup, bir webbrowser ekleyin. Sitenizi bu webbrowser üzerinde açın.
Web sitesinde belirttiğiniz kutuların bir id si olacaktır kaynak kodundan görebilirsiniz. Bu id sayesinde o kutuya direk veri girişi yaptırabilirsiniz.

Örnek.

WebBrowser1.Document.All.Item("ahmet").Value = Range("A1").Value

Örnek bir konu
http://www.excel.web.tr/showthread.php?t=72929

 

[sullivan]

Öncelikle çok teşekkür ederim F1.

Excel ve Web bilgim epey az olduğu için bişey daha sormak istiyorum.

Bahsettiklerini yolladığın örnek konudan ve webden araştırarak öğrenmeye çalışıcam. Sormak istediğim şu, verileri girdiğim site üyelik isteyen bir site, benim hesabımdan girerek verileri girmem gerekiyor. Bu bir sorun oluşturur mu? Yoksa çok alakasız bi konu mu? Baya kafam karıştıda...

 

[harziyan]

açılış sayfasının adresini yazabilir misiniz?

 

[sullivan]

yalnız site şuan yayında değil. patronum muhtemelen 1 hafta içinde yeni bir isimle yayına sokturucak. site yayına girdiğinde üzerime çok yük biniceğinden önceden çözmek istedim.

başka türlü halletme şansımızı olabilir mi acaba? birden çok şey istedim ama kusura bakmayın

teşekkürler harziyan.

 

[F1]

Öncelikle çok teşekkür ederim F1.

Excel ve Web bilgim epey az olduğu için bişey daha sormak istiyorum.

Bahsettiklerini yolladığın örnek konudan ve webden araştırarak öğrenmeye çalışıcam. Sormak istediğim şu, verileri girdiğim site üyelik isteyen bir site, benim hesabımdan girerek verileri girmem gerekiyor. Bu bir sorun oluşturur mu? Yoksa çok alakasız bi konu mu? Baya kafam karıştıda...

Userform üzerine eklenen webbrowser objesi normal explorer gibidir, yani şifrenizi girebilirsiniz.

 

[F1]

Örnek bu siteye giriş yapmak için kodları yazıyorum, hem biraz daha fikir sahibi olursunuz.

[font=Courier New][color=darkblue]Private[/color] [color=darkblue]Sub[/color] UserForm_Initialize()
WebBrowser1.Navigate "http://www.excel.web.tr/index.php"
[color=darkblue]End[/color] [color=darkblue]Sub[/color]


[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
[color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]GoTo[/color] loginolmus

WebBrowser1.Document.All.Item("navbar_username").Value = "xxx"  [color=green]'Kullanıcı Adı[/color]
WebBrowser1.Document.All.Item("navbar_password").Value = "xxx" 'Şifre
WebBrowser1.Document.All.Item("cookieuser").Click [color=green]'Beni Hatırla işaretliyoruz[/color]
    [color=darkblue]For[/color] [color=darkblue]Each[/color] giris [color=darkblue]In[/color] WebBrowser1.Document.getElementsByTagName("input")
        [color=darkblue]If[/color] giris.Value = "Giriş Yap" [color=darkblue]Then[/color] giris.Click: [color=darkblue]Exit[/color] [color=darkblue]Sub[/color] [color=green]'Giriş yapıyoruz[/color]
    [color=darkblue]Next[/color]
loginolmus:
[color=darkblue]End[/color] [color=darkblue]Sub[/color][/font]

 

[sullivan]

çok teşekkürler F1. bunları uygulamaya çalışıcam