[已解决]批注设置一条记录一行的问题

dlzz2020

我需要查询同一客户某一种商品最近3次的价格，价格显示在批注上，要问的问题是现在不能控制一条记录一行，希望高手帮忙解决，谢谢
Sub pricetip()
Dim cnn As Object, strSQL As String, rs As Object, rst As String
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
strSQL = "select 送货日期,商品名称,单价 from [sheet1$] "

rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly, adCmdText

rst = rs.GetString(adClipString, 3, "-", ";")
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
Selection.ClearComments
Selection.AddComment
With Selection.Comment
                .Visible = False
                .Text Text:=rst
               ' .Shape.TextFrame.AutoSize = True
End With
End Sub

最佳答案

月排行榜 / 总排行榜

benhsu

2022-6-11 19:40

rst = rs.GetString(adClipString, 3, "-", ";" & Chr(10))

跳转到最佳答案楼层

dlzz2020

有人帮忙吗？

benhsu

rst = rs.GetString(adClipString, 3, "-", ";" & Chr(10))

dlzz2020

我个人在分号分隔符那里尝试了好多次& Chr(10)没有成功，结果接在外面就成功了。谢谢！！