Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » aleontjev
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Полное зависание Excel
 
#
30.09.2016 07:31:27
Спасибо!
Хотя, думаю проблема все таки не в этом.
Я ж уже перенес все формы по одной. И функции объявлены также.
И заработало.
Изменено: aleontjev - 30.09.2016 07:32:39
 
Перейти    
Полное зависание Excel
 
#
29.09.2016 21:01:09
Спасибо!

В принципе, я все уже восстановил. Но через "одно место".
Я создал кучу пустых форм, и просто копировал все объекты формы из старого файла в новый.
Благо дело - есть доступ к удаленному компьютеру. Т.е. через подключение через удаленный рабочий стол выделял все объекты на форме и вставлял уже на своем компьютере во вновь созданную форму.
Заняло час времени, но файл действительно, очень важный.

Офис 2016 - 64 битный  
Изменено: aleontjev - 29.09.2016 21:01:46
 
Перейти    
Полное зависание Excel
 
#
29.09.2016 17:33:16
Файлы были только в одной папке.
Удалил. К сожалению, не помогло.
 
Перейти    
Полное зависание Excel
 
#
29.09.2016 17:14:33
Не помогло. А вот откат системы - очень даже помог. Но это не выход.
Все равно система потом обновится еще раз.
 
Перейти    
Полное зависание Excel
 
#
29.09.2016 15:22:27
Здравствуйте!

Вчера столкнулся с очень неприятной ситуацией.

Есть рабочий файл
В нем куча форм
Вчера этот файл перестал запускаться на двух компьютерах (тупи полностью зависает Excel, помогает только снятие задачи).
У меня вчера файл работал.
Я работаю с ноутбука. Неделю минимум не перегружал его. Сегодня утром работал в файле. Потом перегрузил ноутбук. Файл и у меня перестал работать.
На всех компьютерах установлен Офис 2016, 64 bit

Файл прекрасно продолжает работать на Офис 2010.

Для начала в 2010 Офисе удалил все модули и формы.
2016 - открылся
Экспортировал все модули.
Импортировал в 2016 - все замечательно.

А вот формы импортировать напрочь не хочет. Никакие. Опять зависает.

Есть подозрение, что это сама винда что-то обновила.
на одном компе Windows 7, на двух Windows 10, на всех офис 2016 - файл не работает
комп Windows Server 2008, Windows XP, на обоих Офис 2010 - файл работает.


Буду боагодарен за любые идеи.
Заранее спасибо.
 
Перейти    
Буфер обмена в Excel 2013, Windows 8, Не работает .PutInClipboard
 
#
05.03.2015 10:42:13
значение переменной формируется в процессе работы макроса.
Ctrl+C не используется.
Я пытаюсь разобраться, почему при варианте отправки страницы на печать на принтр Adobe PDF в буфере остается все, что нужно, а если обычный принтр - в буфере остается непонятная ерунда.
В буфере остается всякая ерунда даже в том случае, если выполнить такое:
Код
Public Sub ClearClipboard()
    Dim MyDataObj As New DataObject
    MyDataObj.SetText ""
    MyDataObj.PutInClipboard
End Sub

казалось бы в буфере должно быть пустое значение. Но в буфере остается непонятно что.
Помогла + 1 строка:
Код
Public Sub ClearClipboard()
    Dim MyDataObj As New DataObject
    MyDataObj.SetText ""
    MyDataObj.PutInClipboard
    MyDataObj.Clear
End Sub
Изменено: aleontjev - 05.03.2015 11:20:30
 
Перейти    
Буфер обмена в Excel 2013, Windows 8, Не работает .PutInClipboard
 
#
04.03.2015 16:04:32
Имя файла должно помещаться в буфер обмена. Т.е. конечное значение переменной tempstr. И не важно, задаю я это значение как в примере ("Необходимое имя файла") или же переменная задается другими формулами. Т.е. задача - поместить текстовое значение переменной tempstr
 
Перейти    
Буфер обмена в Excel 2013, Windows 8, Не работает .PutInClipboard
 
#
03.03.2015 23:48:10
Здравствуйте.

Столкнулся с такой проблеммой:
Нужно поместить в буфер обмена текстовые данные.
И не могу разобраться, в чем проблема.
Задача - поместить в буфер обмена текстовые данные с возможностью последующей их вставки в другие приложения через Ctrl+V

Вариант 1:
Код
Dim FnameVed As New DataObject 
tempstr = "Необходимое имя файла"
FnameVed.SetText Format(tempstr)
FnameVed.PutInClipboard
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, ActivePrinter:=MainForm.ComboBox1.Value, Copies:=1, Collate:=True, IgnorePrintAreas:=False

Результат - Если  принтер Adobe PDF - открывается дмалоговое окно сохранение файла и в строке имени файла нажимаю Ctrl+V - всталяется "Необходимое имя файла", и в буфере тоже остается "Необходимое имя файла", т.е. значение tempstr
Вариант 1:
Код
Dim FnameVed As New DataObject 
tempstr = "Необходимое имя файла"
FnameVed.SetText Format(tempstr)
FnameVed.PutInClipboard

Результат - в буфере два "квадратика". И эти же два квадратика остаются в буфере в Варианте 1, если принтер отличен от Adobe PDF
Как писал в теме:
Система - Windows 8, 64 бит
Офис - Excel 2013
В VBA VBAProject Microsoft Forms 2.0 Object Library подключено
Пробовал разобраться с Declare Function SetClipboardData - не получилось...

Заранее спасибо
Изменено: aleontjev - 04.03.2015 00:58:28
 
Перейти    
Автоматический пересчет всех листов книги
 
#
09.03.2014 18:30:39
Спасибо, попробую.
 
Перейти    
Автоматический пересчет всех листов книги
 
#
09.03.2014 11:16:15
Здравствуйте.

Помогите пожалуйста с таим вопросом
Есть книга с некоторым количеством листов и сравнительно немаленьким  объемом данных (на основном листе с данными более .На открытие книги стоит маленький макрос
Код
Private Sub Workbook_Open()
    Sheets("111").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ' и так еще несколько листов заканчивается на 
    Sheets("555") .Select
    Range("A1").Select
    ActiveWindow.WindowState = xlMinimized
    Windows(Me.Name).Visible = False
End Sub

Но периодически (не при каждом открытии), выбивает ошибку выполнения макроса. При этом есть такое ощущение, что вся книга полностью пересчитывается в цикле. Нагрузка на процессор приложением Excel при этом начинает составлять порядка 45-50%.
Иногда открывается нормально, без проблем, все работает. И я никак не могу понять закономерность этой ошибки.

P.S. Если вопрос глупый, простите, я только учусь, но ответу все равно буду рад
Версия Excel 2010
Изменено: aleontjev - 09.03.2014 20:21:03
 
Перейти    
Страницы: 1
Наверх