如何用VB制作简单的查询程序，查询EXCEL表格中的内容并显示出结果

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的版本、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！