Scribd
Upload
16 views

Macro

Uploaded by

bala murugan
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
16 views

Macro

Uploaded by

bala murugan
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Dim OIE as Object

DIM OHDoc as HTMLDocument


Set OIE =createobject ("InternetExplorer.application")

With OIE
.Visible =True
.Navigate sSiteName
End with

Set OHDoc = OIE.Document


With OHDoc
.getElementById("").value=""
End with

Sub Test1()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "https://isharenew.dhl.com/sites/gscmaa/Lists/Operations
%20Cockpit/NewForm.aspx?Source=https%3A%2F%2Fround-lake.dustinice.workers.dev%3A443%2Fhttps%2Fisharenew%2Edhl%2Ecom%2Fsites%2Fgscmaa
%2FLists%2FOperations%2520Cockpit%2FProfile%2520View%2Easpx&RootFolder="
Do While (IE.Busy)
WScript.Sleep 100
Loop
'IEdocument.getElementById("Title_fa564e0f-0c70-4ab9-b863-
0177e6ddd247_$TextField").Value_ = "UN123"

HTMLDoc.all("Title_fa564e0f-0c70-4ab9-b863-0177e6ddd247_$TextField").Value_ =
"UN123"

End Sub

Sub Button1_Click()

Dim Title As Long


Dim Business_Partner_Name As Object
Dim URL As String
Dim gender As Object
Dim btnGo As Object

Dim Doc As Object, LastRow As Long, tblTR As Object


Set IE = CreateObject("internetexplorer.application")
IE.Visible = True

navigate:
IE.navigate "https://isharenew.dhl.com/sites/gscmaa/Lists/Operations
%20Cockpit/NewForm.aspx?Source=https%3A%2F%2Fround-lake.dustinice.workers.dev%3A443%2Fhttps%2Fisharenew%2Edhl%2Ecom%2Fsites%2Fgscmaa
%2FLists%2FOperations%2520Cockpit%2FProfile%2520View%2Easpx&RootFolder="

With oHDoc
.getElementById("Title").Value = ""
.getElementById("Business Partner Name *").Value = "FREIGHT FI"
.getElementById("Service *").Value = "IC"
End With

You might also like