取任意某一天股票的收盘价

星星人类

1. Sub OpenWebPage2()
   
2.     Dim aa As Variant
   
3.     ksrq = Format(Range("a2"), "yyyymmdd")
   
4.     jsrq = Format(Range("a" & Range("A65536").End(xlUp).Row), "yyyymmdd")
   
5.     dm = Range("b2")
   
6.     If Left(Val(dm), 2) = 60 Then
   
7.         wz = "http://quotes.money.163.com/service/chddata.html?code=0" & dm & "&start=" & ksrq & "&end=" & jsrq & "&fields=TCLOSE"
   
8.     Else
   
9.         wz = "http://quotes.money.163.com/service/chddata.html?code=1" & dm & "&start=" & ksrq & "&end=" & jsrq & "&fields=TCLOSE"
   
10.     End If
    
11.         
    
12.         ActiveWorkbook.FollowHyperlink Address:=wz, NewWindow:=True
    
13.         arr = Range("a2:d4")
    
14.         ActiveWorkbook.Close SaveChanges:=False
    
15.         Range("f2:i4") = arr
    
16.          
    
17.          Range("c2") = Application.VLookup(Range("a2"), arr, 4, 0) '为什么这个取不到数据
    
18.          
    
19.          Range("c3") = Application.VLookup(Format(Range("a2"), "yyyy-mm-dd"), arr, 4, 0) '为什么这个取不到数据，转换了格式也不行
    
20.          
    
21.          Range("c4") = Application.VLookup(Application.Text(Range("a2"), "yyyy-mm-dd"), arr, 4, 0) '为什么这个取不到数据，转换了格式也不行
    
22.          
    
23.          Range("c5") = Application.VLookup("2019-9-2", arr, 4, 0) '可以找到，第一个参数只能手输入日期可以查找到
    
24.          
    
25.          Range("c6") = Application.VLookup(Range("a2"), Range("f2:i4"), 4, 0) '这个代码可以找到，但需要将数组放到工作表中
    
26. 
    
27.    
    
28.    
    
29. End Sub
    

复制代码

原理：从网上抓取一个.csv文件，取得相应日期的收盘价

1、从网上可以直接抓取数据而不用下载和打开.csv文件的过程吗？用什么代码解决



2、用vlookup函数在数组中查找相应日期的值，总是出问题，有三行代码是找不到？问题见代码。

EH_LOVE

可以 直接抓 取的 论坛有很多实例