Cómo copiar al Portapapeles en Microsoft Visual Basic

Contenido

• instrucciones

Es útil saber cómo utilizar el Portapapeles del sistema para copiar información de una aplicación a otra utilizando Microsoft Visual Basic .NET (VB.NET). El portapapeles es un entorno que se comparte entre los programas en Windows, lo que facilita el intercambio de información. Los programadores a menudo necesitan exportar información de una aplicación VB.NET a una hoja de cálculo de Microsoft Excel. Sin embargo, puede escribir el código VB.NET para copiar datos en el Portapapeles del sistema y pegarlo en una hoja de cálculo de Excel.

instrucciones

Puede copiar los datos en el Portapapeles del sistema mediante Visual Basic .NET (digital city. binary tunnel and city at night image by Stasys Eidiejus from Fotolia.com)

1. Escriba el siguiente código en una nueva subrutina en su proyecto de VB.NET para declarar sus variables de Excel:

   El Microsoft.Office.Interop.Excel.Application xlApp Dim Dim = Nada XLBooks la Microsoft.Office.Interop.Excel.Workbooks Dim = Nada Nada xlBook la Microsoft.Office.Interop.Excel.Workbook Dim = XLSheets la Microsoft.Office.Interop .Excel.Sheets = Nothing Dim XLSheet Microsoft.Office.Interop.Excel.Worksheet = Nothing

2. Escriba el siguiente código para agregar una cadena de texto al portapapeles y obtener el texto de ella:

   Dim procesObject As New Process Clipboard.SetDataObject ("Esto se copia en el Portapapeles y se agrega a Excel.")

   
   

   Dim clipboardObject Las IDataObject = Clipboard.GetDataObject ()

3. Escriba el siguiente código para abrir Excel y agregar una nueva hoja de cálculo:

   XLApp = New 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. Escriba el siguiente código para agregar la secuencia desde el Portapapeles a Excel:

   Con el clipboardObject If .GetDataPresent (DataFormats.Text) Then XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End If End With

5. Ejecute su programa