![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vb
文章平均质量分 64
fighting18
这个作者很懒,什么都没留下…
展开
-
vb outlook发邮件
Function SendEmail(ByVal sMail, ByVal sSubject, ByVal sBody, ByVal sCC)Dim objOutlook As New Outlook.Application '定义outlook邮件的对象变量 Dim objMail As MailItemDim strTo As VariantDim sptTo() As String '创建objOutlook为Outlook应用程序对象 Set objOutlook =...原创 2022-03-30 22:15:00 · 1141 阅读 · 0 评论 -
VBA 根据日期筛选数据
筛选两个日期间的全部数据Dim a, b, ca = Format(Date, "yyyy/m") '当前年月日MsgBox a '显示日期时间'当前月份加4b = DateAdd("m", 4, a)Debug.Print bDim Rng As Range, arr As VariantDim EndRow As Long, EndCol As LongDim Rngtime As RangeWith Sheets("PM") '获取A列最后一行(非空行)的行...原创 2022-03-23 15:27:49 · 4904 阅读 · 1 评论