开发工具:
文件大小: 26kb
下载次数: 0
上传时间: 2015-06-14
详细说明： excel宏实现导出超时的人员名单，用宏实现 Sub 按钮3_Click() Dim strReceiveUser As String strReceiveUser = "" Dim i As Integer, sht As Worksheet j = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row k = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Column Close #1 Close #2 Open "d:\Notify_user_by_email.txt" For Output As #1 Open "d:\Notify_user_content_by_email.txt" For Output As #2 For i = 2 To j ' 第一行是标题，不能作为计算，从第2行开始 时间1 = Sheets( "Sheet1").Cells(i, 4) ' 这里需要修改，第4列是归还日期 时间2 = Now 天数差 = DateDiff("d", 时间1, 时间2) 是否归还 = Sheets("Sheet1").Cells(i, 6) If 天数差 > 0 Then If "否" = 是否归还 Then strReceiveUser = Sheets("Sheet1").Cells(i, 1) + "@dahuatech.com;" Print #1, strReceiveUser strContent = Sheets("Sheet1").Cells(i, 1) + "借用了" + Sheets("Sheet1").Cells(i, 2) + "，序列号为" + Sheets("Sheet1").Cells(i, 7) + "，已经超期" + Str(天数差) + "天， 请尽快归还，谢谢！" Print #2, strContent End If End If Next Close #1 Close #2 MsgBox "已经为您导出到D盘，请查阅：" & vbCrLf & "Notify_user_by_email.txt" & vbCrLf & "Notify_user_content_by_email.txt" End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
