- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何读取CSV文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73289)
-- 发布时间：2015/8/16 9:12:00
-- 如何读取CSV文件
请教：如何自动从网上下载固定格式的CSV文件 读取后将符合条件的数据写到数据库中
大概是这样的，供应商有个网站对所有的产品有历史报价，访问的地址格式是这样的：http://table.XXXX.YYY.com/table.csv?s=产品名称
打开以后得到一个CSV文件，里面有这个产品的所有历史报价；
现在想实现输入产品名称和日期，自动去网站抓取数据包将某天的报价读取到本地数据库中
此主题相关图片如下：qq截图20150816090944.jpg
-- 发布时间：2015/8/16 9:21:00
--
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\我的文档\\Foxtable项目\\table.csv")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
MessageBox.Show(Rg.Rows.Count)
MessageBox.Show(Rg.Columns.Count)
MessageBox.Show(Rg.Count)
App.Quit
-- 发布时间：2015/8/16 9:22:00
--
把它当excel文件打开
-- 发布时间：2015/8/16 9:24:00
--
下载参考
-- 发布时间：2015/8/16 9:24:00
--
谢谢 我想知道的关键点是 如何让FT自动去下载这个CSV文件？
-- 发布时间：2015/8/16 9:30:00
--
看4楼
-- 发布时间：2015/8/16 10:14:00
--
已经基本实现需求 非常感谢
-- 发布时间：2015/8/16 10:16:00
--
综合一下。
Network.DownloadFile("http://table.finance.yahoo.com/table.csv?s=000001.sz", "D:\\test.csv","" ,"" ,True, 100000, True)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.csv")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
MessageBox.Show(Rg.Rows.Count)
MessageBox.Show(Rg.Columns.Count)
MessageBox.Show(Rg.Count)
App.Quit