Question

Outlook VBA调用Excel打开某.xls文件进行修改，保存时出现.flies文件夹。

我收到某封邮件后触发Outlook的一个脚本，该脚本前部分会检查该邮件的附件，如果附件是满足条件的.xls文件则保存到path路径中，保存为.xls文件。然后会运行如下代码。当它运行到倒数第3行保存时就会出现.files文件夹。如何才能不出现.files文件夹呢？

Dim myExcel As Object
Dim 某工作簿 As Object
Dim 某工作表 As Object
Dim n as Byte, p as Byte

Set myExcel = CreateObject("Excel.Application")
myExcel.Workbooks.Open (path & 某工作簿的文件名)
Set 某工作表 = 某工作簿.Activesheet

‘然后对某工作表的内容和格式做一些操作，比如：

某工作表.Columns("A:A").ColumnWidth = 16
很多行，我就不黏贴了。这些语句肯定是没问题的。

某工作簿.Save ’这一行执行后.files文件夹就出现了。
某工作簿.Close
myExcel.Quit

Answer 1

Set 某工作簿 = myExcel.Workbooks.Open (path & 某工作簿的文件名)

......
......
某工作簿.Save ’这一行执行后.files文件夹就出现了。
某工作簿.Close

上面两行语句相当于：某工作簿.Close True