復(fù)制代碼代碼如下: Type MyType a1 As Long '標(biāo)示碼 a2 As Long '日期 a3 As Single '開盤價(jià) a4 As Single '最高價(jià) a5 As Single '最低價(jià) a6 As Single '收盤價(jià) 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
