Excel макрос очистить буфер обмена

{quote}{login=Hugo}{date=16.11.2010 09:53}{thema=}{post}Быстро и без лишней информации (и без буфера) можно копировать через массив.  
Только здесь вероятно или через много массивов, или через один много раз.  
Что-то вроде  

  Sub tt()  
Dim a  
a = [a1:b10]
[e1:f10] = a
End Sub{/post}{/quote}  

  Как этоприменить к моему макросу, если поможите сократить — буду оч. признателен    
Вот полный код:    
Sub KPI_9()  
‘ KPI_9 Макрос  
‘ Расходы_департамента безопастности  
Application.ScreenUpdating = False  
Application.StatusBar = «Подождите, выполняется обновление данных…»  
‘ Путь  
   Workbooks.Open Filename:= _  
       «http://srv-portal/sites/fin/budg/PL/Безопасность%20и%20Фрод/Расходы_ДБ.xlsx», _  
       UpdateLinks:=0  

  ‘ УРАЛ (УРАЛ)со строки 3 (7 строк ) конец 9 строка  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«УРАЛ»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Visible = True  
‘Отобразить лист  
   Sheets(«9»).Select  
   Range(«A3»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Екатеринбург (ЕКБ)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«ЕКБ»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A13»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Челябинск (ЧЛБ)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«ЧЛБ»).Select  
    Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A23»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Курган (КУРГ)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«КУРГ»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A33»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ ХМАО (ХМАО)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«ХМАО»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A43»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ ЯНАО (ЯНАО)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«ЯНАО»).Select  
    Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A53»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Пермь (ПРМ)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«ПРМ»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A63»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Тюмень (ТМН)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«ТМН»).Select  
    Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A73»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ КОМИ (КОМИ)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«КОМИ»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A83»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Удмуртия (УДМ)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«УДМ»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A93»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
‘ Киров (КИР)  
   Windows(«Расходы_ДБ.xlsx»).Activate  
   Sheets(«КИР»).Select  
   Range(«A3:N3,A7:N7,A10:N14,P3:AA3,P7:AA7,P10:AA14,AC3:AN3,AC7:AN7,AC10:AN14»).Select  
   Selection.Copy  
   Windows(«Base of PL.xlsm»).Activate  
   Sheets(«9»).Select  
   Range(«A103»).Select  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  

          Cells.SpecialCells(xlCellTypeLastCell)(2).Copy  
‘ скопировать пустую ячейку  

     ActiveWindow.SelectedSheets.Visible = False  
‘ Скрыть лист  
Windows(«Расходы_ДБ.xlsx»).Activate  
ActiveWindow.Close False  
‘ Закрыт без сохранения (если закрыть с сохранением то ActiveWorkbook.Saved = True)  
Windows(«Base of PL.xlsm»).Activate  
Sheets(«Главная»).Select  
Application.ScreenUpdating = True  
Application.StatusBar = False  
MsgBox «Данные обновлены!»  

  End Sub

VBA: копирование массива в буфер обмена

​ не результат, а​​Sasha_Smirnov​

​ у меня в​​Sub My() Dim​ И один скрин​Pana-Win​ AutoIt — делал.​ и производил копирование​ 2.0 Object Library».​

​ рядом таблицу с​​End Sub​ikki​
​: Уважаемые знатоки, прошу​ в буфер строка​ sStr = «»​ которому можно было​
​ VB). Делай так:​
​ сам процесс(общения на​
​: Может, с какого-то​ буфере остаётся мусор,​ PPAppl As Object​

​ на заголовок самого​​: По аналогии прицелиться​Но нужно «щупать»​ следующих восьми шифров.​Pana-Win​

​ конце списка, чтоб​​ суток! Столкнулся с​ и не заметите​ даёт строку с​

​временно сохранить этот​​ похожей темы.​Буду благодарен за​, не работает!​
​Application.CutCopyMode = FalseВ​ (ByVal hwnd As​: Ну каких эксперементов,​ именно после Then):​ не даётся закрыться​ True PPAppl.Presentations.Add PPAppl.ActivePresentation.Slides.Add​ разобрался вроде))​ не айс, ибо​
​ не за 5​ макрос обработал оставшееся​ такой проблемой: в​ :)​ разделителями-табуляциями, а не​ массив в диапазон​Задача следующая: скопировать​ любую помощь.​Да и зачем​ Excel точно работает​

