vb读取excel中的数据并在窗体上显示
发布网友
发布时间：2022-04-23 09:38
我来回答
共1个回答
热心网友
时间：2023-04-28 07:05
参考：
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
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
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...
如何在VB的Text控件中显示Excel表上的指定内容vb显示excel表格内容
Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject(\"excel.application\") '创建excel.application对象xlsApp.Visible = True '显示excel 主界面xlsApp.Visible = False '隐藏excel 主界面xlsApp.workbooks.Open (\"D:\\1\\...
如何在vb中读取Excel中的数据?
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
如何用vb提取excel表格中的数据如何用vb提取excel表格中的数据和...
‘scxls.Visible = True’显示Excle 数据较多，且有规律可循时，请使用循环语句 用vb提取excel表格中的数据方法：1、在汇总表中的A列，将多个工作表的表名依次排列。2、在B1单元格输入以下公式，然后向右向下填充公式=OFFSET(INDIRECT($A1&"!A1"),,COLUMN(A1)-1)&""公式表示：以A1单元格的内容...
用VB 将数据逐个写入EXCEL的单元格 并在窗体上显示出来
用Excel在C盘根目录下生成一个名为 Test.xls 的空文件,然后启动VB6 首先在工程中引用 Microsoft Excel 11.0 Object Library 力求简单，显示数据我仅仅用了3个Textbox控件来完成！代码如下：Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel....
在VB中如何提取EXCEL表中的数据??
VB操作EXCEL 全面控制 Excel 首先创建 Excel 对象，使用ComObj:Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口：ExcelID.Visible := True;2) 更改 Excel 标题栏：ExcelID.Caption := \'应用程序调用 Microsoft Excel\';3) 添加新工作簿：ExcelID.WorkBooks...
vb中如何对excel表格进行字段提取并显示在datagrid中?
用ADO可以提取,先引用ADO (Microsoft ActiveX Data Object)假定你的excel表名为Book1.xls，存放在C盘 然后 Dim Rs As New ADODB.Recordset Dim sql AS String Rs.CursorLocation=adUseClient StrData = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Book1.xls;Extended Properties='Excel 8.0...
我想用vb调用excel里的数据在excel画图表应该怎样做.
以下为关键部分 '打开 Set sf1 = CreateObject("Excel.Application")sf1.Workbooks.Add Set sf2 = sf1.Workbooks(1)Set sf3 = sf2.ActiveSheet '作图 Range("A1:E5").Select Charts.Add ActiveChart.ChartType = xl3DColumn ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E5")A...
如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果
Private Sub Initial(ss As String)Dim i, j As Integer Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 'xlApp.Visible = True '设置EXCEL可见 'Set xlBook = xlApp.Workbooks.Open(App.Path + "\" & "106-33-LCDTest-20130202.csv") '打开EXCEL工作簿 Set xlBook = ...
