excelhome在股票中的应用摘录集中营(每次记录一点，学一点）

jinsha2002

【原帖】跨表多列筛选并排序问题求解(公式与高级筛选做法)(mps777在5楼解答)
            

笔记：{=INDEX('13'!A:A,SMALL(IF($O2='13'!$E$2:$E$2465,ROW($2:$2465),4^8),COUNTIF(L$2:L2,L2)))}


补充内容 (2013-5-4 14:42):
编号：985295

jinsha2002

【原帖】[求助] 求按最大值输出的表达方法
            http://club.excelhome.net/thread-802581-1-1.html

jinsha2002

【原帖】 如何利用VBA从网络获取时间来校准计算机时间？
             http://www.excelpx.com/blog-42681-115.html

可以利用Microsoft.XMLHTTP来读取网页内容，请参考下列代码。
Sub 利用网络时间校对当前计算机时间()
    Dim objXML As Object
    Dim strTemp As String
    Dim lStart As Long
    Dim lEnd As Long
    Dim DtWeb As Date
   
    '建立XMLHTTP对象。并获取http://www.timeanddate.com/worldclock/city.html?n=33的网页Text
    '&Refresh=" & Rnd 是为了避免直接从IE缓存中读取
    Set objXML = CreateObject("Microsoft.XMLHTTP")
    Randomize   '初始化随机数，避免IE缓存重复
    objXML.Open "Get", "http://www.timeanddate.com/worldclock/city.html?n=33&Refresh=" & Rnd, False
    objXML.sEnd ""
    strTemp = objXML.responseText
    Set objXML = Nothing
   
    '对网页进行处理，找出当前日期和时间
    lStart = InStr(1, strTemp, "Current Time", vbTextCompare)
    lEnd = InStr(lStart, strTemp, "</strong>", vbTextCompare)
    strTemp = Mid(strTemp, lStart, lEnd - lStart)
    strTemp = Replace(strTemp, "Current Time</th><td><strong id=ct  class=big>", "")
    arr = Split(strTemp, ",")
    DtWeb = CDate(arr(1) & arr(2))
   
    '设置当前日期和时间
    Date = DtWeb
    Time = DtWeb
    MsgBox "日期和时间已经校对成功！" & vbCrLf & "当前日期和时间为：" & DtWeb
End Sub

时间处理除上述方法外，还可以采取以下方法

strTemp = ObjXML.getResponseHeader("Date")
ArrTmp = Split(DateTxt, " ")
lBd = LBound(ArrTmp)
DtWeb = Format(ArrTmp(lBd + 1) & "-" & ArrTmp(lBd + 2) & "-" & ArrTmp(lBd + 3), "yy-m-d") + CDate(ArrTmp(lBd + 4)) + "8:00:00"

利用网络获取时间的意义在于制作具有有效期验证的VBA程序，避免用户修改计算机时间作弊。

上述获取网页内容的方法还可以用于网页的分析以及实时更新Excel表格内容。

jinsha2002

【原帖】 excel分析股票-分享
         http://club.excelhome.net/thread-500989-1-1.html

jinsha2002

【原帖】[求助] 如何直接抓取网页上的数据
        http://club.excelhome.net/thread-439916-1-1.html

jinsha2002

【原帖】浅谈XMLHTTP对象(属性和方法)-VBA抓取网页数据
            浅谈XMLHTTP对象(属性和方法)-VBA抓取网页数据 (1)
                        XMLHTTP对象参考
                        XMLHttp成员
            浅谈XMLHTTP对象(属性和方法)-VBA抓取网页数据 (2)
                        readyState属性
                        responseBody属性
            浅谈XMLHTTP对象(属性和方法)-VBA抓取网页数据 (3)
                       responseStream属性
         responseText属性
         responseXML属性
            浅谈XMLHTTP对象(属性和方法)-VBA抓取网页数据 (4)
                      status属性
         statusText属性

jinsha2002

【原帖】获取基金股票数据

jinsha2002

【原帖】[分享] 工作薄更新链接问题小结

jinsha2002

jinsha2002 发表于 2013-3-16 14:26
【原帖】 [求助] 自动取当日最新股价.rar
         http://club.excelhome.net/thread-986173-1-1.html
...

问题解决，自动取当日最新股价

jinsha2002

jinsha2002 发表于 2013-3-16 14:26
【原帖】 [求助] 自动取当日最新股价.rar
         http://club.excelhome.net/thread-986173-1-1.html
...

问题已解决{:soso_e102:}