vb读取excel中的数据并在窗体上显示
来源:互联网 发布:php 允许上传最大值 编辑:程序博客网 时间:2024/06/10 23:17
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
阅读全文
0 0
- vb读取excel中的数据并在窗体上显示
- VB.NET 子窗体导出Excel进度显示在父窗体ToolStripProgressBar上
- 读取Excel文件中的数据,并显示在MSFlexGrid表格中
- VC6.0如何实现把excel中的数据读取后显示在listctrl列表上
- (四)、读取数据库数据并在HighCharts上显示
- (四)、读取数据库数据并在HighCharts上显示
- (四)、读取数据库数据并在HighCharts上显示
- (四)、读取数据库数据并在HighCharts上显示
- vb.net 读取EXCEL文件中的数据
- VB读取excel表中的数据
- 读取EXE、DLL文件中的图标绘制在窗体上显示
- ASP.NET中读取excel内容,并显示在界面上
- C# 读取excel里的图片并显示在页面上
- ASP.net中读取excel内容,并显示在界面上
- ASP.NET中读取Excel内容,并显示在界面上
- ASP.NET中读取Excel内容,并显示在界面上
- ASP.NET中读取Excel内容,并显示在界面上
- vb读取文件并在文本框中显示
- Android学习 ——SystemUIService之RingtonePlayer分析
- ERROR 1366 (HY000): Incorrect string value: '\xD6\xD0\xCE\xC4' for column XXX at row 1
- windows远程连接服务器中的jupyter notebook
- CentOS6.8 操作防火墙
- Hadoop运维配置
- vb读取excel中的数据并在窗体上显示
- 如何实现1080P延迟低于500ms的实时超清直播传输技术
- 剑网三的宏语法
- golang reflection
- Python 父类调用子类方法
- spring缓存
- 动态规划之换钱的最少货币数
- 正则表达式
- viewport属性说明