提取非字符串文本HTML VBA

Question

所以，我试图在Excel中使用VBA来获取html的日期，并且我在找到一种方法来提取我想要的文本时遇到问题：

newFile.txt

我想要提取5/22/2012 8:14:08，但因为它不是一个字符串而在克拉之间，我不知道该怎么做。有什么提示吗？

Answer 1

我发现我正在使用＆＃34; .innerText＆＃34;错误地，我能够使用以下代码片段。

Doc.getElementById("ctl00_ContentPlaceHolder1_lblDateCreated2").innerText

Answer 2

我认为你只是在寻找一个Mid()公式。如果A1中的URL / Span部分，则将其放在A2（或任何地方）：

=MID(A1,SEARCH(">",A1)+1,FIND("</",A1)-FIND(">",A1)-1)

Answer 3

您可以在VBA中使用split：

执行此操作

theString = "<SPAN id=ctl00_ContentPlaceHolder1_lblDateCreated2>5/22/2012 8:14:08 PM</SPAN>"
Temp = Split(theString, "ContentPlaceHolder1_lblDateCreated2>")(1)
Final = Split(Temp, "</")(0)

第一个Split将返回一个由两部分组成的数组：

Temp(0) = "<SPAN id=ctl00_"
Temp(1) = "5/22/2012 8:14:08 PM</SPAN>"

接下来，我们拆分临时（1）以删除关闭的SPAN标记并仅返回日期和时间。