MS Excel

Téma: ovládnutí internet exploreru

Zaslal/a dream2003 13.8.2014 15:48

Ahoj, potřeboval bych pomoci s následujícím mám viz kód kde se mi otevře daná stránka a zašle hodnota z buňky já bych potřeboval aby hodnota buňky byla buď s entrem nebo se odentrolovalo poté co načte do IE tuto hodnotu děkuji za pomoc

Sub submitFeedback3()
Dim x As String, IE As Object

Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://104.100.36.21/index.php"

Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend

x = Cells(1, 1).Text
' **********************************************************************
delay 5
IE.Document.getElementById("proc").Value = x

'**********************************************************************

Set IE = Nothing

Application.ScreenUpdating = True
End Sub

Private Sub delay(seconds As Long)
Dim endTime As Date
endTime = DateAdd("s", seconds, Now())
Do While Now() < endTime
DoEvents
Loop
End Sub

Zaslat odpověď >

€Ł мσşqμΐτσ(14.8.2014 7:25)#021113

ahoj,
napadly mě dvě možnosti:

1. možnost (pomocí msgboxu)
Sub submitFeedback3()
Dim IE As Object
Public x As String
Dim retval As Integer
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://104.100.36.21/index.php"
Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend
x = Cells(1, 1).Text

' **********************************************************************
'delay 5
retval = MsgBox("zmačkni enter pro pokračování", vbOKOnly)
IE.Document.getElementById("proc").Value = x
'**********************************************************************
Set IE = Nothing
Application.ScreenUpdating = True
End Sub

2. možnost (OnKey)
Dim x As String
Dim IE As Object
Sub submitFeedback4()
Application.ScreenUpdating = False
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://104.100.36.21/index.php"
Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend
x = Cells(1, 1).Text

' **********************************************************************
'delay 5
Application.OnKey "{ENTER}", "Vypln"
Application.OnKey "~", "Vypln"
Application.OnKey "{ESCAPE}", "ResetTlac"
Exit Sub
' **********************************************************************
End Sub

Sub Vypln()
Call ResetTlac
IE.Document.getElementById("proc").Value = x
Set IE = Nothing
Application.ScreenUpdating = True
End Sub

Sub ResetTlac()
Application.OnKey "{ENTER}"
Application.OnKey "~"
Application.OnKey "{ESCAPE}"
End Subcitovat

dream2003(14.8.2014 10:24)#021134

díky za pomoc nakonec jsem použil řešení přes msgbox ještě jednou díkycitovat

Téma: ovládnutí internet exploreru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje