Привет, ребята! Мне требуется помощь: нужно в коде макроса (Excel) задать процедуру копирования переменной в буфер обмена. Коротко: задаю значение переменной, а затем нужно каким-то образом заставить это значение перейти в буфер обмена. Как это сделать? Если кто в курсе, подскажите, пожалуйста.

помещаешь значение в ячейку ... выделяешь ... копируешь

нажимаешь "Начать запись макроса"
выполняешь все то, что тебе надо
Нажимаешь "остановить запись макроса"

Переходишь в VBA-окошко и получаешь вагон счастья

Для начала, нужно понять, что такое буфер обмена и какие форматы он поддерживает.
Потом, нужно осознать, что значение переменной должно быть представлено в одном из этих форматов, так как другого способа что-то записать в буфер обмена нет.
Ну а дальше, нужно найти объект, который управляет буфером обмена.
P.S. есть подозрение, что преобразование значения в текст и копирование текста в буфер обмена - самое оно.

Нет, ребята, похоже, вы меня ещё не поняли. Вручную мне неинтересно - данных много, времени мало... Надо автоматически из кода копировать в буфер обмена. То, что вы предлагаете - попробуйте, получится ли? Ведь то, что я копирую в буфер обмена, мне из него же надо вставлять в другой программе, например, в 1С

Да, конечно, я не против преобразования значения в текст и его копирования в буфер обмена. Вопрос в том, какой рагмент кода VBA может заставить комп это сделать?

(5) выделяешь фрагмент и Selection.Copy

(4) норм тебя поняли, читай ответы до просветления...

Азат, я тут уже два часа просветляюсь именно тем способом, какой ты мне советуешь... Попробуй сам: получится у тебя?

Dim d as DataObject
d.SetText("MyTextForBuffer")
d.PutInClipboard

d.GetFromClipboard
MsgBox d.GetText,0,"Clipboard однако"

не уловил зачем из кода что-то куда-то копировать

Torquader, спасибо, ща попробую...
skunk, я копирую не из кода, а с помощью кода.

(11) Он копирует значение переменной, но он не сказал, откуда берётся это значение (подозреваю, что где-то оно уже есть, но не в переменной).

Torquader, мой код до определённого места присваивает переменной некоторое значение из некоторой ячейки. А затем это значение мне нужно с помощью кода скопировать в буфер обмена. Вы, похоже, меня правильно понимаете.

Я попробовал использовать Ваш фрагмент кода, сделав модуль:

Sub Name()
Dim d As DataObject
d.SetText ("MyTextForBuffer")
d.PutInClipboard

d.GetFromClipboard
MsgBox d.GetText, 0, "Clipboard ??????"
End Sub

При попытке его отработать я получаю сообщение об ошибке:

"User-defined type not defined"

Что бы это значило?

А то, что я, как всегда, поспешил - объект-то создать надо.
Dim d as New DataObject
или как там в VBA пишется - целый год уже туда не заглядывал ^_^

К сожалению, и слово New не помогает... Вываливается та же ошибка.

подключить библиотеку fm20.dll из system32

ну и нью нужно ... иначе потом будет ошипка 91

Я, к моему великому сожалению, чайник (хреново, мужики, быть чайником...). Поэтому мне хорошо бы узнать, как подключить эту библиотеку и что потом с ней делать, конкретно?

заходишь в редактор кода ... меню - tools->references ... в диалоге кликаешь по кнопке browse ... искаешь эту fm20.dll в папке system32 ... открыть ... в списке должно добавиться ... макрософт формс 2.0 либрари объект ... ставишь галочку(хотя она должна поставиться сама) ... ок ... радуешься

http://s07.radikal.ru/i180/1201/f2/9dd42feddff7.png

skunk, я всё сделал, как ты сказал. Спасибо тебе! Радуюсь, конечно, как не радоваться - прежде всего тому, что есть ещё у нас отзывчивые и добрые люди. Ага, пока писал - появилась твоя ссылка... Ща погляжу, чево там...

Это о том, как подключить библиотеку... Я вроде бы это уже сделал. А что же дальше?

(22) Дальше должен работать код.

а дальше исправляешь "Dim d As DataObject" на "Dim d As New DataObject" и код работает ...

Ага... Отлично, ща попробую... И отпишусь...

Да, skunk, заработало! Спасибо тебе! Думаю, дальше я уж смогу разобраться... Спасибо всем, ребята! И с Новым годом вас!

А вообще, проще было задать вопрос google, так как он отвечает быстрее и без ошибок.

PutInClipboard  и тут ЕдРо

(28) Ну вот, пришёл поручик и всё опошлил.
P.S. вам в другую тему.