求助：用VBA解决超时未发货客户查询

0012308

求高手指点：：输入超过的天数后，按控件按钮出数据，所出数据显示在超时未发货客户表中，感谢

zpy2

select * from (select *,round(julianday('now')-julianday(开单日期)) 距今天数 from 发货超期明细表) where 距今天数>30 group by 收货人,发货人

SQL试试

0012308

zpy2 发表于 2020-10-20 15:44
select * from (select *,round(julianday('now')-julianday(开单日期)) 距今天数 from 发货超期明细表) wh ...

不好意思，真的不会用

zpy2

0012308 发表于 2020-10-20 19:04
不好意思，真的不会用

30天报表

简七

删除原内容

简七

删除原内容

简七

删除原内容

简七

Private Sub CommandButton1_Click()
Dim qt As QueryTable, sh As Worksheet
Dim wbname As Name, wbnames As Names
Dim i As Integer
Set wbnames = ThisWorkbook.Names
For Each wbname In wbnames
wbname.Delete
Next
ThisWorkbook.Names.Add "数据区域", ThisWorkbook.Sheets(1).Range("a3", "h" & ThisWorkbook.Sheets(1).[a1048576].End(xlUp).Row)
Set sh = ThisWorkbook.Sheets(2)
sh.Cells.Delete
Set qt = sh.QueryTables.Add("ODBC;DSN=Excel Files;DBQ=" & ThisWorkbook.FullName, sh.[a1])
With qt
.CommandText = "select 数据区域.*, DateDiff('d',开单日期,Now()) as 距今天数 from (数据区域 inner join (SELECT 收货人,Max(开单日期) as 日期,发货人 FROM 数据区域  group by 收货人,发货人) as b on 数据区域.收货人=b.收货人 and 数据区域.开单日期=b.日期 and 数据区域.发货人=b.发货人) where datediff('d',开单日期,now()) > " & ThisWorkbook.Sheets(1).[j1].Value & " order by 数据区域.开单日期"
.Refresh
End With
On Error Resume Next
For i = 0 To ThisWorkbook.Connections.Count
ThisWorkbook.Connections(i).Delete
Next
End Sub

简七

上面代码试一下 网络太卡 发了多次 自己在表里加一个按钮

0012308

感谢支持，本问题已被SCL5801解决，需代码的可进入我的求助主题里，里面有SCL5801的回复，很感谢大家的帮忙