Çözüldü ınternet sıtesınde verı alma

mustafa070707' Alıntı:

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

bu sıtedekı en son yayınlanan tablodakı verılerı nası excele alabılırım.

Genişletmek için tıkla...

Deneyiniz

elıne saglık ustad güzel olmuş fazla olmazsa sizden birşey daha istesem.

'whatsap üzerinden mesaj gönderir**************************************************
Dim phoneNumb As String, appUrl As String
Dim shell As Object

If Me.TextBox19.Value = "" Then
MsgBox "Tel No Boş Kişilerden Tel No Ekleyin!", vbInformation, "Zorunlu !"
Me.TextBox19.SetFocus
Exit Sub

End If




phoneNumb = "+90" & Me.TextBox19.Text

appUrl = " " & phoneNumb

Set shell = CreateObject("WScript.Shell")


shell.Run "chrome.exe " & appUrl ' "msedge.exe "
Application.Wait (Now + TimeValue("0:00:08")) ' internetiniz yavaşsa uzatın



' Dosya gönderme komutları
Application.SendKeys "+{TAB}+{TAB}"
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("{DOWN 1}", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("00:00:02"))

shell.SendKeys strfile ' dosya
Application.Wait (Now + TimeValue("0:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("0:00:03"))

' Dosya gönder
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("0:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("0:00:01"))



Set shell = Nothing



bu kod ıle whatsap uzerınden mesaj gonderıyorum sorun yok guzel calısıyor fakat mesajı gonderdıkten sonra chorome alta alsın ıstıyorum userform gözuksun yani.

mustafa070707' Alıntı:

'whatsap üzerinden mesaj gönderir**************************************************
Dim phoneNumb As String, appUrl As String
Dim shell As Object

If Me.TextBox19.Value = "" Then
MsgBox "Tel No Boş Kişilerden Tel No Ekleyin!", vbInformation, "Zorunlu !"
Me.TextBox19.SetFocus
Exit Sub

End If




phoneNumb = "+90" & Me.TextBox19.Text

appUrl = "

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

" & phoneNumb

Set shell = CreateObject("WScript.Shell")


shell.Run "chrome.exe " & appUrl ' "msedge.exe "
Application.Wait (Now + TimeValue("0:00:08")) ' internetiniz yavaşsa uzatın



' Dosya gönderme komutları
Application.SendKeys "+{TAB}+{TAB}"
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("{DOWN 1}", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("00:00:02"))

shell.SendKeys strfile ' dosya
Application.Wait (Now + TimeValue("0:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("0:00:03"))

' Dosya gönder
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("0:00:01"))
Call SendKeys("{ENTER}", True)
Application.Wait (Now + TimeValue("0:00:01"))



Set shell = Nothing



bu kod ıle whatsap uzerınden mesaj gonderıyorum sorun yok guzel calısıyor fakat mesajı gonderdıkten sonra chorome alta alsın ıstıyorum userform gözuksun yani.

Genişletmek için tıkla...

Deneyiniz;

hwnd = FindWindow("Chrome_WidgetWin_1", vbNullString) bu kısımda hata verdı ama hocam

tesekkurler allah razı olsun