Здравствуйте, гуру и другие форумчане.
Проблема состоит в следующем. Купил новый бук. Установил Офис 2007. Перенес все свои файлы.
Использую при двойном нажатии левой кнопки мыши копирование содержимого ячейки.
Так вот при вставке значения, вставляются два непонятных квадратика. Хотя MsgBox выдает правильное значение. На старом компе вставляет правильно, а на новом не хочет.
Нутром чувствую, что ошибка где-то рядом, но понять не могу. Может, какая-нибудь библиотека не подключена?
Проблема состоит в следующем. Купил новый бук. Установил Офис 2007. Перенес все свои файлы.
Использую при двойном нажатии левой кнопки мыши копирование содержимого ячейки.
Так вот при вставке значения, вставляются два непонятных квадратика. Хотя MsgBox выдает правильное значение. На старом компе вставляет правильно, а на новом не хочет.
Код |
---|
Dim MyData As DataObject eee = Left(Target.Address(0, 0), 1) If eee = "I" Or eee = "K" Then rrr = Target.Value Set MyData = New DataObject MyData.SetText rrr MyData.PutInClipboard MsgBox rrr & " Скопировано в буфер" Cancel = True End If |
Нутром чувствую, что ошибка где-то рядом, но понять не могу. Может, какая-нибудь библиотека не подключена?