Web Sayfasına Veri girişi

[Karanlik1]

CommandButton ile Web Sayfası Nasıl açarım

Selam Arkadaslar

CommandButton ile Web Sayfası Nasıl açabilirim acaba?

simdiden tesekkurler

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub www()
On Error Resume Next
ActiveWorkbook.FollowHyperlink address:="http://www.excel.web.tr", NewWindow:=True
End Sub

 

[Karanlik1]

Çok saol Dostum.. Bişey daha soruyum

Web sayfasına bilgi girişi yapabiliyorum ama şurda

<select name="kimlik"><option value="9">Bilinmiyor</option><option value="3">N&#252;fus C&#252;zdan&#305;</option><option value="5">Vergi Kimlik No</option><option value="6">TC Kimlik No</option><option value="2">Ehliyet/S&#252;r&#252;c&#252; Belgesi</option><option value="1">Pasaport</option>

Kimilk k&#305;sm&#305;na Tc kimlik se&#231;tirmek istiyorum

.Kimlik.Value = "TC Kimlik No"

&#351;eklinde yapt&#305;&#287;&#305;mda &#231;al&#305;&#351;m&#305;yor. Nas&#305;l yapabilirim

 

[Recep İpek]

Combobox'da default olarak "TC Kimlik No" mu olmas&#305;n&#305; istiyorsunuz?

E&#287;er bu &#351;ekilde ise kodlar&#305;n&#305;za SELECTED ifadesini ekleyiniz.

Yani,

<option value="6" SELECTED>TC Kimlik No</option>

 

[Karanlik1]

Merhabalar

Web sayfasına bilgi girişi yapabiliyorum ama şurda açlır menüden;

<select name="kimlik"><option value="9">Bilinmiyor</option><option value="3">Nüfus Cüzdanı</option><option value="5">Vergi Kimlik No</option><option value="6">TC Kimlik No</option><option value="2">Ehliyet/Sürücü Belgesi</option><option value="1">Pasaport</option>

Kimlik kısmına Tc kimlik seçtirmek istiyorum

.Kimlik.Value = "TC Kimlik No"

veya

.Kimlik.Value = option.value=6

şeklinde yaptığımda çalışmıyor. Nasıl yapabilirim

 

[Karanlik1]

çok saol, kusura bakma yanlış anlattım. Aşağıdaki kodlara ekleyip web sayfasında seçtirmek istiyorum.

TC = Replace(ListBox1.List(ListBox1.ListIndex, 1), " ", "")
MyData(1) = TC
MyData(2) = ListBox1.List(ListBox1.ListIndex, 2)
MyData(3) = ListBox1.List(ListBox1.ListIndex, 3)
MyData(4) = ListBox1.List(ListBox1.ListIndex, 4)
MyData(5) = ListBox1.List(ListBox1.ListIndex, 5)
MyData(6) = ListBox1.List(ListBox1.ListIndex, 6)
MyData(7) = ListBox1.List(ListBox1.ListIndex, 7)
MyData(8) = ListBox1.List(ListBox1.ListIndex, 8)

Set IE = CreateObject("Shell.Application").Windows.Item
With IE.Document.all
.txtAdi_1.Value = MyData(1)
.txtSoyadi_1.Value = MyData(2)
.txtBabaAdi_1.Value = MyData(3)
.txtKimlikNo_1.Value = MyData(4)
.txtDigerKimlikNo_1.Value = MyData(5)
.DogumTarih_1.Value = MyData(6)
.txtAdresSatiri1_1.Value = MyData(7)
.txtAdresSatiri2_1.Value = MyData(8)
'.tCmbDigerKimlikTuru_1.Value = "TC Kimlik No"

 

[Haluk]

kimlik.value=6

gibi deneyin ...

 

[Karanlik1]

6 veya "6" olarak da &#231;al&#305;&#351;mad&#305;

d&#252;zeltmeye &#231;al&#305;&#351;t&#305;&#287;&#305;m kod bu

TC = Replace(ListBox1.List(ListBox1.ListIndex, 1), " ", "")
MyData(1) = TC
MyData(2) = ListBox1.List(ListBox1.ListIndex, 2)
MyData(3) = ListBox1.List(ListBox1.ListIndex, 3)
MyData(4) = ListBox1.List(ListBox1.ListIndex, 4)
MyData(5) = ListBox1.List(ListBox1.ListIndex, 5)
MyData(6) = ListBox1.List(ListBox1.ListIndex, 6)
MyData(7) = ListBox1.List(ListBox1.ListIndex, 7)
MyData(8) = ListBox1.List(ListBox1.ListIndex, 8)

Set IE = CreateObject("Shell.Application").Windows.Item
With IE.Document.all
.txtAdi_1.Value = MyData(1)
.txtSoyadi_1.Value = MyData(2)
.txtBabaAdi_1.Value = MyData(3)
.txtKimlikNo_1.Value = MyData(4)
.txtDigerKimlikNo_1.Value = MyData(5)
.DogumTarih_1.Value = MyData(6)
.txtAdresSatiri1_1.Value = MyData(7)
.txtAdresSatiri2_1.Value = MyData(8)
.kimlik.Value = "TC Kimlik No"

 

[Haluk]

ie.document.body.all.kimlik.value=6

bir de bunu deneyin ...

 

[Karanlik1]

Saolun Haluk Bey ama olmad&#305; yine. O sat&#305;r hata veriyor.

 

[Haluk]

Olmamas&#305; m&#252;mk&#252;n de&#287;il ...

Ekli zip dosyas&#305;n&#305; indirin ve i&#231;indeki Test.htm ile SendData.xls dosyalar&#305;n&#305;n her ikisini de a&#231;&#305;n. Daha sonra, Excel dosyas&#305;ndaki butona t&#305;klay&#305;n.

Butona t&#305;klad&#305;ktan sonra, html sayfas&#305;ndaki combo' da "TC Kimlik No" se&#231;ili olacakt&#305;r.

Not:
E&#287;er o s&#305;rada 1'den fazla IE penceresi a&#231;&#305;ksa, kod hata verir. Esas&#305;nda, VBA kodunuz g&#252;zel de&#287;il...

Lokal de&#287;il de Web de bir sunucu &#252;zerindeki sayfaya data yollmaya &#231;al&#305;i&#351;&#305;yorsan&#305;z, createobject ile IE nesnesi olu&#351;turduktan sonra sayfaya navigate edip, ba&#287;lant&#305; kurun.

Forumda bununla ilgili &#231;ok &#246;rnek var.

 

[Karanlik1]

Evet &#231;ok saolun Haluk bey, oldu...
Kodlar&#305; veyselemre bey'in SSK program&#305;ndan kopyalay&#305;p de&#287;i&#351;tirdim, &#231;ok g&#252;zel &#231;al&#305;&#351;&#305;yor program saolun

 

[Karanlik1]

Arkada&#351;lar birde &#351;u "radio" tarz&#305; se&#231;imi nas&#305;l yapt&#305;rabilirim.

Cinsiyet </font></td><td><font color="#0c0080" size="-1">:</font></td><td><font color="#0c0080" size="-1">&nbsp;<input value="1" name="optcinsiyet" type="radio"> Erkek</font></td><td align="left"><font color="#0c0080" size="-1">&nbsp;<input value="2" name="optcinsiyet" type="radio"> Bayan</font></td></tr></tbody>

 

[Haluk]

Sözkonusu RadioButton' lar olunca, VBA'den kumanda etmesi biraz daha degisik oluyor .... Bu iş için başka bir örnek hazırladım.

Ekli zip dosyasını indirin ve yine daha önce olduğu gibi hem HTML dosyasını hem de Excel dosyasını açın.

Excel dosyasındaki butonlarla, HTML sayfasında Bayan veya Bay cinsiyetini seçebileceksiniz.

 

[Karanlik1]

Valla &#231;ok saolun Haluk bey, elleriniz dert g&#246;rmesin,u&#287;ra&#351;m&#305;&#351; haz&#305;rlam&#305;&#351;s&#305;n&#305;z.