复制代码代码如下: Type MyType a1 As Long '标示码 a2 As Long '日期 a3 As Single '开盘价 a4 As Single '最高价 a5 As Single '最低价 a6 As Single '收盘价 a7 As Single '成交金额 a8 As Long '成交量 End Type Sub 按钮1_Click() Dim File2 As Integer Dim b As MyType File1 = FreeFile Open "sh600000.day" For Binary access Read As #File1 i = 1 Do While Not EOF(File1) Get #File1, , b Cells(i, 1) = b.a1 Cells(i, 2) = b.a2 Cells(i, 3) = b.a3 Cells(i, 4) = b.a4 Cells(i, 5) = b.a5 Cells(i, 6) = b.a6 Cells(i, 7) = b.a7 Cells(i, 8) = b.a8 i = i + 1 Loop Close #File1 End Sub
