Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 42039
Главная » Готовые решения » 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
Добавил: nilem | | Теги: буфер обмена, clipboard
Просмотров: 101 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!