Sub 按条件隐藏数据行2()
'criteria1,最后一个字符是数字1，不是字母l
Range("A1").AutoFilter Field:=2, Criteria1:="印度尼西亚"
End Sub
单元格对象的AutoFilter（自动筛选）方法
自动筛选功能是Excel常用的一个重要功能之一，利用该功能可以方便地筛选并隐藏数据。在VBA中对应的方法为AutoFilter方法，该方法的语法为
Rng.AutoFilter [Field],[Criteria1],[Operator],[Criteria2],[VisibleDropDown]
其中，Rng为单元格，使用AutoFilter方法只需指明数据区域的任何一个单元格即可，因而本例使用A1单元格。
- 参数Field为字段的序号，即表示该数据区域第几列为条件进行筛选。本例中需要以产销国为筛选条件，而该列为该数据区域的第2列，因而该参数设置为2。
- 参数Criteria1和Criteria2为筛选的条件。本例只需要一个条件，筛选值为“印度尼西亚”的数据，因而可以直接设置Criterial为“印度尼西亚”。当筛选条件不等于“印度尼西亚”时，使用Criteria1:="印度尼西亚"
- 参数Operator表示Criteria1和Criteria2的筛选条件操作符，可以为表中的任一常量。
表 AutoFilter方法的Operator参数
| 常 量 | 值 | 说 明 |
| xlAnd | 1 | Criteria1和Citeiia2的逻辑与 |
| xlOr | 2 | Criteria1和criteria2的逻辑或 |
| xlFilterCellColor | 8 | 单元格颜色参数Criteria1的值为指定的颜色值） |
| xlFilterDynamic | 11 | 动态筛选 |
| xlFilterFontColor | 9 | 字体颜色（参数Criteria1的值为指定的颜色值） |
| xlFilterIcon | 10 | 筛选图标 |
| xlFilterValues | 7 | 筛选值 |
| xlBottom10Items | 4 | 显示最低值项（参数Criteria1的值为指定的项数） |
| xlBottom10Percent | 6 | 显示最低值项（参数Criteria1的值为指定的百分数） |
| xlToplOItems | 3 | 显示最高值项(参数Criteria1的值为指定的项数） |
| xlTop1OPercent | 5 | 显示最高值项（参数Criteria1的值为指定的百分数） |
- 参数VisibleDropDown为是否显示下拉箭头，为True时表示显示，为False时表示不显示。
实现代码3
Sub 按条件隐藏数据行3()
'创建临时条件区域
Range("H1").Value = "产销国"
Range("H2").Value = "印度尼西亚"
'高级筛选
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("H1:H2"), unique:=False
'清除临时条件区域
Range("H1:H2").Clear
End Sub
单元格对象的AdvancedFilter（高级筛选）方法
使用按条件的高级筛选功能时，需要创建一个条件区域。因而本例使用VBA首先创建一个临时的条件区域，高级筛选执行完成之后，删除该区域。该使用临时辅助区域的方法在VBA开发中是经常用到的。AdvancedFilter（高级筛选）方法对应工作表中高级筛选的基本操作，其语法为
Rng.AdvancedFilter [Action ],[CriteriaRange],[CopyToRange],[Unique]
其中，Rng为进行高级筛选的区域，该区域为完整的数据区域。
- 参数Action为筛选的方式，xIFilterCopy表示将筛选结果复制到新区域，xIFilterInPlace表示在数据区域原地筛选。
- 参数CriteriaRange表示条件区域。
- 参数CopyToRange表示复制到的区域，该参数只有当Action参数设置为xIFilterCopy时才有效。
- 参数Unique表示是否筛选不重复的记录，当为True时，表示筛选不重复记录，为False时表示筛选所有满足条件的记录。
目录示例：实现代码1行和列的隐藏实例代码2单元格对象的AutoFilter（自动筛选）方法实现代码3单元格对象的AdvancedFilter（高级筛选）方法示例： 在Excel中，经常使用自动筛选功能筛选数据，将某些条件的数据显示而隐藏其他数据。如图所示，该表为某公司商品出口数据记录。现希望筛选出销往印度尼西亚的所有销售记录，并隐藏其他销售记录，该如何用VBA实现？日期 产销国 地区 出口金额 2010/1/1 韩国..
excel宏实现工作表索引，点击按钮隐藏/显示对应工作表
当单个excel工作簿有很多工作表时，使用起来会有麻烦，虽然excel提供隐藏工作表功能，但点击及查找并不方便。如果能够在一个工作表中实现目录索引功能，点击按钮即可隐藏/显示对应工作表，会非常方便操作和查看。
一、编写宏
1编写一个点击按钮显示/隐藏工作表的按钮宏
Sub click()
For x = 1 To Sheets.Coun...
Dim total As Integer ' 整型变量，存放总行数
Dim counter As Integer ' 整型变量，for循环变量，每循环一次该值加1
Dim st$ ' 字符串变量，存放每个sheet页名字
Range("A1").CurrentRegion.Select '遍历当前整个sheet页
tot...
你需要做的更改：把需要打印的文件路径更改一下
我的使用场景：
金山表单收集-->自动汇集成的金山文档-->金山文档右上角的“WPS打开”按钮点击一下把云端数据自动下载到电脑端，然后直接关闭就行-->调出小工具输入打印的范围-->选择打印机-->打印成功
我的打印机打印 80*60的热敏标签
我留的有例行，如果要测试的话，把“打印标签”按钮事件里面的第一行Call 抓数据注释掉就行了
好的，以下是关于 Excel VBA ADO SQL 的入门教程：
Excel VBA ADO 是一种用于连接和操作数据库的技术，可以通过该技术将 Excel 作为前端应用程序，与各种数据库进行交互。ADO（ActiveX Data Objects）是一个用于访问数据的 COM 组件，可以通过 Excel VBA 来使用。
以下是一些使用 Excel VBA ADO SQL 进行操作的示例：
1. 连接数据库
要连接到数据库，需要创建一个 ADO 连接对象，并提供连接字符串（Connection String）。连接字符串包括数据库的类型、位置、用户名和密码等信息。
例如，连接到 Microsoft Access 数据库的连接字符串为：
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;Persist Security Info=False;"
连接到 SQL Server 数据库的连接字符串为：
"Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
连接到 Oracle 数据库的连接字符串为：
"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;"
连接到 MySQL 数据库的连接字符串为：
"Driver={MySQL ODBC 8.0 ANSI Driver};Server=localhost;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;"
在连接字符串中，可以指定要连接的数据库类型、服务器地址、数据库名称、用户名和密码等信息。
在 VBA 中，可以使用以下代码来创建连接对象：
```vb
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;Persist Security Info=False;"
conn.Open
2. 执行 SQL 查询
连接到数据库后，可以使用 ADO Command 对象执行 SQL 查询语句。例如，以下代码使用 ADO Command 对象从表中获取数据并将其输出到 Excel 工作表中：
```vb
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "SELECT * FROM myTable"
Set rs = cmd.Execute
Dim i As Integer
i = 1
While Not rs.EOF
For j = 0 To rs.Fields.Count - 1
Cells(i, j + 1).Value = rs.Fields(j).Value
Next j
i = i + 1
rs.MoveNext
rs.Close
Set rs = Nothing
Set cmd = Nothing
这段代码中，我们首先创建了一个 ADO Command 对象，并将其 ActiveConnection 属性设置为刚刚创建的连接对象。然后，设置 CommandText 属性为要执行的 SQL 查询语句（SELECT * FROM myTable），并使用 Execute 方法执行查询。Execute 方法返回一个 Recordset 对象，其中包含查询结果。
我们使用 While 循环遍历 Recordset 中的所有行，并使用 For 循环输出每行中的每个字段到 Excel 工作表中。最后，关闭 Recordset 对象并释放资源。
3. 执行 SQL 插入、更新和删除操作
使用 ADO，可以执行各种 SQL好的，下面是关于Excel VBA中使用ADO和SQL进行数据操作的入门教程：
1. 安装ADO库
在使用ADO之前，需要先安装Microsoft ActiveX Data Objects（ADO）库。如果你的Excel版本是Office 2003及以前的版本，可以在Microsoft官网下载并安装MDAC（Microsoft Data Access Components）来获得ADO库。如果你使用的是Office 2007及以后的版本，ADO库已经默认安装在系统中。
2. 引用ADO库
在Excel VBA中使用ADO库，需要先在VBA编辑器中引用ADO库。打开VBA编辑器，依次点击“工具”-“引用”，勾选“Microsoft ActiveX Data Objects x.x Library”，然后点击“确定”按钮即可。
3. 连接数据库
在使用ADO进行数据操作之前，需要先建立与数据库的连接。连接数据库需要提供以下信息：
- 数据库类型（如Access、SQL Server、Oracle等）
- 数据库的位置
- 数据库的用户名和密码（如果需要）
连接数据库的代码示例：
Sub ConnectToDatabase()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\myfolder\mydatabase.accdb;" & _
"Persist Security Info=False;"
conn.Open
End Sub
上面的代码中，我们使用了Microsoft Access数据库，并且指定了数据库文件的位置。如果需要使用其他数据库，可以参考相应的连接字符串。连接字符串的格式可以在Microsoft官网上查找。
4. 执行SQL语句
连接数据库后，我们可以执行SQL语句对数据进行增删改查操作。ADO提供了两种执行SQL语句的方法：Execute和Recordset。
- Execute方法
Execute方法用于执行不返回记录集的SQL语句，比如INSERT、UPDATE和DELETE语句。下面是Execute方法的代码示例：
Sub ExecuteSQL()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\myfolder\mydatabase.accdb;" & _
"Persist Security Info=False;"
conn.Open
conn.Execute "INSERT INTO mytable (field1, field2) VALUES ('value1', 'value2')"
conn.Close
End Sub
上面的代码中，我们使用Execute方法向数据库中插入一条记录。
- Recordset方法
Recordset方法用于执行返回记录集的SQL语句，比如SELECT语句。下面是Recordset方法的代码示例：
Sub GetRecordset()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\myfolder\mydatabase.accdb;" & _
"Persist Security Info=False;"
conn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM mytable", conn
'遍历记录集
Do Until rs.EOF
Debug.Print rs.Fields("field
很高兴能够帮助您学习Excel VBA ADO SQL。建议您可以从网上搜索一些入门教程，也可以参考一些技术书籍来学习。
回答：很高兴为您提供帮助。请参阅以下资源，这些资源可以帮助您开始学习Excel VBA、ADO和SQL：《Excel VBA教程》、《ADO教程》、《SQL教程》。当您使用Excel VBA ADO连接数据库时，可以使用SQL语句执行各种任务，例如插入、更新、删除和查询数据。下面是一个简单的示例，演示如何使用Excel VBA ADO连接到数据库并执行SQL查询：
Sub ConnectToDatabase()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim server_name As String
Dim database_name As String
Dim user_id As String
Dim password As String
server_name = "your_server_name"
database_name = "your_database_name"
user_id = "your_user_id"
password = "your_password"
conn.Open "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=" & user_id & ";" & _
"Password=" & password & ";" & _
"Initial Catalog=" & database_name & ";" & _
"Data Source=" & server_name
' Execute a SQL query
rs.Open "SELECT * FROM your_table_name", conn
' Print the results to the immediate window
Do While Not rs.EOF
Debug.Print rs.Fields("your_column_name")
rs.MoveNext
' Clean up
rs.Close
conn.Close
End Sub
在这个例子中，您需要将`your_server_name`、`your_database_name`、`your_user_id`和`your_password`替换为实际的值，并将`your_table_name`和`your_column_name`替换为您要查询的表和列名称。
要执行其他SQL任务，例如插入、更新或删除数据，请将SQL查询更改为相应的语句。例如，要插入一条新记录，您可以使用以下代码：
' Insert a new record
conn.Execute "INSERT INTO your_table_name (column1, column2, column3) VALUES ('value1', 'value2', 'value3')"
同样，您需要将`your_table_name`和`column1`、`column2`、`column3`和`value1`、`value2`、`value3`替换为实际的值。
希望这些示例能帮助您开始使用Excel VBA ADO和SQL连接数据库！
