Ako kopírovať reťazec z jednej aplikácie a vložte ho do druhého s Visual Basic

Mať vedomosti o tom , ako kopírovať dáta z jednej aplikácie a vložiť ho do iného vám môže ušetriť čas pri práci s rôznymi aplikáciami . Môžete použiť schránku pre skopírovanie dát a vložte ho do inej aplikácie pomocou jazyka Visual Basic.NET . Schránky je sada funkcií , ktoré všetky aplikácie majú prístup k , čo uľahčuje prenos dát medzi nimi . Visual Basic je programovací jazyk Microsoft , ktorý je relatívne jednoduché použitie . Pokyny dovolená 1

Spustiť Visual Basic.NET a vytvoriť nový " model Windows Forms aplikácie " projekt . Pridať " TextBox " a dve "tlačidla " na formulári .
2

Kliknite na " projekt " v menu " Súbor " a zvoľte " Vlastnosti " . Vyberte " Odkazy " na ľavom paneli a kliknite na tlačidlo " Pridať ... " . Kliknite na kartu " COM " vyberte " Microsoft Excel 12.0 Object Library " a kliknite na " OK " .
3

Dvakrát kliknite na formulár , otvorte modul " Form1.vb " . Pod " Form1_Load " zadajte nasledujúce pridať textový reťazec do textového poľa :

Me.TextBox1.Text = " . Skopíroval som tento reťazec z aplikácie VB a vložiť do aplikácie Microsoft Excel "

4

Kliknite na " Form1.vb [ Design ] " kartu a dvakrát kliknite na " Button1 " . Zadajte nasledujúce pod " button1_Click " kopírovať reťazec do schránky :

Dim obj Ako nový proces

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Zadajte nasledujúci na samom vrchole svojho " Form1.vb " modulu :

Dovoz Microsoft.Office.Interop.Excel
6

Kliknutím na tlačidlo " Form1.vb [ design ] " záložka a double - kliknite na " Button2 " . Zadajte nasledujúci príkaz na vytvorenie novej tabuľky , otvorte ju a vložiť reťazec skopírovaný do schránky z VB aplikácie :

Dim objClipbrd Ako IDataObject = Clipboard.GetDataObject ( )

Dim objXL napríklad Microsoft . Office.Interop.Excel.Application = Nothing

Dim objBks Ako Microsoft.Office.Interop.Excel.Workbooks = Nothing

Dim objBk Ako Microsoft.Office.Interop.Excel.Workbook = Nothing

Dim objShts Ako Microsoft.Office.Interop.Excel.Sheets = Nothing

Dim objSht Ako Microsoft.Office.Interop.Excel.Worksheet = Nothing

objXL = Nový Microsoft . Office.Interop.Excel.Application

objXL.Visible = TRUE

objXL.DisplayAlerts = False

objBk = Cdruh ( objXL.Workbooks.Add ( ) , Microsoft.Office . Interop.Excel.Workbook )

objBks = objXL.Workbooks

objSht = Cdruh ( objBks ( 1 ) . Sheets.Item ( 1 ) , Microsoft.Office.Interop.Excel.Worksheet )

objShts = objBk.Worksheets

S objClipbrd

. GetDataPresent ( DataFormats.Text ) Potom

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

End If

End With
7

spustite program a kliknite na tlačidlo " Button1 " skopírovať reťazec zobrazený v textovom poli . Kliknite na " Button2 " otvoriť novú tabuľku programu Excel a vložiť reťazec .

• Predchádzajúca strana: Ako vložiť text do dokumentu programu Word vo VBA 
• Ďalšia strana: Ako upraviť register v VBScript