未来将会如何

创建VBA方法如下： Public p As String '文件保存位置，也是解压文件存放位置Public Sub SaveAttach(Item As Outlook.MailItem) p = "C:\Users\Administrator.TXV6HLXTU3ZW8KD\Desktop\" SaveAttachment Item, p, "*.rar" '此处...

VBA打开文件自动执行宏：Sub auto_open()Application.Run "PERSONAL.XLSB!更新在线接电" '此处填工作簿和宏名，若宏位于此工作簿中，则整句直接改为宏名，也无需加双引号End Sub遍历文件夹下的所有文件：Dim fna As Stringfna = Dir("C:\周报\*.csv") '正则条件可修改Do While fna...