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