- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]ExcelVBA股piao历史数据转换到Foxtable (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145200)
-- 发布时间：2020/1/12 10:16:00
-- [求助]ExcelVBA股piao历史数据转换到Foxtable
在网上找到一款用ExcelVBA制作的股票历史数据获取程序，如何将它转换到Foxtable,请各位老师指教，谢谢！！
-- 发布时间：2020/1/12 11:34:00
--
看下这个
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=19482&page=4
此主题相关图片如下：1.jpg
[此贴子已经被作者于2020/1/12 11:36:02编辑过]
-- 发布时间：2020/1/12 13:01:00
--
Dim qr, zr, dm As String
dm = "1000002"
qr = "20191201"
zr = "20191231"
Dim obj_down As New System.Net.WebClient()
Dim data As String = obj_down.DownloadString("http://quotes.money.163.com/service/chddata.html?code=" & dm & "&start=" & qr & "&end=" & zr & "&fields=TCLOSE;HIGH;LOW;TOPEN;LCLOSE;CHG;PCHG;TURNOVER;VOTURNOVER;VATURNOVER;TCAP;MCAP")
MessageBox.Show(data)
用以上代码获取data值为：
此主题相关图片如下：捕获.png
下一步如何写代码，请各位老师指教，谢谢！！
-- 发布时间：2020/1/12 17:30:00
--
将第一行文字删除用Replace（）已解决，如何将字符串按日期分解，请各位老师指教，谢谢！！
-- 发布时间：2020/1/12 21:24:00
--
参考：http://www.foxtable.com/webhelp/topics/2629.htm