Excel股票管理系统 -- Excel Stock 12.05.01(版本更新)

neone

新年新景象，希望股市大红。特别做了一个搜索引擎驱动的股票管理系统（Excel Stock 12.02.01）方便一下股民们，在此放出跟大家分享。因本人技术有限，如有不足请大家指点。

Nov 14, 2012 更新 -- Ver 12.05.01

由于有道更新了搜索结果页面布局，导致旧版web query取不到正确的数据，现在应该不能用了。
我后面修改了一下抓数的逻辑，更新/增加了一些功能。至于有什么功能，我也没有比较，大家试用就知道了！

冷雪飞

你忘了上传啊

neone

冷雪飞 发表于 2012-2-1 17:35
你忘了上传啊

忘记了，已经上传。

huanghao028

添加一股，点击后出现这个。。

想问问楼主 用搜索引擎驱动 这个功能怎么实现的？ 谢谢

neone

huanghao028 发表于 2012-2-1 19:44
添加一股，点击后出现这个。。

想问问楼主 用搜索引擎驱动 这个功能怎么实现的？ 谢谢

我 是用Excel 2003 sp3写的，不知道是不是你的excel运行环境有差异而产生的错误。

这个程序用web query将从搜索引擎中的查询结果写到excel里的。

liucqa

Public Function wquery(ByVal pin As String, ByVal qtyp As Integer)
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    If qtyp = 1 Then
        pin = pin & "天气"
    End If
    With ThisWorkbook.Sheets("tmp")
        .Activate
        .Rows("1:65536").Delete
    End With
    On Error Resume Next
        With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.youdao.com/search?q=" & pin & "&ue=gb2312&keyfrom=web.index", _
        Destination:=Range("A1"))
        .Name = "search?q=" & pin & "&ue=gb2312&keyfrom=web.index"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Function

真是不错的程序，期待功能更加丰富。另外，在07下退出的时候提示兼容性问题，看看能不能把提示去掉

天气能否加上城市名称显示

lzlichun

功能不是很完善
还加了密
不给大家修改完善的机会

neone

liucqa 发表于 2012-2-2 01:35 Public Function wquery(ByVal pin As String, ByVal qtyp As Integer)     With Application         .S ...

1. 经2007调试，兼容性问题是由2007版web query查询结果写到Excel的格式化与2003版的程序文件不兼容所产生。我把上面代码中的xlWebFormattingRTF改为xlWebFormattingNone就可以了。
2. 城市名称已经在天气查询结果的底纹上显示了。
另，由于受搜索引擎查询结果的内容限制，现只能做股票的实时查询，其它功能暂时未能尽善，不知是否有一些好的建议？

neone

lzlichun 发表于 2012-2-2 09:52 功能不是很完善 还加了密 不给大家修改完善的机会

密码为wen@ne0ne，
有何不足的地方，望赐教。

liucqa

neone 发表于 2012-2-2 09:53
1. 经2007调试，兼容性问题是由2007版web query查询结果写到Excel的格式化与2003版的程序文件不兼容所产生 ...

可以考虑增加多日数据查询，生成图表。或者换成其他股票网站数据