Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
VBA недостаточно памяти для завершения операции
 
Ваш вариант не помог, к сожалению
Пробовал добавить опрос буфера прямо в цикл, не используя функцию и объявляя новый объект Obj один раз перед циклом, а не каждый раз внутри него - тоже не помогает
VBA недостаточно памяти для завершения операции
 
Код
Sub scanclipboard()
a = 0
Do While a = 0
ct = ClipboardText()
a = InStr(1, ct, "нужный текст")
b = DoEvents()
Loop
....
End Sub
Изменено: falseflags - 14.10.2017 01:42:22
VBA недостаточно памяти для завершения операции
 
Приветствую!
У меня стоит задача сканировать буфер обмена, пока в нем не появится нужная строка.
Многократно в цикле while выполняется следующая функция:
Код
Function ClipboardText() ' чтение из буфера обмена
    'On Error Resume Next
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
    End With
    On Error GoTo 0
End Function

В итоге на n-ый раз программа вываливается с ошибкой DataObject:GetText Недостаточно памяти для завершения операции. Подскажите, что можно сделать?
Изменено: falseflags - 14.10.2017 01:36:52
проблема при обновлении данных из web
 
Здравствуйте!  
Возникла следующая проблема: при обновлении внешних данных через web-запрос в excel 2007 иногда (возможно из-за проблем соединения, или времнной недоступности сервера) выходит сообщение вида: "не удается открыть www.blablabla.ru Не удается найти сервер Интернета или прокси-сервер" с кнопкой OK. Соответственно, пока на нее не нажмешь, дальнейшее обновление данных прекращается, а необходимо, чтобы оно происходило с постоянной периодичностью.  
В Sub Auto_Open() написал Application.DisplayAlerts = False, при закрытии соответственно true, но проблема не решилась, эти сообщения возникают редко, но блокируют всю дальнейшую работу макросов по актуализации данных.  
Подскажите плз, как можно отключить эти уведомления?
Страницы: 1
Наверх