Cómo copiar al portapapeles en Microsoft Visual Basic

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 de Windows, por lo que es más fácil de 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, se puede escribir código VB.NET para copiar datos al portapapeles del sistema y pegarlo en una hoja de cálculo de Excel.

Instrucciones

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

Dim xlApp Como Microsoft.Office.Interop.Excel.Application = Nada

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

Dim XLBook Como Microsoft.Office.Interop.Excel.Workbook = Nada

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

Dim xlSheet Como Microsoft.Office.Interop.Excel.Worksheet = Nada

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

Dim processObject Como Nuevo Proceso

Clipboard.SetDataObject ( "Esto es copiado al portapapeles y se añade a Excel.")

Dim clipboardObject Como IDataObject = Clipboard.GetDataObject ()

3 Escribe lo siguiente para abrir Excel y añadir una nueva hoja de cálculo:

XlApp = Nueva 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 añadir la cadena desde el portapapeles a Excel:

con clipboardObject

If .GetDataPresent(DataFormats.Text) Then

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

Terminara si

Terminar con

5 Ejecutar el programa.