Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: КАК ВСТАВИТЬ ИЗ БУФЕРА ТЕКСТ В EXCEL??? Добавлено: 22.09.02 18:22  

Автор вопроса:  Votmax  | Web-сайт: basiccenter.narod.ru

КАК ВСТАВИТЬ ИЗ БУФЕРА ТЕКСТ В EXCEL???

Стартап -спасибо за ответ!!!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Satrapp



ICQ: 75556561 

Вопросов: 8
Ответов: 80
  Профиль | | #1 Добавлено: 22.09.02 19:04
    ActiveSheet.Paste

Ответить

Номер ответа: 2
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #2 		Добавлено: 22.09.02 20:08

Dim MyData as DataObject

Private Sub CommandButton1_Click()
    'Need to select text before copying it to Clipboard
    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox1.TextLength
    TextBox1.Copy

    MyData.GetFromClipboard
    TextBox2.Text = MyData.GetText(1)
End Sub

Private Sub UserForm_Initialize()
    Set MyData = New DataObject
    TextBox1.Text = "Move this data to the " _
        & "Clipboard, to a DataObject, then to "
        & "TextBox2!"
End Sub

Вместо TextBoxa можешь поставить интересующую тебя ячейку. Например ActiveSheet.Cells(x,y).Value=MyData.GetText(1)

Насколько я понял в скобочках указан массив буфера обмена (по-моему поддерживается только в 2002 офисе).

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам