73 vbs条件查询表格.docxVIP

vbs条件查询表格

在VBS中，你可以使用各种条件来查询Excel表格。以下是一个简单的例子，这个例子中，我们将查找列A中值大于100的所有行：

vbs复制代码：

SubQueryTable()

DimobjExcelAsObject

DimobjWorkbookAsObject

DimobjSheetAsObject

DimrngAsRange

创建Excel应用程序对象

SetobjExcel=CreateObject(Excel.Application)

打开工作簿

SetobjWorkbook=objExcel.Workbooks.Open(C:\YourPath\YourWorkbook.xlsx)

选择工作表

SetobjSheet=objWorkbook.Worksheets(Sheet1)

设置查询范围，这里我们查询A列大于100的所有行

Setrng=objSheet.Range(A1:AobjSheet.Cells(Rows.Count,1).End(xlUp).Row)

使用AutoFilter方法进行筛选

rng.AutoFilterField:=1,Criteria1:=100

显示筛选结果

objExcel.Visible=True

EndSub

在这个例子中，我们首先创建了一个Excel应用程序对象，然后打开了一个工作簿并选择了工作表。然后，我们定义了要查询的范围（这里为A列的所有行），并使用AutoFilter方法进行筛选。最后，我们显示了筛选结果。