获取网络时间

1092062741

如何在电子表格打开的同时获取网络北京日期，并在单元格内显示出来。

clyfd

MsgBox Date
MsgBox Time

clyfd

单元格内显示出来
Private Sub Workbook_Open()
Dim CurrentTime, CurrentDate

CurrentTime = Time
CurrentDate = Date
Cells(1, 1) = CurrentTime
Cells(1, 2) = Time + Date
End Sub

clyfd

看看可以不

linyh1742595842

Private Function getWebDatetime() As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "POST", "http://www.baidu.com", False
    XmlHttp.send
    getWebDatetime = CDate(1 / 3 + CDbl(CDate(Mid$(XmlHttp.getResponseHeader("Date"), 5, 21))))
    Set XmlHttp = Nothing
End Function

kldxlb

Function getCurrentTime()
    With CreateObject("Microsoft.XMLHTTP")
        .Open "HEAD", "https://www.baidu.com/", False
        .send
        t = .getResponseHeader("Date")
    End With
    getCurrentTime = CDate(1 / 3 + CDbl(CDate(Mid$(t, 5, 21))))
End Function
用百度服务器的时间，或者换成其他稳定可靠的网址也可以

1092062741

clyfd 发表于 2018-4-16 17:09
MsgBox Date
MsgBox Time

1.感谢您的热心回复，其次是表达我的歉意。
2.因为时间过于匆忙，我没有很好的表达我的意思：我的意思是如何一打开文档，某个单元格就会自动获取特定网站的网络时间。
3.我是一只完完全全的菜鸟，VBA什么的，完全不知道怎么操作

1092062741

kldxlb 发表于 2018-4-16 19:15
Function getCurrentTime()
    With CreateObject("Microsoft.XMLHTTP")
        .Open "HEAD", "https: ...

感谢回复，因为对于VBA我完全是门外汉，具体的操作我一点都不懂。
这段代码直接粘贴到VBA编辑器里面就可以了吗？哪个单元格会显示出结果来？

clyfd

1092062741 发表于 2018-4-16 23:55
感谢回复，因为对于VBA我完全是门外汉，具体的操作我一点都不懂。
这段代码直接粘贴到VBA编辑器里面就可 ...

单元格内显示出来
Private Sub Workbook_Open()
Dim CurrentTime, CurrentDate

CurrentTime = Time
CurrentDate = Date
Cells(1, 1) = CurrentTime
Cells(1, 2) = Time + Date
End Sub

把这个代码放在thithisworkbook里面
单位电脑无法传附件

haofeng4645

clyfd 发表于 2018-4-17 08:26
单元格内显示出来
Private Sub Workbook_Open()
Dim CurrentTime, CurrentDate

小兄弟，人家要的是网络时间，不是本机的系统时间，本机时间会出错的。