Come copiare una stringa da un'applicazione e incollarlo in un'altra Con Visual Basic

February 26

Come copiare una stringa da un'applicazione e incollarlo in un'altra Con Visual Basic


Avere la conoscenza su come copiare i dati da un'applicazione e incollarlo in un altro consente di risparmiare tempo quando si lavora con diverse applicazioni. È possibile utilizzare gli Appunti per copiare i dati e incollarlo in un'altra applicazione utilizzando Visual Basic.NET. Gli appunti sono una serie di funzioni che tutte le applicazioni hanno accesso, il che rende semplice per trasferire i dati tra di loro. Visual Basic è un linguaggio di programmazione Microsoft che è relativamente facile da usare.

istruzione

1 Avviare Visual Basic.NET e creare un nuovo progetto "Applicazione Windows Form". Aggiungere un "TextBox" e due "Pulsanti" al modulo.

2 Fai clic su "Progetto" nel menu "File" e selezionare "<progetto> Proprietà". Selezionare "Riferimenti" sul pannello di sinistra e cliccare su "Aggiungi ...". Fare clic sulla scheda "COM", selezionare "Microsoft Excel 12.0 Object Library" e fare clic su "OK".

3 Fare doppio clic sul form per aprire il modulo "Form1.vb". In "Form1_Load" Digitare quanto segue per aggiungere una stringa di testo alla casella di testo:

Me.TextBox1.Text = "Ho copiato questa stringa da un'applicazione VB e incollato in Microsoft Excel."

4 Fai clic su "Form1.vb [Design] scheda" e fare doppio clic su "Button1". Digitare il seguente sotto "Button1_Click" per copiare la stringa negli appunti:

Dim obj come nuovo processo

Clipboard.SetDataObject (Me.TextBox1.Text)

5 Digitare il seguente fino alla cima del modulo "Form1.vb":

Le importazioni Microsoft.Office.Interop.Excel

6 Fai clic su "Form1.vb [Design] scheda" e fare doppio clic su "Button2". Digitare la seguente per creare un nuovo foglio, aprirlo e incollare la stringa copiato negli appunti dalla vostra applicazione VB:

Dim objClipbrd Come IDataObject = Clipboard.GetDataObject ()

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

objBks fiochi come Microsoft.Office.Interop.Excel.Workbooks = Nothing

Dim objBk Come Microsoft.Office.Interop.Excel.Workbook = Nothing

objShts fiochi come Microsoft.Office.Interop.Excel.Sheets = Nothing

Dim objSht Come Microsoft.Office.Interop.Excel.Worksheet = Nothing

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

Se .GetDataPresent (DataFormats.Text) Poi

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

Finisci se

End With

7 Eseguire il programma e fare clic "Button1" per copiare la stringa visualizzata nella casella di testo. Clicca su "Button2" per aprire un nuovo foglio di calcolo Excel e incollare la stringa.