Cómo copiar una cadena de una aplicación y pegarlo en otra con Visual Basic

Tener el conocimiento sobre la forma de copiar los datos de una aplicación y pegarlo en otro puede ahorrar tiempo al trabajar con diferentes aplicaciones. Usted puede utilizar el portapapeles para copiar y pegar datos en otra aplicación utilizando Visual Basic.NET . El portapapeles es un conjunto de funciones que todas las aplicaciones tengan acceso a , por lo que es fácil de transferir datos entre ellos. Visual Basic es un lenguaje de programación de Microsoft que es relativamente fácil de usar . Instrucciones
1

Inicie Visual Basic.NET y crear un nuevo proyecto " Aplicación de Windows Forms " . Añadir un " cuadro de texto " y dos " botones" en el formulario.

2 Haga clic en " proyecto" en el menú " Archivo" y seleccionar "Propiedades " . Seleccione "Referencias " en el panel izquierdo y haga clic en " Agregar ... " . Haga clic en la ficha " COM ", seleccione "12.0 Biblioteca de objetos de Microsoft Excel " y haga clic en " OK" .
3

doble clic en el formulario para abrir el módulo " Form1.vb " . En " Form1_Load " Escriba lo siguiente para agregar una cadena de texto en el cuadro de texto :

Me.TextBox1.Text = " I copiar esta cadena desde una aplicación de VB y pegar en Microsoft Excel. "

4

click " Form1.vb [ Diseño ]" ficha y haga doble clic en " Button1 " . Escriba lo siguiente en " Button1_Click " para copiar la cadena al portapapeles :

Dim obj As New Process

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Escriba el siguiente a la parte superior del módulo " Form1.vb ":

Importaciones Microsoft.Office.Interop.Excel
6

click " Form1.vb [ Diseño ]" ficha y haga doble clic en " Button2 " . Escriba lo siguiente para crear una nueva hoja de cálculo, abrirlo y pegar la cadena copiada al portapapeles desde su aplicación VB :

objClipbrd dévil como IDataObject = Clipboard.GetDataObject ()

objXL dévil como Microsoft . Office.Interop.Excel.Application = Nothing

objBks Dim Como Microsoft.Office.Interop.Excel.Workbooks = Nothing

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

objShts Dim Como Microsoft.Office.Interop.Excel.Sheets = Nothing

objSht As Microsoft.Office.Interop.Excel.Worksheet = Nothing

objXL = Nuevo Microsoft . Office.Interop.Excel.Application

objXL.Visible = true

objXL.DisplayAlerts = False

objBk = CType ( objXL.Workbooks.Add (), Microsoft.Office . Interop.Excel.Workbook )

objBks = objXL.Workbooks

objSht = CType ( objBks ( 1 ) . Sheets.Item ( 1 ) , Microsoft.Office.Interop.Excel.Worksheet )

objShts = objBk.Worksheets

objClipbrd

Si . GetDataPresent ( DataFormats.Text ) Entonces
objSht.Cells

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

End If End

con fotos de 7

Ejecute el programa y haga clic en " Button1 " para copiar la cadena que se muestra en el cuadro de texto. Haga clic en " Button2 " para abrir una nueva hoja de cálculo Excel y pegar la cadena .