У меня есть макро/vba в доступе, который сохраняет несколько книг excel после редактирования. Однако иногда другие пользователи могут использовать один из файлов excel в режиме чтения/записи.Доступ/Excel VBA - Удаление предупреждений и сообщений дисплея
появляется окно ниже сообщение, что я делаю, продолжайте нажимать не до того, как пользователь закончил с использованием Excel файл
После того как файл свободен ниже окне сообщения появляется, я нажимаю на «читать -Write»и мой код возобновляется с места остановки (пример изображения)
Вопрос - Как я могу получить доступ VBA или Excel VBA нажать„Нет“для меня?
Примечание: Я использовал Application.DisplayAlerts
и DoCmd.SetWarnings
оба по умолчанию был Yes
. (Или, может быть, я не правильно их реализую).
Код:
Function RefreshExcelTables()
On Error GoTo Error
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.workbooks.Open "c:\test\Test_Sheet1.xlsb"
ExcelApp.ActiveWorkbook.refreshall
ExcelApp.ActiveWorkbook.Save
ExcelApp.ActiveWindow.Close
ExcelApp.workbooks.Open "c:\test\Test_Sheet2.xlsb"
ExcelApp.ActiveWorkbook.refreshall
ExcelApp.ActiveWorkbook.Save
ExcelApp.ActiveWindow.Close
ExcelApp.workbooks.Open "c:\test\Test_Sheet3.xlsb"
ExcelApp.ActiveWorkbook.refreshall
ExcelApp.ActiveWorkbook.Save
ExcelApp.ActiveWindow.Close
Error:
If Err.Number = 1004 Then
call pause(5)
Resume
End If
Set ExcelApp = Nothing
End Function
Public Function Pause(intSeconds As Integer)
Dim dblStart As Double
If intSeconds > 0 Then
dblStart = Timer()
Do While Timer < dblStart + intSeconds
Loop
End If
End Function
Какой код вызывает отображение вышеуказанных сообщений? Вы улучшили свой вопрос. –
Maciej Los - я включил свой код – Elixir