Я просто приведу пример.Так как я думаю, что мое редактирование немного за борт, и я уважаю этот сайт здесь, чтобы научить людей не просто делать всю работу за кого-то.Более того, направляйте их, чтобы они действительно узнали, что означают все сделанные мной изменения и почему я их сделал.
'This is the fun stuff using your computer to sleep in milliseconds. Since we are teaching and i am not going to assume anything. Here is the code for both versions of excel.
'Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)' API Call for 64bit excel
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' API Call for 32bit excel
' This is turning off all your screen update functions
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.AskToUpdateLinks = False
End with
' Add Code here
' You can remove your application.wait and try
Sleep 100 ' this is milliseconds so you may have to fine tune it by adding more time or less
Doevents ' Doevents lets the macro keep running and will keep "Not Responding" from showing up at the top of your workbook.
BeforeExit: ' I always add a BeforeExit: So i Don't forget to turn my settings back on to see my hard work
Set objShell = nothing ' It is good practice to always release your objects as well
With Application
.ScreenUpdating = true
.DisplayAlerts = true
.AskToUpdateLinks = true
End with
Можете ли вы объяснить мне немного о SAP?Я вижу ваш код, и я вижу ваши звонящие ключи, которые я не уверен, если это для SAP или Excel.Не рекомендуется избегать вызова функций клавиатуры.