vb读取excel中的数据并在窗体上显示

Public  ExcelTable  As  Workbook   'excel 工作表对象
Private  TextBoxA()  As  Control       '以编辑框为基础动态构造数据网格
Private  FormWidth  As  Integer        '窗体宽度
'以下子程序是用来建立数据网格
Sub  CreateGrid(No, Data)
    For  i = 1  To  CInt (UBound(Data, 1))
        For  j = 1  To  CInt (UBound(Data, 2))
            Set  a = Form1.Controls.Add( "VB.TextBox" ,  "textbox"  &  CStr (i) &  CStr (j) &  CStr (No))
            ReDim  TextBoxA(1  To  i, 1  To  j)   '重新定义动态数组！
            Set  TextBoxA(i, j) = a
            With  TextBoxA(i, j)             '设置文本框属性
                .Text = Data(i, j)
                .Visible =  True
                .Height = 200
                .Width = 500
                .Top = .Height * (i - 1)
                .Left = .Width * (j - 1) + FormWidth
            End  With
        Next
    Next

End  Sub

Private  Sub  Command1_Click()
    Set  ExcelTable = CreateObject( "Excel.sheet" )  '建立对象实例
    ExcelTable.Application.Workbooks.Open (App.Path +  "\address.xls" )  '打开数据文档address.xls
    For  i = 1  To  ExcelTable.Application.Worksheets.Count     '获得工作表数目
        Data = ExcelTable.Application.Worksheets(i).UsedRange.Value    '获取每个工作表的数据
        DataType = VarType(Data)       '跳过没有数据的空表
        Select  Case  DataType
        Case  vbArray + vbVariant
            Call  CreateGrid(i, Data)    '传递数据,建立以文本框为基础的数据网格
        Case  vbEmpty
        End  Select
    Next
End  Sub