1.VBA编辑器复制粘贴出来的代码乱码
解决方法：切换到中文输入模式再复制出来就行了
2.获取VBA活动和非活动窗口的名称与路径
Dim wbpath, filename As String
wbpath = ThisWorkbook.Path ’这个获取的是宏所在的workbook的路径
'filename = ThisWorkbook.Name '这个是宏所在的workbook的名字，不带路径
filename = ActiveWindow.Caption '获取到当前正在用的workbook的名字,文件名带后缀，需要截取一下
filename_len = Len(filename)
filename = ) '减5是为了去掉‘.xlsm’后缀
'MsgBox "本文件的路径为：" & wbpath
MsgBox "文件名为：" & filename
3.文件路径的智能拼接与截取
a = Format(Date, "yyyy年m月d日") '当前年月日 ' b = Format(Time, "hh时mm分ss秒") '当前时间,以秒为单位会生成多个txt不方便读取 b = Format(Time, "hh时mm分") '当前时间,以秒为单位会生成多个txt不方便读取.以分作为最小执行单位 currenttime = a & b 'MsgBox a & b '显示日期时间 Open filepath & , ErrorInfo '逐行打印出错误信息 Close #