Question

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

我正在使用VBA库中的InternetExplorerMedium访问Fitnesse链接以创建新的“测试”页面（成功）。
然后，我将Excel工作表中的内容读入变量（成功）。
然后，我将内容粘贴到创建的新“测试”页面的文本区域（不发生）。
然后我将单击“保存（成功）”

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 Test页面的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

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

1 个答案: