求助用SQL解决需求问题

明日之星 · 发表于 2018-8-13 21:57

本帖最后由明日之星于 2018-8-19 17:29 编辑

TIM图片20180813221255.png

求助用SQL解决需求问题.zip (63.57 KB, 下载次数: 3)

明日之星 · 发表于 2018-8-14 09:59

本论坛高手如云，请各位大神帮忙回复本帖，谢谢！

suxiong · 发表于 2018-8-16 17:11

Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
sql = "select * from [表3$] where 完成日期 is not null"
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;extended properties=excel 8.0;data Source=" & ThisWorkbook.Path & "/表3.xlsx"
rs.Open sql, cnn
Range("b6").CopyFromRecordset rs
rs.Close
cnn.Close

复制代码

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