Πώς να αντιγράψετε στο Πρόχειρο του Microsoft Visual Basic

Είναι χρήσιμο να γνωρίζουν πώς να χρησιμοποιούν το πρόχειρο σύστημα για να αντιγράψετε πληροφορίες από τη μία εφαρμογή στην άλλη χρησιμοποιώντας το Microsoft Visual Basic.NET ( VB.NET ) . Το πρόχειρο είναι ένα περιβάλλον που είναι κοινά μεταξύ των προγραμμάτων στα Windows , πράγμα που καθιστά ευκολότερο να μοιράζονται πληροφορίες . Προγραμματιστές πρέπει συχνά να εξάγουν πληροφορίες από μια εφαρμογή VB.NET σε ένα φύλλο εργασίας του Microsoft Excel . Ωστόσο , μπορείτε να γράψετε κώδικα VB.NET να αντιγράψετε τα δεδομένα στο πρόχειρο του συστήματος και να επικολλήσετε σε ένα φύλλο εργασίας του Excel . Οδηγίες
Η 1

Πληκτρολογήστε τον ακόλουθο κώδικα σε ένα νέο υπορουτίνα στο έργο σας VB.NET να δηλώσει Excel μεταβλητές σας :

Dim xlApp Όπως Microsoft.Office.Interop.Excel.Application = τίποτα

Dim XLBooks Όπως Microsoft.Office.Interop.Excel.Workbooks = τίποτα

Dim XLBook Όπως Microsoft.Office.Interop.Excel.Workbook = τίποτα

Dim XLSheets Όπως Microsoft.Office.Interop.Excel.Sheets = Τίποτα

Dim XLSheet Όπως Microsoft.Office.Interop.Excel.Worksheet = Τίποτα
2

Πληκτρολογήστε το παρακάτω για να προσθέσετε μια συμβολοσειρά κειμένου στο πρόχειρο και να πάρει το κείμενο από το πρόχειρο :

Dim processObject Όπως Νέα διαδικασία

Clipboard.SetDataObject ( " . Αυτό έχει αντιγραφεί στο πρόχειρο και να προστεθεί στο Excel " )

Dim clipboardObject Όπως IDataObject = Clipboard.GetDataObject ( )
εικόνων 3

Πληκτρολογήστε τα ακόλουθα για να ανοίξετε το Excel και να προσθέσετε ένα νέο φύλλο εργασίας :

xlApp = νέα Microsoft.Office.Interop . Excel.Application

XLApp.Visible = True

XLApp.DisplayAlerts = False

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

XLBooks = XLApp.Workbooks

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

XLSheets = XLBook.Worksheets
Η 4

Πληκτρολογήστε τα παρακάτω για να προσθέσετε το κορδόνι από το πρόχειρο στο Excel :

με clipboardObject

Εάν GetDataPresent ( DataFormats . . κειμένου) Στη συνέχεια

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

End If

End With
5

Εκτελέστε το πρόγραμμά σας .
Η
εικόνων