[VBA ] 自訂表單可以在A電腦跑，到另一台就錯誤
小弟我在筆電上寫ＶＢＡ，要執行自訂表單，可以正確執行
換了另外一台電腦卻出現"執行階段錯誤9，陣列索引超出範圍"
然後使用"偵錯"功能，系統自動跳到這一行：
Sub Button_Click()
→ BiaoDan.Show
End Sub
可是查了網路和手邊ＶＢＡ的相關書籍，都是這樣寫
因此想說應該是啟動表單時的陣列出了錯或是沒有定義清楚
Private Sub UserForm_Initialize()
Dim items(30) As String
Dim WB As String, WS_TWAX As String
Dim i As Integer, j As Integer
Dim k As Integer
WB = "BMF Zentrum"
WS_TWAX = "TWAX"
j = 1
k = 1
Do While j <= 48
i = 1
Do While i <= 20
items(k) = Workbooks(WB).Sheets(WS_TWAX).Cells(j, i).Value & " " & _
Workbooks(WB).Sheets(WS_TWAX).Cells(j, i + 1).Value
i = i + 4
k = k + 1
Loop
j = j + 8
Loop
Me.ComboBox1.List = items
End Sub
希望各位高手們能幫我解答，同個檔案拿到筆電去試，就是能夠順利開啟表單
並且載入ComboBox1裡面的List，但拿到其他電腦就是不行，拜託各位大大了>"<
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.20.153.54
→
07/26 09:13, , 1F
07/26 09:13, 1F
推
07/26 13:09, , 2F
07/26 13:09, 2F
→
07/26 13:49, , 3F
07/26 13:49, 3F
→
07/26 14:01, , 4F
07/26 14:01, 4F
→
07/26 14:03, , 5F
07/26 14:03, 5F
→
07/26 14:04, , 6F
07/26 14:04, 6F
→
07/26 14:06, , 7F
07/26 14:06, 7F
→
07/26 14:07, , 8F
07/26 14:07, 8F
→
07/26 14:08, , 9F
07/26 14:08, 9F
推
07/26 14:37, , 10F
07/26 14:37, 10F
→
08/01 15:02, , 11F
08/01 15:02, 11F
→
08/01 20:56, , 12F
08/01 20:56, 12F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
