. 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
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 .
