Å ha kunnskap om hvordan du kopierer data fra ett program , og lime den inn et annet kan spare deg for tid når du arbeider med ulike programmer . Du kan bruke utklippstavlen til å kopiere data og lime den inn i et annet program som bruker Visual Basic.NET . Utklippstavlen er et sett av funksjoner som alle programmer har tilgang til , noe som gjør det enkelt å overføre data mellom dem . Visual Basic er et Microsoft programmeringsspråk som er relativt enkelt å bruke. Instruksjoner
en

Start- Visual Basic.NET og skape en ny "Windows Forms Application "-prosjektet . Legg til en " TextBox " og to " knapper " til skjemaet .
2

Klikk på " Project" i "Fil "-menyen og velg " Egenskaper". Velg "Referanser " på ruten til venstre , og klikk "Legg til ...". Klikk på " COM " hovedmenyen, velg " Microsoft Excel 12.0 Object Library " og klikk " OK" .
3

Dobbeltklikk skjemaet for å åpne " Form1.vb " modulen. Under " Form1_Load " Skriv inn følgende for å legge til en tekststreng til tekstboksen : en

Me.TextBox1.Text = " Jeg kopierte denne strengen fra et VB program og limes inn i Microsoft Excel. "

4

Klikk " Form1.vb [Design ] "-fanen og dobbeltklikk på " Button1 " . Skriv inn følgende under " button1_click " for å kopiere strengen til utklippstavlen : en

Dim obj som ny Process

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Skriv inn følgende til toppen av " Form1.vb " modul:

Importen Microsoft.Office.Interop.Excel
6

Klikk " Form1.vb [Design ] " tab og dobbeltklikk på " Button2 " . Skriv inn følgende for å opprette et nytt regneark , åpner den og lime strengen kopiert til utklippstavlen fra din VB -programmet : en

Dim objClipbrd Som IDataObject = Clipboard.GetDataObject ( )

Dim objXL Som Microsoft . Office.Interop.Excel.Application = Ingenting

Dim objBks Som Microsoft.Office.Interop.Excel.Workbooks = Ingenting

Dim objBk Som Microsoft.Office.Interop.Excel.Workbook = Ingenting

Dim objShts Som Microsoft.Office.Interop.Excel.Sheets = Ingenting

Dim objSht Som Microsoft.Office.Interop.Excel.Worksheet = Ingenting

objXL = Ny 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
p Med objClipbrd

If. GetDataPresent ( DataFormats.Text ) Så

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

End If

End With
7

Kjør programmet og klikk " Button1 " for å kopiere strengen vises i tekstboksen . Klikk på " Button2 " for å åpne en ny Excel- regneark og lime strengen .