Slik kopierer du en String fra ett program og lime den inn i en annen med Visual Basic
Å ha kunnskap om hvordan du kopierer data fra ett program og lime den i en annen 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.
Bruksanvisning
1 Begynn Visual Basic.NET og skape en ny "Windows Forms Application" -prosjektet. Legg en "TextBox" og to "knapper" til skjemaet.
2 Klikk "Project" i "File" -menyen og velg "<prosjekt> Egenskaper". Velg "Referanser" på ruten til venstre, og klikk "Legg til ...". Klikk på "COM" -kategorien, velger du "Microsoft Excel 12,0 Object Library" og klikk "OK".
3 Dobbeltklikk skjemaet for å åpne "Form1.vb" modul. Under "Form1_Load" Skriv inn følgende for å legge til en tekststreng til tekstboksen:
Me.TextBox1.Text = "Jeg kopierte denne strengen fra et VB program og limt inn i Microsoft Excel."
4 Klikk på "Form1.vb [Design]" -fanen og dobbeltklikk på "Button1". Skriv inn følgende under "button1_click" for å kopiere strengen til utklippstavlen:
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 på "Form1.vb [Design]" -fanen og dobbeltklikk på "Button2". Skriv inn følgende for å opprette et nytt regneark, åpne den og lime strengen kopiert til utklippstavlen fra VB program:
Dim objClipbrd Som IDataObject = Clipboard.GetDataObject ()
Dim objXL As Microsoft.Office.Interop.Excel.Application = Nothing
Dim objBks Som Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim objBk Som Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim objShts Som Microsoft.Office.Interop.Excel.Sheets = Nothing
Dim objSht Som Microsoft.Office.Interop.Excel.Worksheet = Nothing
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
med objClipbrd
Hvis .GetDataPresent (DataFormats.Text) Deretter
objSht.Cells (1, 1) = .GetData (DataFormats.Text)
Slutt om
End With
7 Kjør programmet og klikk "Button1" for å kopiere strengen vises i tekstboksen. Klikk på "Button2" for å åpne et nytt Excel-regneark og lime strengen.