Slik kopierer du en String fra ett program og lime den inn i en annen med Visual Basic

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.