VBA fils microsoft form 但提交时所有字段都是空白

Question

这是我的代码的一部分：

For Each itm In IE.document.all
If itm = "[object HTMLInputElement]" Then
n = n + 1
var_dados = Empty
itm.Focus
itm.Click
Select Case n
Case 1
    var_dados = Worksheets("Rosto").Range("d8")
Case 3
    var_dados = Worksheets("Rosto").Range("d9")
'code here
itm.value = var_dados

数据进入表单，我们在那里看到它，但是当提交表单并且您去查看时，所有字段都是空白的。我在做什么？

Answer 1

我想我有一个解决方法

在此之后：

itm.value = var_dados

我用过：

itm.Focus
itm.Click

他们使用了 senkeys。 sendkeys 需要是某种文本，case return 或 enter 无效。

成功了

VBA fils microsoft form 但提交时所有字段都是空白

VBA fills microsoft form but when submited all fields are blanks

forms

internet-explorer

vba