软体: Excel 版本: 2016 又来寻求一下帮助 目前我的database 如下 ID X Y A 1 2 B 4 4 C 8 5 D 1 6 D 10 0 E 9 9 E 8 8 我想用SQL Select 将 ID count > 1 者 撷取出来 会变成 ID X Y D 1 6 D 10 0 E 9 9 E 8 8 SQL Coding 如下: strCommandText = "SELECT A.ID FROM[sheet1$] as A group by A.ID having count(A.ID) > 1;" 但这段我只能做到 撷取"ID". X, Y 资讯该怎麽一并得到? 有办法从现有Code 作扩增? ※ 引述《stma (BBS)》之铭言： : 软体: Excel : 版本: 2016 : 初次尝试ADO SQL,失败收场.... : 目的是想从 Local Excel 抓取资料库的 sheet1 : 出现错误为物件定义错误 (请看贴图说明) : 请问这该怎麽解呢? : '************贴图说明************** : https: //ppt.cc/fF8LJx : *********************************** : '**********Code 如下*************** : Sub MySQL_1st() : Const adOpenStatic = 3 : Const adLockOptimistic = 3 : Const adCmdText = &H1 : Set objConnection = CreateObject("ADODB.Connection") : Set objRecordset = CreateObject("ADODB.Recordset") : objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ : "Data Source=C:\Users\Acer\Desktop\excel\SQL\raw\raw_data.xls;" & _ : "Extended Properties=""Excel 8.0;HDR=Yes;"";" : objRecordset.Open "Select * FROM [sheet1$]", _ : objConnection, adOpenStatic, adLockOptimistic, adCmdText : Do Until objRecordset.EOF : Wscript.Echo objRecordset.Fields.Item("ID") : objRecordset.MoveNext : Loop : End Sub --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.168.88.191 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1528537014.A.110.html