取唯一,最后一笔数值

cmo9020 · 发表于 2024-3-28 21:03

本帖最后由 cmo9020 于 2024-3-29 12:11 编辑

请教导师们有关sql代码取目标工作表数值问题
目标档工作表"FDE31983"和"FDE31984"有重复选项,
执行代码会把重复数据都会全部复制.....这不我想要的

我要的是取唯一的最后一笔数值,要如何修改?谢谢~

test.rar (29.26 KB, 下载次数: 10)

Sub test1()
Dim Cn As Object, ar, i&, p$, f$, Sq$(2), s$
Set Cn = CreateObject("ADODB.Connection")
If Application.Version < 12 Then
  s = "Excel 8.0;Database="
  Cn.Open "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Else
  Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  s = "Excel 12.0;Database="
End If
With Worksheets(1)
  .Activate
  Sq(0) = "[" & .Name & "$g1:g" & .Cells(.Rows.Count, "g").End(xlUp).Row & "]a"
End With
p = ThisWorkbook.Path & "\"
ar = Array("scra.xls", "SHIPP.xls")

For i = 0 To UBound(ar)
  f = p & ar(i)
  If Dir(f, vbDirectory) <> "" Then
Sq(1) = Sq(1) & " UNION ALL SELECT 选项号码,料号,品名  FROM [" & s & f & "].[石中$A1:K] WHERE 选项号码 IS NOT NULL"
  End If
Next

Sq(2) = "SELECT b.料号,b.品名 FROM " & Sq(0) & " LEFT JOIN (" & Mid(Sq(1), 12) & ")b ON a.选项号码=b.选项号码"
Range("h2").CopyFromRecordset Cn.Execute(Sq(2))
Cn.Close
Set Cn = Nothing
End Sub

shiruiqiang · 发表于 2024-3-28 21:41

前段时间学过，好像是： select last(b.料号),last(b.品名) from

cmo9020 · 发表于 2024-3-29 06:53

shiruiqiang 发表于 2024-3-28 21:41
前段时间学过，好像是： select last(b.料号),last(b.品名) from

导师,好像没办法

shiruiqiang · 发表于 2024-3-29 08:10

不好意思，忘了，last只支持access

shiruiqiang · 发表于 2024-3-29 08:21

本帖最后由 shiruiqiang 于 2024-3-29 08:27 编辑

应该是 SQL = "select top 1 * from 表名 order by 字段 desc"
实在不行就循环到最后一条吧

limonet · 发表于 2024-3-29 09:29

关键字：group by

limonet · 发表于 2024-3-29 09:30

Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("Adodb.Connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\SHIPP.xls"
StrSQL = "Select 選項號碼 As 選項號碼,Last(料號) As 料號,Last(品名) As 品名 From [石中$E:K] Group By [選項號碼]"
StrSQL = "Select b.* From [Excel 12.0;DataBase=" & ThisWorkbook.FullName & "].[Sheet1$G:G]a Left Join (" & StrSQL & ")b On a.選項號碼=b.選項號碼"
Range("G2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

cmo9020 · 发表于 2024-3-29 12:11

limonet 发表于 2024-3-29 09:30
Sub limonet()
Dim Cn As Object, StrSQL$
Set Cn = CreateObject("Adodb.Connection")

十分谢谢导师

limonet · 发表于 2024-3-29 13:16

cmo9020 发表于 2024-3-29 12:11
十分谢谢导师

过誉了，不敢当。能解决问题就行。

cmo9020 · 发表于 2024-3-30 08:30

limonet 发表于 2024-3-29 13:16
过誉了，不敢当。能解决问题就行。

大哥你好
不知道你有没有空闲
在请教指导一下
G列输入一个shipp工作簿中没有的任一数值
执行后要是查询不到,它会自己做清除...但我要保留G列数据
这要如何才能保留呢?谢谢

limonet.rar (24.06 KB, 下载次数: 0)

		自动登录	找回密码
密码			免费注册

[已解决] 取唯一,最后一笔数值

评分

评分

评分