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

最新推荐文章于 2025-06-20 13:41:45 发布

转载最新推荐文章于 2025-06-20 13:41:45 发布 · 1.9w 阅读

VB 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一种使用 VBA 在 Visual Basic 应用程序中从 Excel 工作表动态创建数据网格的方法。通过读取指定路径下的 Excel 文件并利用其中的工作表数据，程序能够自动在界面上构建出由文本框组成的数据网格。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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