n Explicit
Private objSWbemServices As SWbemServices '
Private WithEvents DeleteProcessEvent As SWbemSink '进程结束监控
Dim xlApp As ExcelApplication '定义EXCEL类
Dim xlBook As ExcelWorkbook '定义工件簿类
Dim xlsheet As ExcelWorksheet '定义工作表类
Private Sub Initial(ss As String)
Dim i, j As Integer
Set xlApp = CreateObject("ExcelApplication") '创建EXCEL应用类
'xlAppVisible = True '设置EXCEL可见
'Set xlBook = xlAppWorkbooksOpen(AppPath + "\" & "106-33-LCDTest-20130202csv") '打开EXCEL工作簿
Set xlBook = xlAppWorkbooksOpen(AppPath + "\" & ss) '打开EXCEL工作簿
Set xlsheet = xlBookWorksheets(1) '打开EXCEL工作表
xlsheetActivate '激活工作表
'-----正式统计数量
Text1Text = xlsheetUsedRangeCellsRowsCount
sun = xlsheetUsedRangeCellsRowsCount
For i = 2 To xlsheetUsedRangeCellsRowsCount - 1
If Format(xlsheetCells(i, 3), "mm/dd") = Format(Now, "mm/dd") Then '统计今天的数据
Select Case Format(xlsheetCells(i, 3), "hh")
Case 0, 1 '0-1点钟数据统计
If xlsheetCells(i, 2) = "PASS" Then
Select Case xlsheetCells(i, 6)
Case 1
u(1, 1) = u(1, 1) + 1
Case 2
u(3, 1) = u(3, 1) + 1
Case 3
u(5, 1) = u(5, 1) + 1
Case 4
u(7, 1) = u(7, 1) + 1
Case Else
MsgBox "Nest异常", vbCritical, "消息提示:"
End Select
Else
。。。。。。。。。。。。。。。。。。。。。。。。
Else
Select Case xlsheetCells(i, 6)
Case 1
u(2, 12) = u(2, 12) + 1
Case 2
u(4, 12) = u(4, 12) + 1
Case 3
u(6, 12) = u(6, 12) + 1
Case 4
u(8, 12) = u(8, 12) + 1
Case Else
MsgBox "Nest异常", vbCritical, "消息提示:"
End Select
j = j + 1
End If
Case Else
'MsgBox "时间格式异常", vbCritical, "消息提示:"
End Select
End If
Next i
'-----------------------------------------------------------
'xlBookSave '保存文件
xlBookClose (True) '关闭工作簿
xlAppQuit '结束Excel对象
Set xlApp = Nothing '释放xlApp对象
'MsgBox "初始化完成", vbCritical, "消息提示:OK"
Text2Text = Format(j / Text1Text, "000%")
End Sub
1、首先在电脑上面双击打开任意一个Excel工作表。
2、打开了之后,点击导航栏“文件”按钮。
3、在上一步转到的界面左侧,点击“账户”选项。
4、进入到账号页面之后,在账户信息中点击“关于Excel”按钮。
5、点击了之后,此时就会d出EXCEL的相关信息,在这个d出的新对话框显示了详细的Excel版本信息。
以上就是关于如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果全部的内容,包括:如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果、怎么查看Excel的版本、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)