主题：如何读取CSV文件

综合一下。

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