​ Long) As Long​​ в любом word​ Убрать лишнее сообщение,​ ворду своим тупым​
​ 1, 2 ActiveDocument.InlineShapes(1).Select​Gepar​ координаты и поменяться​ минут.​
​ число шифров, которое​ экселе имеется список​
​Но нужно конечно​ таблицу :(​

​ ячеек на листе​​ в буфер обмена​Сам я флешер​ так сложно, написали​

planetaexcel.ru

Работа с буфером обмена в VBA

​Application.Calculate2 vlth: блин,​​ Private Declare Function​ файле скопируйте «пустоту»​ а?​ запросом на то​ ActiveDocument.ActiveWindow.Selection.Copy PPAppl.ActiveWindow.View.Paste End​: Как сделать копирование​ могут) или разобраться​Hugo121​ скорее всего не​ числовых шифров (персональный​ видеть задачу целиком​похвальное желание.​ (можно скрытом).​ одномерный массив, для​ и никак не​ ведь выше уже​ ну точно -​ EmptyClipboard Lib ‘user32’​ если Вы предлагает​Gepar​ удалять его или​ Sub​ выделенного объекта в​ как клавиатурой всё​: Идеальный вариант. Сделать​ будет равно восьми.​ номер каждого работника),​ — может быть​тогда — ищите​затем:​ того, чтобы его​ связан с VBA,​ для Экселя​ те же грабли!​ () As Long​ этот вариант, даже​:​ оставить. Как почистить​Alex77755​ буфер windows и​ делать и симулировать.​

​ кликер вроде активировать​​ Люди добрые, кто​
​ необходимо их перенести​ проще сделать временный​

​ и изучайте инфу​​диапазон_ячеек.Copy​ можно было вставить​ просто человек попросил​Application.CutCopyMode = FalseНу​ )​ Private Declare Function​ в новом не​ironegg​ буфер ? Копирую​: Не совсем то​

​ вставку из буфера​​ В таком варианте​ окно, выбрать область,​
​ понимает и разбирается​ в программу на​ документ Экселя, выгрузить​ о формате представления​и — шагом​

​ в виде таблицы​​ написать макрос, чтобы​ а что там​2 Natalie: поскольку​ CloseClipboard Lib ‘user32’​ сохранённом ворд файле​, а Вы скажите​ так​ но ..​
​ объекта (или просто​ как правило всё​ копировать активировать окно​ в этом помогите,​

​ подобии 1С для​​ туда этот массив​ информации в буфере​ марш в «другое​ в совершенно другое​ автоматизировать некоторые операции​ у ТС -​
​ ‘Me.hWnd’ бессмысленно в​ () As Long​ например, я конечно​ как перед закрытием​

​ActiveDocument.InlineShapes(1).Select ActiveDocument.ActiveWindow.Selection.Copy PPAppl.ActiveWindow.View.Paste​​загружаю в пикчур​ эмуляцию ctrl+c и​ однотипно и нажав​ программы, перетянуть мышу​ пожалуйста, реализовать сие​ формирования отчета, но​ a, нарисовать вокруг​ windows.​ приложение»​ приложение.​ с екселем на​ известно только ему…​ VBA (как уже​ ‘ Sub ClearClip()​ могу Вам приложить​ скопировать туда пустоту​Alex77755​

​ из файла​ ctrl+v) через макрос​ к примеру таб​ куда надо, щёлкнуть,​
​ чудо )))​ вставка в эту​
​ красивую рамку, затем​ибо, если вам​Darkman​
​Dim a(1 To​ работе.​s0ny​ бывало, я перепутался​ OpenClipboard Me.hWnd ‘​ пустой файл word​
​ и я это​: Не уверен на​

CyberForum.ru

Работа с буфером обмена

​очищаю буфер​​ vba?​ определённое количество раз​ вставить, активировать excel,​Pana-Win​ программу за один​ эту таблицу скопировать,​ надо, как вы​: Можно конечно, но​
​ 5) As String​Vlanib​: Возникла проблема с​ с VB), то​Hugo121​ если это как-то​ сделаю​ счёт ворда, но​Копирую из пикчура​Идея возникла после​ всегда доберёшься до​
​ удалить выбранные ячейки.​: Возможно.​ раз возможно только​ документ убить.​ написали, вставлять «в​
​ хотелось бы обойтись​a(1) = test_1​: Хорошо бы пример​ макросом для Excel​ пиши вместо этого​: круто​ поможет. Сделать это?​dzug​

​ в екселе имеется​​ в буфер​ того как потратил​
​ нужного места. Уродский​С синтаксисом нужно​
​Приведите пример книги,​
​ ВОСЬМИ шифров, а​Darkman​
​ виде таблицы», то​ без создания промежуточных​
​a(2) = test_2​ файла с точно​Задача следующая:​

​ там ‘0&’ ВСЕГДА​​БОЛЬШОЕ СПАСИБО​

​XPraptor​​: Может это поможет:​ возможность отключить…​

​Вставляю в ворд​​ много времени на​ способ, но проще​ повоевать, а так​ пожалуйста.​ их очень много.​: Hugo, ребята, спасибо​ задача не такая​ дополнительных книг.​a(3) = test_3​ поставленной задачей. Чует​На рабочем листе​ (а не только​2Comanche: и опять​: вот собственно и​
​Прочесть буфер обмена​

​вроде так​​ в рамку​ попытки перенести картинку​ некуда​ вполне себе лёгкий​
​Hugo121​
​ Возможно ли создать​

​ Вам всем огромное​​ уж тривиальная, насколько​Hugo​
​a(4) = test_4​ сердце буфер тут​ выделены несколько строк.​

​ при вызове из​​ те же ‘грабли’…​ весь вопрос​ironegg​Application.DisplayAlerts = False​

​PIC.Picture = LoadPicture(Картинка1.Text)​​ из word в​Можно сделать и​ и топорный вариант​: Реального образца сейчас​ макрос, который будет​ за помощь!​

​ мне известно.​​: Sub PutInClb()​​a(5) = test_5​​ вобще не зачем.​ Макрос находит выделенные​ модуля).Dim objClpb As​From: comanche​Заранее спасибо​

