如何通过<em>SELECT语句</em>查询出来后，用SQL语句把数据写入到...-excel

不明白你说的，
但你可以仿照下面的语法自己写

Case语句的语法如下：
Select Case 测试表达式抄
Case Is 条件1
如果袭条件1为真时执行的语句
Case Is 条件2
如果条件2为真时执行的语句
Case Is 条件N
如果条件N为真时执行的语句
End Select
例如，我们来比较几个zd数字：
Select Case myNumber
Case Is <10
MsgBox "The number is less than 10"
Case 11
MsgBox "You entered eleven."
Case Is >=100
MsgBox "The number is greater than or equal to 100."
Case Else
MsgBox "The number is between 12 and 99."
End Select
假设变量myNumber为120，那么第三个Case子句为真，并且只有Case Is >=100和Case Else之间的语句会被执行

给个示例百

Sub 去重()
    Dim cnn, SQL$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
    SQL = "SELECT  DISTINCT [aac001],[aac003],部门代码度,但未编号,基数知,个人道,单位,金额版 FROM [明细$A3:H65536]  "
    Range("A2:I65536").ClearContents
    Range("A2").CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

你可以参考一下。权

CLOSE DATA
use grzh
set filt to bdyy=1
COPY TO 导出文件名 for bdyy=1 xls
go top
if .not. eof()
brow fiel dwmc:h='单位名称',sbdm:h='社保代码抄',xm:h='姓名',jf_n:h="起始缴费_年",jf_y:h="起始缴费_月袭",jfy_b:h="本年缴费月",jfjs_b:h="本年缴费基数百",bdyy:h='变动标识',BZ:H="变动备注"noedit title "查询新分学度生"
else
RE=MESSAGEBOX("无此类人员！",0+48+256,"信息窗口")
endif
close data
return

--Excel2003
INSERT INTO OPENROWSET('Microsoft.Jet.OleDb.4.0','Excel 8.0;DATABASE=D:\Excel文件度名.xls','SELECT 字段回答1,字段2 FROM [Sheet1$]')
SELECT top 20 字段1,字段2 FROM student
--Excel2007
INSERT INTO OPENROWSET('Microsoft.Ace.OleDb.12.0','Excel 12.0;DATABASE=D:\Excel文件名.xlsx','SELECT 字段1,字段2 FROM [Sheet1$]')
SELECT top 20 字段1,字段2 FROM student