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

jinsha2002

【原帖】 股票EXCEL版
http://club.excelhome.net/thread-778829-1-1.html

jinsha2002

【原帖】 [原创] Excel股票管理系统 -- Excel Stock 12.05.01(版本更新)
             http://club.excelhome.net/thread-821104-1-1.html

jinsha2002

【原帖】 [求助] 字典引用（代替vlookup）结果不配套
         http://club.excelhome.net/thread-982042-1-1.html

        http://club.excelhome.net/thread-981950-1-1.html

问题 字典查找股票评级.rar (63.16 KB, 下载次数: 119)

2013-3-20 20:59 上传

点击文件名下载附件

jinsha2002

   【原帖】 [已解决] 据股票中的ddx,ddy,ddz值来排序速度最快的VBA精品代码
           http://club.excelhome.net/thread-879001-1-1.html
           

jinsha2002

【原帖】 [求助] 有朋友要的提取大智慧软件历史数据的代码
         http://club.excelhome.net/thread-988226-1-1.html

1. Sub GetStockAllData()
   
2.      On Error Resume Next
   
3.         StockCode = "600000"
   
4.      If Len(StockCode) <> 6 Then Exit Sub
   
5.     If Left(StockCode, 2) = 60 Then
   
6.         openfile = "E:\DZH5\DATA\SHase\Day" & StockCode & ".day"
   
7.     Else
   
8.         openfile = "E:\DZH5\DATA\SZnse\Day" & StockCode & ".day"
   
9.     End If
   
10. Sheets(1).Select
    
11.     Range("A:P").ClearContents
    
12.     Dim File2 As Integer
    
13.     Dim b As MyType
    
14.     Dim DayNum
    
15.     file1 = FreeFile
    
16.     Open openfile For Binary Access Read As #file1
    
17.     DayNum = LOF(file1) / 40
    
18.     ReDim arr(DayNum, 7)
    
19.     'i = 1
    
20.     Do While Not EOF(file1)
    
21.     Get #file1, , b
    
22.     arr(i, 0) = b.a1
    
23.     arr(i, 1) = b.a2 / 1000
    
24.     arr(i, 2) = b.a3 / 1000
    
25.     arr(i, 3) = b.a4 / 1000
    
26.     arr(i, 4) = b.a5 / 1000
    
27.     arr(i, 5) = b.a6 / 1000
    
28.     arr(i, 6) = b.a7
    
29.     i = i + 1
    
30.     Loop
    
31.     Sheet1.Range("a2").Resize(UBound(arr), 7) = arr
    
32.     [a1:g1] = Split("日期,开盘价,最高价,最低价,收盘价,成交金额,成交量", ",")
    
33.     Columns("b:f").NumberFormat = "0.00"
    
34.     Close #file1
    
35. End Sub

复制代码

插入模块，加入如下代码
Type MyType
    a1 As Long '标示码
    a2 As Long '日期
    a3 As Long '开盘价
    a4 As Long '最高价
    a5 As Long '最低价
    a6 As Long '收盘价
    a7 As Long '成交金额
    a8 As Long '成交量
    a9 As Long
    a10 As Long
    End Type

jinsha2002

【原帖】 [转帖] 用vba自动登电子邮箱的代码
         http://club.excelhome.net/thread-960323-1-1.html

Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(9).Value = "myusername"
.Document.Forms(0).All(13).Value = "mypassword"
.Document.Forms(0).All(35).Click
End With
MsgBox "Ok"
End Sub
或者：
Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click
End With
MsgBox "Ok"
End Sub
附：
Sub show163tags()
Dim i As Byte
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
On Error Resume Next
For i = 1 To 100
If Len(.Document.Forms(0).All(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .Document.Forms(0).All(i).Name
Next
End With
MsgBox "ok"
End Sub
返回：
i=9  name=username
i=13  name=password
i=17  name=selType
i=24  name=remUser
i=26  name=secure
i=35  name=登录邮箱
i=40  name=登录网盘
i=62  name=style
i=63  name=product

jinsha2002

【原帖】 [求助] 导入该网站的历史数据？
       http://club.excelhome.net/thread-959543-1-1.html

jinsha2002

[原创] 网页采集(网页抓取)教程第一课-用XMLHTTP获取数据
          http://club.excelhome.net/thread-893760-1-1.html
      
          http://club.excelhome.net/thread-902266-1-1.html

jinsha2002

【原帖】 [求助] VBA做图表一列.rar
              http://club.excelhome.net/thread-906105-1-1.html

jinsha2002

【原帖】股票数据，跨工作表查询提取数据
        http://club.excelhome.net/thread-790168-1-1.html