Question

excel中如何使用vba实现将另一个文件以某单元格内容为文件名保存

ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & Range("Q3").Value & ".xlsx"
ActiveWorkbook.Save
这是我的代码，可以实现把文件另存为。但我想利用代码将别的文件也另外保存，另外的文件不想有代码。就是想用文件1的代码对文件2进行操作，将其以某单元格内容为文件名另外保存。也可以把文件2复制出来重命名。有高手可以指点吗？

Answer 1

savecopyas 是复制，还会保留原先的格式
另存为一下xlsx就好了，FileFormat:=xlOpenXMLWorkbook
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Range("Q3").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook