excel数据正常导入vb中的combobox等控制

Question

vb程序包括控件combobox，textbox和listbox等，当第一次导入时，能够将事先保存好的excel数据全部导入到vb各控件中，且能正常计算，当第二次导入时，就不行了。
代码如下：
Set DKDJGKapp = CreateObject("Excel.Application") '创建EXCEL对象
Set DKDJGKbuk = DKDJGKapp.Workbooks.Open(Fileadd) '打开已经存在的EXCEL工件簿文件
DKDJGKapp.Visible = False '设置EXCEL对象可见（或不可见）
Set DKDJGKsheet = DKDJGKbuk.Worksheets("Sheet4") '设置活动工作表
For i = 5 To Sheets("Sheet4").UsedRange.Rows.Count Step 5’从每5行开始导入
Combo1.Enabled = True
Combo1.AddItem Val(Trim(DKDJGKbuk.Worksheets("Sheet4").Cells(i, 1))) '土层号
mm = Int((i - 5) / 5) + 1 'mm = Combo1.ListCount
Text2(mm).Text = Val(Trim(DKDJGKbuk.Worksheets("Sheet4").Cells((mm - 1) * 5 + 5, 5))) '土层厚度
Text4.Text = Val(Trim(DKDJGKbuk.Worksheets("Sheet4").Cells((mm - 1) * 5 + 5, 6)))
Combo1.ListIndex = Val(Trim(DKDJGKbuk.Worksheets("Sheet4").Cells(Val(Sheets("Sheet4").UsedRange.Rows.Count) - 4, 1))) - 1
DKDJGKapp.DisplayAlerts = False '不进行安全提示 '
Set DKDJGKsheet = Nothing
Set DKDJGKbuk = Nothing
DKDJGKbuk.Close
DKDJGKapp.Quit
Set DKDJGKapp = Nothing
如果不明白，可通过qq单线联系。qq：1505406974，解决后追加10分

Answer 1

目测代码没问题，虽然不知道你界面是什么样的，想实现什么功能。
你text4不是控件数组么？
如果你问题还没解决，我明天白天联系你，我Q82348445