Использование буфера обмена - Полезные приёмы - VBA - Готовые решения$ - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Готовые решения

Главная » Готовые решения » VBA » Полезные приёмы

Использование буфера обмена

	21.09.2017, 17:59


Sub example_01() Dim x$(10), i As Long, j As Long For i = 0 To UBound(x) 'что-то вроде текстового файла: 11 строк 6 столбцов For j = 65 To 70 'Chr(65) --> "A" If Len(x(i)) Then x(i) = x(i) & vbTab & Chr(i + j) Else x(i) = Chr(i + j) Next j Next i 'передаем массив в буфер обмена With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText Join(x, vbCrLf) .PutInClipboard End With 'вставляем массив как "текстовый файл", не заботясь о размерностях With ActiveSheet .Cells(2, 3).Select .Paste End With End Sub
1 2 3 4 5 Добавил: nilem \| \| Теги: буфер обмена, clipboard
Просмотров: 1561 \| Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!