返回列表 上一主題 發帖

[發問] 如何顯示網站的時鐘時間

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-9-10 12:50 | 只看該作者

[發問] 如何顯示網站的時鐘時間

有些網站沒有顯示網站的時鐘時間，請教如何利用VBA，顯示出以下網站的時鐘時間，謝謝!
http://www.mobile01.com/hottopics.php?id=4
收藏 分享

donod

帖子
140 
主題
24 
精華
0 
積分
167 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-2-26 
最後登錄
2023-1-30 
3#
發表於 2013-9-10 15:41 | 只看該作者
回復 2# jakcy1234
十分感謝大大幫助!

TOP

jakcy1234

帖子
37 
主題
10 
精華
0 
積分
63 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2016-5-24 
2#
發表於 2013-9-10 15:17 | 只看該作者
  1. Sub get_time()

  3.     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
  4.     XmlHttp.Open "Get", "http://tw.yahoo.com/", False
  5.     XmlHttp.send
  6.     datetxt = XmlHttp.getResponseHeader("Date")
  7.     Set XmlHttp = Nothing
  8.     temdate = Split(datetxt, ",")
  9.     tempvar = Replace(temdate(1), "GMT", "")
  10.     temptim = Split(tempvar, " ")
  11.     Select Case temptim(2)
  12.     Case "Jan":
  13.     mon = "01"
  14.     Case "Feb":
  15.     mon = "02"
  16.     Case "Mar":
  17.     mon = "03"
  18.     Case "Apr":
  19.     mon = "04"
  20.     Case "Mar":
  21.     mon = "05"
  22.     Case "Jun":
  23.     mon = "06"
  24.     Case "Jul":
  25.     mon = "07"
  26.     Case "Aug":
  27.     mon = "08"
  28.     Case "Sep":
  29.     mon = "09"
  30.     Case "Oct":
  31.     mon = "10"
  32.     Case "Nov":
  33.     mon = "11"
  34.     Case "Dec":
  35.     mon = "12"
  36.     End Select
  37.     '//將獲取到的時間轉換為台北時間+8小時
  38.     timeGMT = temptim(3) & "年" & mon & "月" & temptim(1) & "日 " & temptim(4)
  39.     'timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
  40.     GetNetTime = DateAdd("h", 8, timeGMT)
  41.     Cells(1, 1) = GetNetTime
  42.     Cells(2, 1) = Now()

  44. End Sub
複製代碼
回復 1# donod



轉自google search ---- Excel-VBA學習-網路時間取得

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題