求助VBA，附件已更新

13726363361

求助VBA，请看附件，谢谢

蓝桥玄霜

请见代码。

iwangyi

蓝桥玄霜 发表于 2018-8-15 14:16
请见代码。

蓝老师，还差一个同时出现多个日期取最后日期怎么做。
Sub ADO()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
N = [W65536].End(3).Row
开始日期 = Range("n1")
结束日期 = Range("n2")
名称 = Range("n3")
If 名称 = "" Then
Sql = "SELECT LAST(日期),名称,项目 dateadd() FROM [SHEET1$B1:L] where 日期 BETWEEN #" & 开始日期 & "# AND #" & 结束日期 & "# and 项目 IN('铁','铜','铝')"
Range("P7").CopyFromRecordset cn.Execute(Sql)
Else
Sql = "SELECT 日期,名称,项目 FROM [SHEET1$B1:L] where 日期 BETWEEN #" & 开始日期 & "# AND #" & 结束日期 & "# and 项目 IN('铁','铜','铝') and 名称='" & 名称 & "'"
Range("P7").CopyFromRecordset cn.Execute(Sql)
End If
End Sub

13726363361

蓝桥玄霜 发表于 2018-8-15 14:16
请见代码。

感谢帮助，但N3没有输入名称运行时出现错误，或N3输入名称后，对话框为空白，没有任何内容，麻烦帮我看一下谢谢

蓝桥玄霜

请见附件。

13726363361

蓝桥玄霜 发表于 2018-8-16 09:37
请见附件。

你好，我想问一下，显示内容可以用升序的方式显示吗？还有一个问题就是，内容长一点的有部分内容显示不了，望修改一下代码，谢谢