Webteki dosya yükle nesnesine adres yazdırma?

[turk-x]

Slm;

Web üzerindeki form üzerinden xml dosya transferi yapıyorum. Her xml nin adresini excelde a sutununa yazıp döngü kullanarak web üzerinden transfer etmek istiyorum . Web üzerindeki formda gözat nesnesi kullanıldığı için makro ile değer girmek mümkün olmadı. Gözat nesnesine değeri makro ile nasıl yazabilirim?

 

[turk-x]

Sanırım Sorunumu tam anlatamadım.
tek yapmak istediğim xml dosyasını post yöntemiyle Web sitesi sunucusuna yüklemek.
Bunu gözat nesnesi (Type="file") nesnesi olmadan yapmanın bir yolu varsa o yöntemide kullanabilirim
yada gözat nesnesine xml dosyasının adresini yazdırabileceğim bi kod varsa onuda kullanabilirim.

ben normal olarak userform üzerindeki webbrowser üzerinden siteye login olup dosya yükleme sayfasını açtırıp metin kutularına değer yazdırıyorum manuel olarak ta gözat nesnesi ile dosyayı gösterek post yapıyorum. Ama bunu her xml ile tek tek yapmak zaman alıyor. bunu döngü ile halletmem gerekiyor.

 

[veyselemre]

"Focus" ve "SendKeys" çözüm için gerekli iki kelime.
Gerisi size kalmış.

 

[turk-x]

Sayın veyselemre;
Webte inceledim sendkeys le yapılabilir ama sitelerde gözat nesnesine tıklama ve değeri yazma şeklinde net bişi bulamadım. Bu konuda yardımcı olurmusunuz?

 

[veyselemre]

Sayın veyselemre;
Webte inceledim sendkeys le yapılabilir ama sitelerde gözat nesnesine tıklama ve değeri yazma şeklinde net bişi bulamadım. Bu konuda yardımcı olurmusunuz?

Tıklama yok, file type elemanını tesbit edip focus komutunu kullanacaksınız, daha sonra sendKeys le göndereceksiniz. Hepsi bu kadar.

 

[turk-x]

Sayın veyselemre ;
tıklama olmadan gözat nesnesine(Type="file" ) focus nasıl yapılacak onu anlayamadım.
ben focus olayını kullanmadan aşağıdaki kodu kullanıyorum. ama sendkeys le gözat penceresine dosya adı yazamıyorum. Sendkeys gözat penceresi kapandıktan sonra devreye giriyor. Siz bi el atarmısınız?

WebBrowser1.Navigate "c:\git.htm"
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
With WebBrowser1.Document.all
     .dosya.Click              'Type="File" nesnesi
  SendKeys "c:\001.xml"   
  SendKeys "{enter}"
 .gonderbutonu.Click     
   End With

Yada Şu olabilirmi ?
Form kullanmadan Userform üzerinden xml gönderilecek adrese direk post edilerek Xml transferi yapılabilir mi?
normalde asp ve MSXML2.ServerXMLHTTP nesnesi kullanılarak bu yapılabiliyor. Ama excelde yaptığım bu programı benim haricimdede kullananlar olacağı için bu nesneyi kullanmak sorun çıkartabilir.

 

[veyselemre]

.dosya.focus

 

[turk-x]

Sayın veyselemre ;
Sanırım sendkeys ile bu işi çözemeyeceğim. Gözat nesnesi tıklanınca gözatma penceresi açıldığı için focus olayı işe yaramıyor.(Gerçi Gözat penceresini tıklayınca adres satırı focus olarak açıldığı için focus olayına gerek kalmıyor.) Gözat penceresi de kapanmadan sendkeys devreye giremediği için sorunum çözümsüz kalıyor.

Yardımcı olduğunuz için teşekkür ederim.