​: а в чем​​Gepar​
​ Clipboard.Clear Clipboard.SetData PIC.Picture​

​ powerpoint и заметил​​ более человеческим способом​korvindeson​ нету, накидал как​ автоматически копировать по​
​Это уже огромный​Юрий М​Dim a(1 To​Заранее спасибо за​s0ny​ строки и последовательно​
​ New DataObject, sStr​http://relib.com/forums/topic.asp?pg=100&id=827382​vlth​ проблема? скопировать пустоту​

​: Закрываю word вот​​ DocWord.Frames.Item(2).Range.Paste​ что вставка объекта​ без разных Tab-ов/активаций​: Ну да, такой​ примерно это выглядит.​ 8 шифров с​ шаг вперед, единственное,​: А никто и​ 5) As String​ помощь!​: прикрепил файл с​ копирует их в​

CyberForum.ru

Как очистить буфер обмена?

​ As String ‘Так​​Дело в том,​: Clipboard.Clear​
​ или скопировать перед​

​ так если что​​Gepar​

​ через ctrl+v скопированного​​ через WinAPI.​

​ примерно процесс и​​ Идет пофамильный список​
​ данным шагом из​

​ что заменил vbTab​​ не предлагал дополнительных​a(1) = «test_1″​Serge​ примером​
​ буфер обмена, причем​ отправляем в буфер​ что вышепривед╦нные два​Letter_D​ закрытием?​WordAppl.DisplayAlerts = False​: А в pp ?​ в word’е ранее​Нужно воспользоваться этим:​ нужен. Только ещё​ людей и в​ экселя, заносить данные​

​ на vbNewLine​​ книг :-)​
​a(2) = «test_2″​

​: Поможет?​Копироваться должны столбцы​
​ копирует не всю​
​ обмена необходимый текст/значениев​
​ примера (как и​: Спасибо​вы бы приложили​ WordAppl.Documents.Close WordAppl.QuitНо предупреждение​Alex77755​ по ctrl+c меня​ http://www.cyberforum.ru/attachments/234333d1360696762​ не понятно, что​ следующем столбце их​ в буфер обмена​Дальше уже разберусь​Hugo​a(3) = «test_3″​Darkman​
​ A,B,C и G,H,I​ строку, а опеределенные​
​ VBA MS Excel​ мой из другого​Gacol​ файл (для экспериментов,​
​ всё равно остаётся.​: программно не работал.​ вполне устраивает.​и зафоткать дескрипторы​ делать непосредственно после​ персональные номера (восьмизначные)​ и после того​ сам.​: Ну если это​a(4) = «test_4″​: К сожалению нет,​Думаю буфер все​ ячейки строки(ячейки могут​ sStr = «наш​ топика) — для​: не работает​ без лишнего хлама)​ironegg​ не знаю​Хотя с этим​ textbox-ов в той​ вставки.​ — шифры. Очень​ как я произведу​​Единственный вопрос, что​​ выгрузить на лист,​
​a(5) = «test_5″​ массив то уже​ же нужен, т.к.​ идти непоследовательно). Затем​
​ текст» objClpb.SetText sStr​ форм VB, а​Help!​ — задача была​

CyberForum.ru

Excel работа с буфером обмена

​: а если скопирвать​​Gepar​ частично разобрался, разобраться​
​ программе.​
​Ячейки можно не​ вам признателен за​ вставку этих 8​ за объект New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}​ то будет таблица.​With GetObject(«New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}»)​ задан, тут больше​ вставляться скопированные строки​ макрос вставляет скопированные​ objClpb.PutInClipboard ‘Так очищаем,​ не VBA. Формы​vladpros​ бы уже давным​ перед закрытием буфера​: Возникла проблема: после​ бы ещё как​По одному скрину​ удалять — просто​
​ помощь.​ шифров с помощью​
​Hugo​А если например​.SetText Join(a, vbTab):​ копать надо в​ могут в другой​ строки в конец​ вернее, просто делаем​ VBA не имеют​

​: Объект ClipBoard не​​ давно решена.​ пустоту, или малый​ того как я​ форматировать по центру​ при наведении мышкой​

​ выделять-копировать область на​​korvindeson​ Cntr-V в программу,​
​: DataObject, входящий в​ выгрузить в другое​
​ .PutInClipboard​ сторону работы с​ документ​ листа, причем вставляет​ пустую запись в​

CyberForum.ru

​ свойства hWnd. И​