Avoir des connaissances sur la façon de copier les données d'une application et de le coller dans un autre peut vous faire gagner du temps lorsque vous travaillez avec des applications différentes. Vous pouvez utiliser le presse-papiers pour copier des données et de le coller dans une autre application en utilisant Visual Basic.NET . Le presse-papiers est un ensemble de fonctions que toutes les applications ont accès, rendant simple pour transférer des données entre eux. Visual Basic est un langage de programmation de Microsoft qui est relativement facile à utiliser. Instructions
1

Démarrez Visual Basic.NET et créer un nouveau projet " Windows Forms Application". Ajouter une " zone de texte " et deux "Boutons" pour la forme .

Cliquez sur "Project" 2 dans le menu "Fichier" et sélectionner "Propriétés " . Sélectionnez "Références" sur le volet de gauche , puis cliquez sur " Ajouter ... " . Cliquez sur l'onglet "COM" , sélectionnez " Microsoft Excel 12.0 Object Library" et cliquez sur " OK".
3

Double- cliquez sur le formulaire pour ouvrir le module " Form1.vb " . Sous Type " Form1_Load " qui suit pour ajouter une chaîne de texte à la zone de texte:

Me.TextBox1.Text = " J'ai copié cette chaîne à partir d'une application VB et collé dans Microsoft Excel. "
< Br > 4

Cliquez sur " Form1.vb [Design] onglet" et double -cliquez sur " Button1" . Tapez la commande suivante dans " Button1_Click " pour copier la chaîne dans le presse papier :

obj As New Process

Clipboard.SetDataObject ( Me.TextBox1.Text )
5 < p > Tapez la commande suivante pour le très haut de votre " Form1.vb " module: Photos

importations Microsoft.Office.Interop.Excel
6

Cliquez sur " Form1.vb [Design] " onglet et double -cliquez sur " Button2 " . Tapez la commande suivante pour créer une nouvelle feuille de calcul , ouvrez-le et collez la chaîne copié dans le presse papier de votre application VB :

objClipbrd As IDataObject = Clipboard.GetDataObject ()

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

objBks As Microsoft.Office.Interop.Excel.Workbooks = Nothing

objBk As Microsoft.Office.Interop.Excel.Workbook = Nothing < br >

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

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

objXL.Visible = true

objXL.DisplayAlerts = False

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

objBks = objXL.Workbooks

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

objShts = objBk.Worksheets

objClipbrd

. GetDataPresent ( DataFormats.Text ) Puis

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

End If End With

7

exécuter votre programme et cliquez sur " Button1 " pour copier la chaîne affichée dans la zone de texte . Cliquez sur " Button2 " pour ouvrir une nouvelle feuille de calcul Excel et collez la chaîne .