Dim p(6) As String p(0) = "300464" p(1) = "300465" p(2) = "300466" p(3) = "300468" p(4) = "300469" p(5) = "300473" For i As Integer = 0 To 5 try Dim xz As String = "http://table.finance.yahoo.com/table.csv?s=" & p(i) & ".sz" Dim bc As String = "d:\测试\" & p(i) & ".csv" Network.DownloadFile(xz,bc) catch ex As exception msgbox(ex.message) End try Next