自定义结构体数组一次导入EXCEL区域

zbs112

'股票收盘的相关数据
Public Type StockData
    sDate  As String
    dOpen  As String
    dHigh   As Double
    dClose   As Double
    dLow  As String
End Type

Private Sub CommandButton1_Click()

    Dim aData() As StockData
    ReDim aData(3)

    aData(1).sDate = "2016-04-01"
    aData(1).dOpen = "2997.088"
    aData(1).dHigh = "3009.673"
    aData(1).dClose = "3009.530"
    aData(1).dLow = "2956.247"

    aData(2).sDate = "2016-04-05"
    aData(2).dOpen = "3000.938"
    aData(2).dHigh = "3057.330"
    aData(2).dClose = "3053.065"
    aData(2).dLow = "2993.148"

    aData(3).sDate = "2016-04-06"
    aData(3).dOpen = "3039.745"
    aData(3).dHigh = "3059.794"
    aData(3).dClose = "3050.592"
    aData(3).dLow = "3029.005"

    Range("A2").Resize(3, 6) = aData
    '让结构体数组一次贴粘到EXCEL区域

End Sub

zbs112

    Range("A2").Resize(3, 6) = aData
    '让结构体数组一次贴粘到EXCEL区域

这如何改，数据上千条，上述只简化为3条。

求助，附件在本楼。

百度不到去谷歌

写个循环依次把数据写入到二维数组中不就好了

zbs112

二维数据是可以实现，不过我已经在其他相关程序里，已经对数据定义为结构性数据,所以求助