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

63 阅读 0 评论 42 点赞

我是靠谱客的博主傻傻夏天，最近开发中收集的这篇文章主要介绍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 

以上就是傻傻夏天为你收集整理的vb读取excel中的数据并在窗体上显示的全部内容，希望文章能够帮你解决vb读取excel中的数据并在窗体上显示所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。