Как скопировать в буфер обмена в Microsoft Visual Basic

Содержание

• направления

Полезно знать, как использовать системный буфер обмена для копирования информации из одного приложения в другое с использованием 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 = Nothing Dim XLBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing Dim XLBook As Microsoft.Office.Interop.Excel.Workbook = Нет Dim XLSheets As Microsoft.Office.Interop .Excel.Sheets = Nothing Dim XLSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing

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 = True XLApp.DisplayAlerts = False 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 If .GetDataPresent (DataFormats.Text), затем XLSheet.Cells (1, 1) = .GetData (DataFormats.Text)

5. Запустите вашу программу