可以先创建一个查询,另目标字段进行排序,然后再将查询导出Excel即可!
方法一:用VBA
Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
dim qx
qx=application.inputbox("输入","输入省份","北京")
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;dataSource=" & ThisWorkbook.Path & "\数据库.accdb"
sql = "select * from [宏站] where省份='"& qx & "'"
rs.Open sql, cnn
[a1].CopyFromRecordset rs
EndSub
方法二:在ACCESS中输入语句
select top 10 * into [Excel 12.0XML;database=D:\FirstHave.xlsx].[sheet1] from song
where [省份]=‘北京’
这个要一次次的输入省份!