• 
  

  hur kopiera till Urklipp i Microsoft Visual Basic

  
  

Det är nyttigt att veta hur man använder systemet Urklipp för att kopiera information från ett program till ett annat med Microsoft Visual Basic. NET ( VB. NET ) . Urklipp är en miljö som delas av program i Windows , vilket gör det lättare att dela information . Programmerare behöver ofta exportera information från ett VB. NET program till en Microsoft Excel-kalkylblad. Men du kan skriva VB. NET kod för att kopiera data till systemet klippbordet och klistra in den i ett Excel -kalkylblad
1 . .
Skriv följande kod i en ny subrutin i VB. NET projekt för att deklarera din Excel variabler :



Dim xlApp Som Microsoft. Office. Interop . Excel. Application=Inget

Dim XLBooks Som Microsoft. Office. Interop. Excel. Workbooks=Inget

Dim XLBook Som Microsoft. Office. Interop. Excel. Workbook=Nothing

Dim XLSheets Som Microsoft. Office. Interop. Excel. Sheets=Inget

Dim XLSheet Som Microsoft. Office. Interop. Excel. Worksheet=Inget
2.
Skriv följande för att lägga till en sträng med text till Urklipp och få texten från klippbordet :



Dim processObject Som ny process

Urklipp . SetDataObject ( "Det här är kopieras till Urklipp och läggs till Excel . " )



Dim clipboardObject Som IDataObject=Clipboard. GetDataObject ( )
3 .

Skriv följande för att öppna Excel och lägga till ett nytt kalkylblad :



xlApp=Nya Microsoft. Office. Interop. Excel. Application

XLApp. Visible=Sant

XLApp. DisplayAlerts=False

XLBook=CType ( XLApp. Workbooks. Add ( ) , Microsoft. Office. Interop. Excel. Workbook )

XLBooks=xlApp . Arbetsböcker

XLSheet=CType ( XLBooks (1) . Sheets. Item (1) , Microsoft. Office. Interop. Excel. Worksheet )

XLSheets=XLBook. Worksheets

4
Skriv följande för att lägga till strängen från urklipp till Excel .



Med clipboardObject

Om . GetDataPresent ( DataFormats. Text ) Sen

XLSheet. Cells (1 , 1)=. Getdata ( DataFormats. Text )

End If

End With
5 .
Kör ditt program .

Previous：nothing Next：hur du ställer attribut i Visual Basic

Relaterade artiklar