Блог

Главная - Вопросы по программированию - VBA Для заполнения формы

VBA Для заполнения формы

#html #excel #vba #vba6

Вопрос:

У меня есть написанный код, который делает все в соответствии с требованиями. Область, в которой у меня есть проблема, заключается в том, что он не принимает входные данные из Excel для одной из форм.

Я также прикрепил изображение HTML-страницы. введите описание изображения здесь

 Sub Appreciation()
Dim LastRow As Long
Dim IE As InternetExplorer
Dim aEle As HTMLLinkElement
Dim y As Integer
Dim reslt As String
Dim objCollection As Object
Dim doc As HTMLDocument

Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("data")

Dim i As Long

LastRow = sht.Cells(sht.Rows.count, "A").End(xlUp).Row

'Open link
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://some link"
Do
DoEvents
Loop Until IE.readyState = 4
'Open customer section
Set allhyperlink = IE.document.getElementsByTagName("A")

For Each hyper_link In allhyperlink
If hyper_link.innerText = "Add Range" Then
hyper_link.Click
Exit For
End If
Next
'linking excel
Application.Wait (Now   TimeValue("0:00:4"))

Worksheets("data").Activate
For i = 2 To LastRow   'loop
Set doc = IE.document
   IE.document.getElementById("designation").Value = 
ThisWorkbook.Sheets("data").Range("C" amp; i)
IE.document.getElementById("token-input-tags").Value = 
ThisWorkbook.Sheets("data").Range("F" amp; i)  'tags

IE.document.getElementById("frmaddcards").Value = 
ThisWorkbook.Sheets("data").Range("A" amp; i)
IE.document.getElementById("logopicture").Click
IE.document.getElementById("FileInput").Click


 'This is where i have problem
 doc.getElementsByClassName("cke_editable cke_editable_themed 
 cke_contents_ltr cke_show_borders")(0).Value = "ct"    'i have also 
 tried with (0), (1)...so on and also without defining the index

 Next i

 End Sub
Метки: