Tecnología

Inicio

Cómo copiar al portapapeles en Microsoft Visual Basic

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.


Artículos relacionados