matlab代码

以后再补充这是干嘛的，现在只是先整理下代码

Sub cnft_click()

Dim arrAllData, arrb

Range("A:F").ClearContents

arrAllData = GetStockAllData(Range("H4"))

Application.ScreenUpdating = False

On Error Resume Next

arrb = Array("日期", "开盘价", "最高价", "成交价", "最低价", "成交量")

Dim i As Long

For i = 0 To 5

Range("A1").Offset(0, i).Value = arrb(i)

Next i

For i = 0 To UBound(arrAllData)

For j = 0 To 5

Range("a2").Offset(i, j).Value = arrAllData(i, j)

Next j

Next i

On Error GoTo 0

Application.ScreenUpdating = True

End Sub

Function GetStockAllData(ByRef StockCode As String)

On Error Resume Next

If Len(StockCode) <> 6 Then Exit Function

'判断上证还是深证

If Left(StockCode, 2) = 60 Or Left(StockCode, 2) = 58 Then

StockCode = "sh" & StockCode

ElseIf Left(StockCode, 2) = 0 Or Left(StockCode, 2) = 3 Then

StockCode = "sz" & StockCode

Else

StockCode = "sh600000"

End If

Dim iData As String

iData = Format(Month(Date), "00")

iData = iData & Format(Day(Date), "00")

iData = Year(Date) & iData

StockCode = "http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=" & StockCode

StockCode = StockCode & Chr(38) & "end_date=" & iData

StockCode = StockCode & Chr(38) & "begin_date=20080101"

'开始读取XML内容

Dim XML, objNode, objAtr As Object

Dim nCntChd, nCntAtr As Long

Set XML = CreateObject("Microsoft.XMLDOM")

With XML

.async = False

.Load (StockCode)

End With

Set objNode = XML.documentElement

nCntChd = objNode.ChildNodes.Length - 1 'XML的记录个数

Dim arrA

ReDim arrA(0 To nCntChd, 0 To 6)

'开始遍历

For i = 0 To nCntChd

Set objAtr = objNode.ChildNodes.Item(i)

nCntAtr = objAtr.Attributes.Length - 1

For j = 0 To nCntAtr '遍历一条记录里面的所有的记录项，记录是从0开始的

arrA(i, j) = objAtr.Attributes.Item(j).Text

Next j

Next i

Set objAtr = Nothing

Set objNode = Nothing

Set XML = Nothing

If Err.Number > 0 Then MsgBox ("查不到股票信息")

Err.Clear

On Error GoTo 0

GetStockAllData = arrA

End Function