vb中读Excel数据
i = 1 Do While xlSheet.cells(i, 1) <> ＂＂ arrxl(i) = xlSheet.cells(i ◆ 1, 1) i = i ◆ 1 Loop 上面代码可以读取多有连续的行，如果某行为空则结束！
vb 如何读EXCEL版本
Set xlApp = CreateObject(＂Excel.Application＂) xlVer = xlApp.Version
vb读取excel文件的问题
下面的就是你想要的代码，先在工程里引用Excel，程序测试通过！！！
Dim NewApp As New Excel.Application
Dim NewSheet As New Excel.Worksheet
Dim NewBook As New Excel.Workbook
Set NewApp = New Excel.Application
Set NewBook = NewApp.Workbooks.Open("d:\1.xls", , , , "123")
'第一位为路径，第五位为密码
Set NewSheet = NewBook.Worksheets(1)
str1 = NewSheet.Cells(1, 1): str2 = NewSheet.Cells(1, 2)
'获取a1,b1的数据
label1.caption=str1
Text1.Text = str2
NewBook.Close
NewApp.Quit
vb读取excel中的数据并在窗体上显示
参考：
Public ExcelTable As Workbook 'excel 工作表对象
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
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
以上就是土嘎嘎小编大虾米为大家整理的vb读取xlsx_vb读取excel文件的问题相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！