Cómo copiar al Portapapeles en Microsoft Visual Basic

Es útil saber cómo utilizar el portapapeles del sistema para copiar la 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 de Windows , por lo que es más fácil compartir información . Los programadores a menudo necesitan exportar información desde una aplicación VB.NET a una hoja de cálculo de Microsoft Excel. Sin embargo, puede escribir código VB.NET para copiar datos al portapapeles del sistema y pegarla en una hoja de cálculo Excel. Instrucciones
1

Escriba el código siguiente en un nuevo subprograma en el proyecto VB.NET para declarar las variables de Excel:

xlApp As Microsoft.Office.Interop.Excel.Application = Nada

XLBooks dévil como Microsoft.Office.Interop.Excel.Workbooks = Nothing

XLBook As Microsoft.Office.Interop.Excel.Workbook = Nothing

XLSheets dévil como Microsoft.Office.Interop.Excel.Sheets = Nothing

xlSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
2

Escriba lo siguiente para agregar una cadena de texto en el portapapeles y obtener el texto del portapapeles :

processObject Dim As New Process

Clipboard.SetDataObject ( " Esto es copiado al portapapeles y se añade a Excel ").
< p > clipboardObject dévil como IDataObject = Clipboard.GetDataObject ()
3

Escriba lo siguiente 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 lo siguiente para agregar la cadena del portapapeles en Excel : .

clipboardObject

Si GetDataPresent ( DataFormats . Texto ) Entonces
XLSheet.Cells

( 1 , 1 ) = . GetData ( DataFormats.Text )

End If End

con fotos de 5 < p > Ejecutar su programa.