Makrolar Intranete ulaşabilir mi?

[bistrobellman]

selamlar bizim kendi serverimizda

http://7780 adresli serverimizde adresimiz var..

Bu adreste Döküm No kısmı var..


Ben excel makro da yaptığım bir textbox a giriş ile bu rakamı
intranetteki döküm no kısmına yazdırıp klik yaptırabilir miyim?bence burada bu dil yetersiz kalıyor...bana lazım böyle bir uygulama.

NE DİYORSUNUZ BOÞUNA UÐRAÞMAYİM DEÐİL Mİ?

 

[Haluk]

Web sayfasındaki kutulara VBA ile değerler girilmesi, butonların tıklanması gibi konuları işlemiştik.

İşinize yararsa, arama motoru ile bakın.

 

[bistrobellman]

3 adet TextBoxa veri girilerek bagkur sayfasından bilgi okutup form üzerndeki Web Navigator penceresine bilgi getiren örnek program kodlarını aşağıya yazdım:ve bunu kendi adresime uyarlamak istiyorum bir takım değişiklikler yaparak tabii ki: değişiklikleri koyu renkle aynı satıra yazdım:

Private Sub CommandButton1_Click()
Dim giden As String
Dim strHeader As String
Dim varPostData As Variant
Dim byt() As Byte

On Error Resume Next
giden = "bagno=" & TextBox1 & "&yakinlikNo=" & TextBox2 & "&karneNo=" & TextBox3 ' >>Değişecek: giden = "dokno=" & textbox1 doğru mu?
ayarla byt(), giden
varPostData = byt
strHeader = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
Web.Navigate2 "http://213.139.207.132/SigortalilikBilgileri/ProvizyonAlmaServlet", 0, "", varPostData, strHeader ' >>>Değişecek: Web.Navigate2 "http://kalite\uretim\1dokumlerlist.asp", 0, "", varPostData, strHeader
Do Until Web.ReadyState = 4 'bu döngü benim programda kalacak mı?
DoEvents
Loop

a = Split(Web.Document.body.innerHTML, "TABLE")
Web.Document.write "<table" & Left(a(6), Len(a(6)) - 2) & Label4 'bu kısım bende nasıl değişecek?
End Sub

