无法从 vba 在 Fitnesse 的 textarea 中写入内容

Question

我正在开发一个 VBA，它将打开 Fitnesse 链接以创建一个新的测试页面并写入页面名称、页面内容并单击保存。

1. 我正在使用 VBA 库中的 InternetExplorerMedium 访问 Fitnesse 链接以创建新的测试页面（成功）。
2. 然后我会将excel表格中的内容读入一个变量（成功）。
3. 然后我将内容粘贴到新创建的测试页面的文本区域（未发生）。
4. 然后我会点击保存（成功）

Set IE = New InternetExplorerMedium
sURL = "FitnesseURL"
With IE
    .Navigate sURL
    .Visible = True
End With
IE.Document.getElementById("pagename").Value = "Dummay_Page" '--> This is Page name text Box
StrVal = <Content from Sheet1>
IE.Document.getElementById("pageContent").innerText = StrVal '--> This is Page Textarea
Set btn = IE.Document.getElementByName("save") ' -- This is a Page button
btn(0).Click

我希望将 Sheet1 中的内容粘贴到 Fitnesse 测试页面 textarea 中，但它没有发生，我尝试了 .innerText、.innerHTML 和 .Value 选项

Answer 1

请尝试使用 F12 开发者工具检查 html 元素，确保它包含 pagename 和 pageContent 元素。此外，请检查您的代码，您在 getElementsByName 方法中丢失了一个 's'。

如果还是不行，我建议你可以尝试使用下面的代码（使用 CreateObject 方法创建 IE 对象，下面的代码对我来说效果很好。）：

Sub test()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.application")

sURL = "website url"

With IE
    .Navigate sURL
    .Visible = True
End With


IE.Document.getElementById("pagename").Value = "Dummay_Page" '--> This is Page name text Box

StrVal = <cocntent from sheet1>

IE.Document.getElementById("pageContent").innerText = StrVal '--> This is Page Textarea

Set btn = IE.Document.getElementsByName("save")(0) '-- This is a Page button

btn.Click

End Sub