使用vbs运行macros后，Excel变得没有响应

从VBS，我正在一个已经打开的Excel工作簿中运行一个macros“公司”。 macros正在执行（这是在重新打开工作簿后看到更新的单元格值之后确认的），但是在运行代码后不久，就会出现excel。 你可以让我知道我需要改变我的代码。

macros代码：

Sub Inc() Dim bs As Worksheet Set bs = Workbooks("Main.xlsm").Sheets("TimeStampWork") bs.Range("K11").Value = bs.Range("K11").Value + 1 bs.Range("L11").Value = Now bs.Range("L11").NumberFormat = "dd-mm-yyyy, hh:mm:ss" End Sub 

VBS代码：

 Option Explicit Dim xlApp, xlBook Set xlBook = GetObject("E:\Main.xlsm") Set xlApp = xlBook.Application xlApp.Visible = True xlApp.Run "Inc" xlBook.Save Set xlBook = Nothing Set xlApp = Nothing 

更新：而不是macros“公司”我试图运行一个简单的消息框macros，它没有任何问题。 我看不到任何问题与Excel。

Answer 1

这个问题现在已经解决了。 使用screenupdate选项更改了我的macros，解决了问题

 Sub Inc() Application.ScreenUpdating = False Dim bs As Worksheet Set bs = Workbooks("Main.xlsm").Sheets("TimeStampWork") bs.Range("K11").Value = bs.Range("K11").Value + 1 bs.Range("L11").Value = Now bs.Range("L11").NumberFormat = "dd-mm-yyyy, hh:mm:ss" Application.ScreenUpdating = True End Sub