Excel的使用變得VBS

從VBS運行宏後反應遲鈍，我運行在一個已經打開的Excel工作簿宏「公司」。該宏正在執行（這是在重新打開工作簿後看到更新的單元格值後確認的），但是在運行代碼後不久，excel就會變得很快。你可以讓我知道我需要改變我的代碼。Excel的使用變得VBS

宏代碼：

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

更新：取而代之的是宏觀的「公司」我想只是一個簡單的消息框運行宏，和它的工作原理沒有任何問題。我看不到任何問題與Excel。

來源

2017-08-28 acr

此問題現已解決。改變了我與screenupdate選項宏從而解決了這個問題

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

來源

2017-08-28 11:18:23 acr

Excel的使用變得VBS

回答

相關問題