<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[za_yao的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/za_yao</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; za_yao]]></copyright><item><title><![CDATA[每天定时发邮件]]></title><link>https://blog.youkuaiyun.com/za_yao/article/details/52357809</link><guid>https://blog.youkuaiyun.com/za_yao/article/details/52357809</guid><author>za_yao</author><pubDate>Mon, 29 Aug 2016 23:49:28 +0800</pubDate><description><![CDATA[将下面代码复制到文本文档，并保存为vbs格式，然后用win7的定时任务执行。


' 注意：以单引号'开头的行为注释


' fdt为今日日期的字符串，比如 '2012-3-1'，可用于附件名字里和邮件标题里


' receiptions 为收件人列表，多个收件人之间用分号隔开


' Subject 为邮件标题


' Body 为邮件正文


' Atta]]></description><category></category></item><item><title><![CDATA[excel字符串拆分为行]]></title><link>https://blog.youkuaiyun.com/za_yao/article/details/51474897</link><guid>https://blog.youkuaiyun.com/za_yao/article/details/51474897</guid><author>za_yao</author><pubDate>Sun, 22 May 2016 14:04:28 +0800</pubDate><description><![CDATA[Sub test()
Dim arr() As String
Sheets("sheet2").Activate


xrow = Range("e65536").End(xlUp).Row
For i = 2 To Range("a65536").End(xlUp).Row
    arr = Split(Cells(i, 2), ",")
 If UBound(arr)  ""]]></description><category></category></item></channel></rss>