Userforma Günün tarihini bir siteden getirmek ve userformdan çıktı almak!

[raxxul]

Merhaba,
Hazırlamış olduğum ufak bir program var bu programı diğer kullanıcı arkadaşlara gönderiyorum ve formu doldurup geri bildirimde bulunuyorlar. Lakin bazı arkadaşların bilgisayar tarihleri hatalı ve geri bildirim yaptıklarında bu hata yüzünden takip konusunda sıkıntıya düşüyorum! Bu yüzden tarihi online olarak hazırlamış olduğum userformda yer alan textbox2'ye güncelliğinden emin olduğum bir siteden almak ve yazdırmak istiyorum.

Ayrıca yine bu hazırlamış olduğum userformu pdf'e dönüştürerek çıktı almak istiyorum. http://www.excel.web.tr/f48/userformu-pdf-olarak-kaydetme-t85825.html linkini inceledim. Direk olarak belirli lokasyona yazdırıyor. Ben ise kendi lokasyonumu normal bir yeni exceli kaydeder gibi kaydedebilmek istiyorum. [ Şu anda geri bildirimi printscreen ile painte yapıştırarak çözüyorlar ben yeni bir yol bulanada kadar ( ]

Bu vba konusunda baya yeniyim ve forumdaki örnekleri inceleyerek tecrübemi arttırmaya çalışıyorum! Dilimiz sürçtüyse affola!
Şimdiden Teşekkürler!

 

[Murat OSMA]

Deneyiniz;

Private tarih As Date
Private Sub Workbook_Open()
On Local Error Resume Next
Dim net As Object
Set net = CreateObject("InternetExplorer.Application")
net.navigate "http://www.yoncamelek.com/tarih.asp"
While net.busy: Wend
'Do: Loop Until Not net.busy ' bu da olabilir
'10 If net.busy Then GoTo 10 ' bu da olabilir
'Do While net.busy: Loop ' bu da olabilir
'Do Until Not net.busy: Loop ' bu da olabilir
tarih = net.document.activeelement.innertext
If Err Then
MsgBox Err.Number & " " & Err.Description & vbNewLine & _
"Adres yanıt vermiyor yada bağlantınız kesildi.", vbCritical, "Hata Oluştu"
Err.Clear: Exit Sub
End If
Range("A1").Value = tarih
Set net = Nothing
End Sub

 

[raxxul]

Deneyiniz;

Private tarih As Date
Private Sub Workbook_Open()
On Local Error Resume Next
Dim net As Object
Set net = CreateObject("InternetExplorer.Application")
net.navigate "http://www.yoncamelek.com/tarih.asp"
While net.busy: Wend
'Do: Loop Until Not net.busy ' bu da olabilir
'10 If net.busy Then GoTo 10 ' bu da olabilir
'Do While net.busy: Loop ' bu da olabilir
'Do Until Not net.busy: Loop ' bu da olabilir
tarih = net.document.activeelement.innertext
If Err Then
MsgBox Err.Number & " " & Err.Description & vbNewLine & _
"Adres yanıt vermiyor yada bağlantınız kesildi.", vbCritical, "Hata Oluştu"
Err.Clear: Exit Sub
End If
Range("A1").Value = tarih
Set net = Nothing
End Sub

yardımınız için teşekkür ederim. Sorunsuz olarak çalışıyor.

 

[Murat OSMA]

Rica ederim, iyi günler...