标签：
1.VBA编辑器复制粘贴出来的代码乱码
解决方法：切换到中文输入模式再复制出来就行了
2.获取VBA活动和非活动窗口的名称与路径
1 1 Dim wbpath, filename As String 2 2 wbpath = ThisWorkbook.Path ’这个获取的是宏所在的workbook的路径 3 3 ‘filename = ThisWorkbook.Name ‘这个是宏所在的workbook的名字，不带路径 4 4 filename = ActiveWindow.Caption ‘获取到当前正在用的workbook的名字,文件名带后缀，需要截取一下 5 5 filename_len = Len(filename) 6 6 filename = Left(filename, filename_len - 5) ‘减5是为了去掉‘.xlsm’后缀 7 7 ‘MsgBox "本文件的路径为：" & wbpath 8 8 MsgBox "文件名为：" & filename
3.文件路径的智能拼接与截取
1 a = Format(Date, "yyyy年m月d日") ‘当前年月日 2 ‘ b = Format(Time, "hh时mm分ss秒") ‘当前时间,以秒为单位会生成多个txt不方便读取 3 b = Format(Time, "hh时mm分") ‘当前时间,以秒为单位会生成多个txt不方便读取.以分作为最小执行单位 4 currenttime = a & b 5 ‘MsgBox a & b ‘显示日期时间 6 Open filepath & "\" & filename & "_ErrorInfo" & currenttime & ".txt" For Append As #1 7 Print #1, ErrorInfo ‘逐行打印出错误信息 8 Close #1
Ruby操作VBA的注意事项和技巧：乱码、获取VBA活动和非活动窗口的名称与路径、文件路径的智能拼接与截取（写入日期）、宏里调用和控制窗体以及窗体上的控件、不同workbook之间的宏互相调用、
标签：
原文地址：http://www.cnblogs.com/lsgwr/p/5787468.html
