作者：乔山办公网日期：
返回目录：excel表格制作
flag = True '初始化中断变量。当中断变量为真时开始循环zd
Do While flag
DoEvents '释放程序控制权，允许执行其专它事件。
TextBox1 = 10 + Int(Rnd * 90) '文本框动态显示10到99
Loop
PS：如要中断循环，可通过其他程序改变属flag为False
右击文本框，选“指定宏(N)..."，新建一个过程，注意文本框的名字，代码如下：
本代码在Excel2010中测试成功
你的题目是“VB中如何使用EXCEL控件（sheet1控件）来导入EXCEL数据“
但要求是：”另复外还有几个要求：
1：不用VB的其他表格去实现该功能，因为我VBA的代码没办法移植，代码有很多。重写太复制杂
2：不用VB后台操作EXCEL的方法，要再VB中处理数据，而不是用VB去操作EXCEL处理数据”
好像不行百吧，使用VB导入Excel，但又不希望使用VB控件，你认为可能吗？
其实使用VB导入Excel，不是特度别复杂，很简单的，不像VBA。
可以使用 Me.Controls("控件名" ).Value 的方zd式来读专取，
比如：读取label1-60的名称保存到数组里属面
ReDim arr(1 To 60)
For i = 1 To 60
arr(i) = Me.Controls("Label" & i).Caption
Next i