VBA代码，用于在"silent"模式下将Excel工作表另存为csv

Question

我将事务保存为CSV文件到网络驱动器。一个事务最多可以包含3个CSV文件。由于它是一个网络驱动器，这可能需要几秒钟，具体取决于网络流量。

如果用户点击"提交"按钮，屏幕闪烁最多3次，每个CSV文件被保存。从技术上讲，一切都很好，但我想抑制这些操作发生在屏幕上可见，而是显示一个消息框，一旦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", FileFormat:=xlCSV, Local:=True
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False

WS3, Path, Filename1和Filename2在代码

的其他地方定义任何想法?

Answer 1

尝试使用:应用程序。ScreenUpdating = False

这应该停止屏幕闪烁，但之后你应该将其设置为true。

让我知道这是否有效谢谢!