想通过VBS获取指定网页中的文本，例如时间、天气等元素。

URL = ">

用cells(1,1)value取得时得到2014/01/26 17:30:19

cells(1,1)value2取得时得到 416657293865741

取得单元格的值还有Formular1c1以及Formula

实在不行就先进行Cells(1,1)select然后用selectionvalue

或format(416657293865741,"yyyy/mm/dd hh:mm:ss")

方法一，调用javascript获取毫秒时间。

Set sc = CreateObject("ScriptControl")

scLanguage = "javascript"

t = sceval("new Date()getTime()")

MsgBox DateAdd("s", Fix(t / 1000), "1970-1-1 8:00") & "" & Right(t, 3)

方法二，用WMI方法，缺点是速度慢，获取一次时间大约需要15毫秒。

Set wmi = GetObject("winmgmts:\\\root\cimv2")

For Each e In wmiExecQuery("select LocalDateTime from Win32_OperatingSystem")

  t = eLocalDateTime

  MsgBox Left(t, 4) & "-" & Mid(t, 5, 2) & "-" & Mid(t, 7, 2) & " " _

      & Mid(t, 9, 2) & ":" & Mid(t, 11, 2) & ":" & Mid(t, 13, 2) _

      & Mid(t, 15, 4)

Next

如果只计算时间间隔，用两次Timer函数，精确到八分之一毫秒。

t0=Timer

MsgBox "暂停"

MsgBox "暂停了" & Timer-t0 & "毫秒"

以上就是关于想通过VBS获取指定网页中的文本，例如时间、天气等元素。全部的内容，包括:想通过VBS获取指定网页中的文本，例如时间、天气等元素。、用VBS或VB查找文件夹里最新时间的EXCEL里指定的文字，如果有，返回一个对话框提示，这个应该怎么写、VBS怎么读取excel的时间类型等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！