如何解决在“静默”模式下将 Excel 工作表另存为 csv 的 VBA 代码
我将交易作为 CSV 文件保存到网络驱动器。一个交易最多可以包含 3 个 CSV 文件。 由于它是网络驱动器,这可能需要几秒钟的时间,具体取决于网络流量。
因此,如果用户单击“提交”按钮,屏幕会随着每个 CSV 文件的保存而最多闪烁 3 次。从技术上讲,一切正常,但我想抑制这些操作在屏幕上可见地发生,而是显示一个消息框,一旦将 CSV 保存到网络驱动器,该消息框就会消失。
我可以找出消息框部分,但找不到任何可以解决“隐形保存”部分的内容。我使用的代码是:
Set shtToExport = WS3 'Sheet to export as CSV for Transaction
Set wbkExport = Application.Workbooks.Add
shtToExport.copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.displayAlerts = False 'Overwrite without asking
wbkExport.SaveAs Filename:=Path & Filename1 & ".csv",FileFormat:=xlCSV,Local:=True
'Create CSV Backup to retieve Transaction and Bonuspoint Info for transaction
wbkExport.SaveAs Filename:=Path & Filename2 & ".csv",Local:=True
Application.displayAlerts = True
wbkExport.Close SaveChanges:=False
WS3、Path、Filename1 和 Filename2 在代码中的其他地方定义
有什么想法吗?
解决方法
尝试使用: Application.ScreenUpdating = False
这应该会停止屏幕闪烁,但是之后您应该将其设置为 true。
让我知道这是否有效 谢谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。