主题：如何读取CSV文件

 请教：如何自动从网上下载固定格式的CSV文件 读取后将符合条件的数据写到数据库中
大概是这样的，供应商有个网站对所有的产品有历史报价，访问的地址格式是这样的：http://table.XXXX.YYY.com/table.csv?s=产品名称
打开以后得到一个CSV文件，里面有这个产品的所有历史报价；
现在想实现输入产品名称和日期，自动去网站抓取数据包将某天的报价读取到本地数据库中

 

此主题相关图片如下：qq截图20150816090944.jpg

把它当excel文件打开

下载参考

  谢谢 我想知道的关键点是 如何让FT自动去下载这个CSV文件？

看4楼

 已经基本实现需求  非常感谢

综合一下。

 

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