[VBA ] 陣列索引超過範圍???
因為我是看著VBA程式碼練習的
可是卻出現陣列索引值超過範圍，超奇怪的
有高手大大可以解答一下嗎
『TextBox7.Text = O11(RecordNo, 1)』這一行會出現陣列索引值超過範圍
Private Sub UserForm_Activate()
Dim i, j As Integer
Open "C:\O11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, O11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\H11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, H11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\C11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, C11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\L11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, L11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
Close #1
Open "C:\V11.CSV.xls" For Input As #1
i = 0: j = 1
While Not EOF(1)
Input #1, V11(i, j)
j = j + 1
If j > 9 Then
i = i + 1
j = 0
End If
Wend
RecordNo = i - 1
Close #1
'計算單日報酬
For j = 2 To 9
For i = 2 To RecordNo
R11(i, j) = Format((Val(C11(i, j)) - Val(C11(i - 1, j))) / Val(C11(i - 1, j)), "0.000")
Next i
Next j
TextBox6.Text = O11(1, 1)
TextBox7.Text = O11(RecordNo, 1)
TextBox8.Text = Left(O11(0, 2), 4)
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.130.40.9
→
12/08 11:20, , 1F
12/08 11:20, 1F
→
12/08 14:11, , 2F
12/08 14:11, 2F
→
12/08 17:14, , 3F
12/08 17:14, 3F
→
12/08 23:07, , 4F
12/08 23:07, 4F