. Selezionare " References" nel riquadro di sinistra e fare clic su " Aggiungi ... " . Fare clic sulla scheda " COM " , selezionare " 12.0 Libreria oggetti di Microsoft Excel " e fare clic su " OK" .
3 Fare doppio clic sul form per aprire il modulo " Form1.vb " . In Tipo " Form1 Load " la seguente per aggiungere una stringa di testo nella casella di testo :
Me.TextBox1.Text = " Ho copiato questa stringa da un'applicazione VB e incollato in Microsoft Excel ".
< Br > 4
click " Form1.vb [ design] " scheda e fare doppio clic su " Button1 " . Digitare quanto segue in " Button1_Click " per copiare la stringa negli appunti :
Dim obj As New Process
Clipboard.SetDataObject ( Me.TextBox1.Text ) economici 5 < p > Digitare il seguente fino alla cima del vostro modulo " Form1.vb " :
Importazioni Microsoft.Office.Interop.Excel
6
Click " Form1.vb [ design] " scheda e fare doppio clic su " Button2 " . Digitare quanto segue per creare un nuovo foglio di calcolo , aprirlo e incollare la stringa copiata negli appunti dall'applicazione VB:
Dim objClipbrd Come IDataObject = Clipboard.GetDataObject ( ) per
Dim objXL Come Microsoft . Office.Interop.Excel.Application = Nothing
Dim objBks Come Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim objBk Come Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim objShts 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
objClipbrd
. GetDataPresent ( DataFormats.Text ) Poi
objSht.Cells ( 1 , 1 ) = . GetData ( DataFormats.Text ) per
End If End With
7
Eseguire il programma e fare clic su " Button1 " per copiare la stringa visualizzata nella casella di testo . Clicca su " Button2 " per aprire un nuovo foglio di calcolo di Excel e incollare la stringa .