Як копіювати в буфер обміну в Microsoft Visual Basic

Автор: Joan Hall
Дата Створення: 25 Січень 2021
Дата Оновлення: 22 Листопад 2024
Anonim
Плагин eCSStractor ускоряем верстку в VS Code. Быстрое копирование CSS классов из HTML разметки
Відеоролик: Плагин eCSStractor ускоряем верстку в VS Code. Быстрое копирование CSS классов из HTML разметки

Зміст

Корисно знати, як використовувати системний буфер обміну для копіювання інформації з однієї програми в іншу за допомогою Microsoft Visual Basic .NET (VB.NET). Буфер обміну - це середовище, яке спільно використовується програмами Windows, що полегшує обмін інформацією. Програмістам часто потрібно експортувати інформацію з програми VB.NET у таблицю Microsoft Excel. Однак, ви можете написати код VB.NET, щоб скопіювати дані в системний буфер обміну і вставити його в таблицю Excel.


Інструкції

Ви можете скопіювати дані в системний буфер обміну за допомогою Visual Basic .NET (цифровий тунель city.binary та місто вночі зображення Stasys Eidiejus з Fotolia.com)

  1. Введіть наступний код у нову підпрограму проекту VB.NET, щоб оголосити ваші змінні Excel:

    Dim XLApp As Microsoft.Office.Interop.Excel.Application = Нічого не розрізняє XLBooks як Microsoft.Office.Interop.Excel.Workbooks = Нічого не дим XLBook як Microsoft.Office.Interop.Excel.Workbook = Ніщо не змінюється XLSets як Microsoft.Office.Interop .Excel.Sheets = Nothing Dim XLSheet As Microsoft.Office.Interop.Excel.Worksheet = Ніщо

  2. Введіть наступний код, щоб додати текстовий рядок у буфер обміну і отримати текст з нього:

    Dim processObject As New Process Clipboard.SetDataObject ("Це копіюється в буфер обміну і додається в Excel.")


    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()

  3. Введіть наступний код, щоб відкрити Excel і додати новий аркуш:

    XLApp = Новий Microsoft.Office.Interop.Excel.Application XLApp.Visible = Правда XLApp.DisplayAlerts = Помилка XLBook = CType (XLApp.Workbooks.Add (), Microsoft.Office.Interop.Excel.Workbook) XLBooks = XLApp.Workbooks XLSheet = CType (XLBooks (1). Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

  4. Введіть наступний код, щоб додати послідовність з буфера обміну в Excel:

    З clipboardObject Якщо .GetDataPresent (DataFormats.Text) Тоді XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Кінець, якщо закінчити

  5. Запустіть програму