(Aşağıdaki programı ben de ilave edeceğim, değil mi? veri gönderme ile ilgili:
Private Sub ayarla(ByteArray() As Byte, ByVal giden As String)
Dim yenibyt As Integer
Dim strCH As String
Dim i As Integer

yenibyt = Len(giden) - 1

If yenibyt < 0 Then
Exit Sub
End If
ReDim ByteArray(yenibyt)

For i = 0 To yenibyt
strCH = Mid$(giden, i + 1, 1)

If strCH = Space(1) Then
strCH = "+"
End If

ByteArray(i) = Asc(strCH)
Next
End Sub

http://kalite\uretim\1dokumlerlist.asp
görüldüğü gibi yukarıda değişecek olan adres kısmına bu adresi ekledim
ve internetten bu adresi çalıştırdım çalışıyor.
BU ADRESTE BİR TANE TEXTBOX VAR VE YANINDA "ARA" Diye bir düğme var..Textbox1 de girdiğim değer buraya yansıyıp ara diyecek ve ekrandaki görüntü aynen web navigator a yansıyacak.
denedim olmadı,NEDEN? BENİM İÇİN COK Ã?NEMLİ BU SORUN! :? :?

 

[ALPEN]

Bahsettiğiniz sayfa lokal bir sayfa.
Dolayısı ile bizim deneme yapabilme imkanımız yok.

Ã?neri;

http://kalite\uretim\1dokumlerlist.asp adresine girin.

Sayfayı farklı kaydedip kaydetttiğiniz dosyayı buraya ekleyin.

Daha sonra üzerinden gideriz.

 

[bistrobellman]

fbfd

 

[bistrobellman]

ben bu soyada döküm numarasını form üzerindn girdirip aramasını ve web de aşağıda cıkan listedeki kalite formdaki kalite ile uyuşmuyorsa sevkiyat aşamasında stok operatörüne giriş/çıkış izni verdirmek istemiyorum.o listedeki kalite kısmındaki atıyorum "1.1420-00" kısmını PC ye nasıl "ALGILATACAÐIZ" peki??

 

[ALPEN]

bahsettiğiniz sayfaya http://www.kalder.org adresinden ulaşmamız mümkün mü? Değilse asp ile hazırlanmış dinamik bir sayfada afaki bir şeyler yapmaya çalışmak çok uzun sürer.

 

[bistrobellman]

neden kalder.org...
pek bir alaka kuramadım kusura bakmayın?

 

[ALPEN]

Pardon...

Firefox'un azizliği.
Firefox'ta herhangi bir linke tıkladığınızda eğer öyle bir sayfa yoksa, link içinde geçen kelimelere göre en yakın siteye yönleniyorsunuz.

Bende sizin göndrdiğiniz sayfada göster linkine tıkladığımda
aslında ""http://kalite/uretimm/1Dokumlerlist.asp?cmd=reset" olan adresi

"http://www.kalder.org/page.asp?pageID=0" sayfasına yönlendirdi. Ben de sayfada relative olmayan bir link buldum sanıp, sizin lokal sayfanın web kökü sandım.

 

[bistrobellman]

şimdi ne olacak benim halim? benim cok ama cok ihtiyacım var su an bu problemin çözümüne...halledilebilecek bir sey ise yardım edin şirkette sıkışık durumdayım...iyi çalışmalar

 

[Haluk]

Pardon...

"http://www.kalder.org/page.asp?pageID=0" sayfasına yönlendirdi. Ben de sayfada relative olmayan bir link buldum sanıp, sizin lokal sayfanın web kökü sandım.

Lem olm .... senin mesajlarını okuyup da yorumlayabilmek için universite bitirmek lazım ... :mrgreen:

 

[ALPEN]

walla tekrar okudum da...

üniversiteden çok,

Bakırköy'de 4 aylık hızlandırılmış kurs yeter gibi. :mrgreen:

 

[bistrobellman]

arkadaşlar web navigator ile istediğim bilgiyi sadece okumak istiyorum biraz basitleştirdim olayı...sadece on bilgi için en son "ara" ya tıklasın ve sonucu form üzerinde web browserda göstersin... bir tane "BAGKUR" ORNEÐİNİ yukarıdaki kodlar ile verdim..nerelerini düzeltecem?

 

[bistrobellman]

ekte örnek dosyayı yolladım.bir benzerini kendime uyarlamak istiyorum açıkcası.kodları ilk mesajıma yaazdım en yukarı...nerelere yama yapacağız?

 

[bistrobellman]

Arkadaşlar yok mu yardım?açtığım konu sonuçsuz kaldı

http://www.excel.web.tr/viewtopic.php?t=6424

lütfen ilgilenirseniz sevinirim..

 

[Hüseyin]

Sayın bistrobellman,
aynı konular için lütfen yeni başlık açmayın.
Mesajınız eski başlığın altına taşındı.

 

[bistrobellman]

ALPEN BEY nerelerde?bugün forma girdi mi acaba? yaptığım hatadan dolayı kusura bakmayın Sn.Admin...Ã?zür...

 

[ALPEN]

Selam

Aşağıdaki dosyayı inceleyin.

 

[bistrobellman]

selamlar.çıkan tabloyu (final tablosunu) size gönderdim. sutun başlıklarına (Tarih,Sno,Dokno,M,....vb) tıklanabiliyor ve Sort-Sıralama özelliği konulmuş.
bana soldan 6. (Ebat) ve 13. (S.Kalite) sutun adresleriyle formum üzerindeki TextBox2 ve TextBox3 e girilen ebat ve kaliteleri karşılaştıracak...

bana o tablo bir excel tablosunu anımsattı gibi alpen bey....Kontrol olursa sadece WEb browserda görüntü vermekten kat kat daha anlamlı ve iyi olur düşüncesindeyim, evet nasıl geliştirebiliriz bundan sonrasını? işin yarısından fazlasını sayenizde bitirmiş oldum, Geliştirelim tam olsun..lütfen.......?

 

[ALPEN]

Daha öncede bahsettiğim gibi dönen tabloyu göremediğim için sonuca ulaşmak uzun sürüyor.

Aklıma gelen bir çözüm şöyle,

sorgudan sonra dönen html parse edilir. tablonun tagları (başlangıç, bitiş) bulunur,
bu bilgi clipboard'a atılıp, bir sayfaya yapıştırılabilir.

Böyle bir şey işinizi görür mü?