[分享]股市行情!(12月26日又改进了!)

shangnw · 发表于 2007-12-23 13:10

QUOTE:

以下是引用lkyzhs在2007-12-23 12:25:59的发言：
比如如何查002014和000806？？？

未经楼主允许，擅自改了一下，可以满足你的需求！

Qa9bjb4A.rar (11.52 KB, 下载次数: 38)

yanjie · 发表于 2007-12-23 16:04

改进了一些地方,加入了web网站中格式,修改了3位代码的错误,大家去下载,希望你们喜欢!

ifKCdRYp.rar (15.92 KB, 下载次数: 47)

[此贴子已经被作者于2007-12-23 17:33:13编辑过]

兰州人 · 发表于 2007-12-23 19:53

下载了，收藏了，学习了。

lkyzhs · 发表于 2007-12-24 14:16

非常感谢，好东西，我正需要。提点建议：刷新太慢，得手动进行，能否改成定时刷新？比如每秒刷一次？另外，价格显示能否将0分也显示（保留0）

lkyzhs · 发表于 2007-12-24 14:22

能否选择与大智慧同步接收数据？而且只在某单元格接收即时价格，其他的数据通过计算得出？另外，表格中的相关（

ＫＦＨＴＮＢ

）是什么意思，是否可以删除？

[此贴子已经被作者于2007-12-24 14:22:58编辑过]

zhong_chen · 发表于 2007-12-24 18:05

QUOTE:

以下是引用lkyzhs在2007-12-24 14:22:05的发言：
能否选择与大智慧同步接收数据？而且只在某单元格接收即时价格，其他的数据通过计算得出？另外，表格中的相关（

ＫＦＨＴＮＢ

）是什么意思，是否可以删除？

我是楼主,只需做简单的修改,就可以删除最后一列!示例文件如下:

COjitoYL.rar (15.89 KB, 下载次数: 20)

[此贴子已经被作者于2007-12-24 18:06:14编辑过]

linnk · 发表于 2007-12-24 18:27

Option Explicit

Sub 股市行情()
Dim wsg As Worksheet
Dim QT As QueryTable
Dim Fina1row As Long
Dim i As Integer
Dim cntr As String
Dim rg As Range
Dim crg As Range

Set wsg = Worksheets("股市行情")

Fina1row = wsg.Range("a65536").End(xlUp).Row
    For i = 6 To Fina1row
    Select Case i
        Case 6
            cntr = "URL;http://stock.business.sohu.com/p/pl.php?code=" & wsg.Cells(i, 1).Value
        Case Else
            cntr = cntr & "," & Format(wsg.Cells(i, 1).Value, "000000")
    End Select
    Next i

For Each QT In wsg.QueryTables
QT.Delete
Next QT
Set rg = wsg.Range(Cells(5, 1), Cells(Fina1row, 11))
rg.Clear

Set QT = wsg.QueryTables.Add(Connection:=cntr, Destination:=wsg.Range("a5"))
With QT
    .Name = "我的股市行情"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingRTF
    .WebTables = "13"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
End With

QT.Refresh BackgroundQuery:=False

Set crg = QT.ResultRange.Columns(1)
crg.NumberFormatLocal = "000000"
QT.ResultRange.Columns(QT.ResultRange.Columns.Count).Clear

Range("a5").CurrentRegion.Borders.LineStyle = xlContinuous

End Sub
Public Sub 刷新在每隔20秒钟后运行()

Application.OnTime Now + TimeValue("00:00:20"), "刷新"
End Sub
Public Sub 刷新()
Application.ScreenUpdating = False
With Sheet1.QueryTables(1)
If .PreserveFormatting = False Then .PreserveFormatting = True
.Refresh
End With
Application.ScreenUpdating = True
Call 刷新在每隔20秒钟后运行

End Sub

我按照这个代码完全自己做了一遍，为什么提示Set QT = wsg.QueryTables.Add(Connection:=cntr, Destination:=wsg.Range("a5")) 这一句错误

lkyzhs · 发表于 2007-12-24 19:05

好像数据不能20刷新一次啊？？？？

appleuser · 发表于 2007-12-25 00:18

为什么我在最后面加上000858然后刷新一下,就提示 .WebDisableRedirections = False错误?

kxs5555 · 发表于 2007-12-25 10:53

多谢分享，我有一个问题还想请教：如果该网页需用户名和密码才能登录该如何？

		自动登录	找回密码
密码			免费注册