溜溜问答 > 日常办公 > Excel > vb读取Excel数据
kiss mayue
kiss mayue
邀请你来回答
80人阅读 2022-04-28

vb读取Excel数据

我要回答
1个回答

放置一个CommonDialog1控件用于选择Excel文件
Private Sub Command1_Click()
Dim i As Long
Dim Sum1, Sum2 As Long
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set VBExcel = CreateObject("Excel.Application")
CommonDialog1.FileName = ""
CommonDialog1.Filter = "EXCEL文件(*.xlsx)|*.xlsx"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
Else
Set xlbook = VBExcel.Workbooks.Open(CommonDialog1.FileName)
Set xlssheet = xlbook.Worksheets(1)
VBExcel.Visible = True
For i = 2 To 35535
If xlssheet.Cells(i, 1) = "" Then
Exit For
Else
If xlssheet.Cells(i, 1) = "张三" Then '检查第i行,第一列数据,自己可以定义
Sum1 = Sum1 + xlssheet.Cells(i, 2)
End If
If xlssheet.Cells(i, 1) = "李四" Then
Sum2 = Sum2 + xlssheet.Cells(i, 2)
End If

End If
Next
End If
Text1.Text = Sum1
Text2.Text = Sum2
xlbook.Close (True)
Set xlssheet = Nothing
Set xlbook = Nothing
Set VBExcel = Nothing
End Sub

查看全部
2022-04-28
(4) 回复 采纳

相关问题

vb 读取Excel的内容
共4条回答 >
J.Jokerliet: DimappexcelAsObject'定义Excel应用程序对象DimwbmybookAsObject'定义工作簿对象DimwsmysheetAsObject'定义工作表对象Setappexcel=CreateObject("excel.application")'创建Excel应用程序对象Setwbmybook=appexcel.workbooks.Add'添加工作簿Setwsmysheet=appexcel.worksheets.Add'添加....
回复
vb读取Excel内容
共3条回答 >
从0开始^_^: 用CommonDialog可以解决选定打开.xls文件问题然后就是读取进去哈哈保存代码如下'添加command控件一个MSFlexGrid控件一个PrivateSubCommand1_Click()OnErrorResumeNextDimfileaddAsStringCommonDialog1.ShowOpenCommonDialog1.Filter="xls文件(*.xls)|*.xls"'选择你要的文件fileadd=CommonDialog1.FileNameMSHFlex....
(31) 回复
怎么在vb中读取Excel的数据?
共2条回答 >
铎洺: dima(3,3)asintegefori=1to3forj=1to3'这步是利用a到c之间的ascii码来处理,如果是i循环1,5的话,那就会是a,b,c,d,e,内循环j管a3~a5,a(i,j)=int(xlsheet.range(chr(asc("a")+i-1))&cstr(j+2))nextj,i
(3) 回复
vb中如何读取Excel中的数据?
共2条回答 >
这里还有鱼啊: dima(3,3)asintegefori=1to3forj=1to3'这步是利用a到c之间的ascii码来处理,如果是i循环1,5的话,那就会是a,b,c,d,e,内循环j管a3~a5,a(i,j)=int(xlsheet.range(chr(asc("a")+i-1))&cstr(j+2))nextj,i
(4) 回复
如何在vb中读取Excel中数据?
共1条回答 >
亲生的😶😶: 读写EXCEL表:  1、在工程中引用MicrosoftExcel类型库:  从"工程"菜单中选择"引用"栏;选择MicrosoftExcel12.0ObjectLibrary(EXCEL2007),然后选择"确定"。表示在工程中要引用EXCEL类型库。  2、在通用对象的声明过程中定义EXCEL对象:DimxlAppAsExcel.ApplicationDimxlBookAsExcel.WorkBookDimxlSheetAsExcel.Worksheet  3、在程序中操作EXCEL表常用命....
回复
发表成功!
感谢您的分享!
好的
官方微信群

(微信添加“妙妙”或“笑笑”,邀您进群)