我正在构建一个表单,当您填写该表单时,它应该生成 2 个文件作为输出。
为了做到这一点,我在后台有 2 张纸,我根据用户输入的按钮将其保存(作为 csv)来填充。
这是保存工作表的代码-
Worksheets("worksheetname").SaveAs Filename:="C:\path" & name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
问题是,用户按下按钮后,他正在填写的表单现在“另存为 csv”,而不是像以前那样保存为 xlsm。
有没有办法避免这种情况的发生?在不影响表单的情况下生成输出?
Thanks!
为了保持原始工作簿完整,您需要 forkcopy在将工作表保存为 CSV 之前。尝试这个:
Application.DisplayAlerts = False
Worksheets("worksheetname").copy ' Forks a copy of the sheet in a new, active WB
With ActiveWorkbook
.SaveAs Filename:="C:\Path\" & name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
.Close False
End With
Application.DisplayAlerts = True
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)