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

Tener el conocimiento sobre cómo copiar datos de una aplicación y pegarlo en otro le puede ahorrar tiempo cuando se trabaja con diferentes aplicaciones. Puede utilizar el portapapeles para copiar y pegar los datos en otra aplicación utilizando Visual Basic.NET. El portapapeles es un conjunto de funciones que todas las aplicaciones tienen acceso, 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 seleccione "<proyecto> Propiedades". Seleccione "Referencias" en el panel izquierdo y haga clic en "Añadir ...". Haga clic en la pestaña "COM", seleccione "Microsoft Excel 12.0 Object Library" y haga clic en "OK".

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

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

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

Dim obj As New Proceso

Clipboard.SetDataObject (Me.TextBox1.Text)

5 Escriba el siguiente a la parte superior de su módulo "Form1.vb":

Las importaciones Microsoft.Office.Interop.Excel

6 Haga clic en "Form1.vb [Diseño]" ficha y haga doble clic en "Button2". Escribe lo siguiente para crear una nueva hoja de cálculo, abrirlo y pegue la cadena copiado al portapapeles de su uso de VB:

Dim objClipbrd Como IDataObject = Clipboard.GetDataObject ()

Dim objXL As Microsoft.Office.Interop.Excel.Application = Nothing

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

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

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

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

objXL = Nueva 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

con objClipbrd

Si .GetDataPresent (DataFormats.Text) A continuación,

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

Terminara si

Terminar con

7 Ejecutar 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 pegue la cadena.