Τρόπος περιήγηση αντικείμενα του Excel από τη Visual Basic

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 147650 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο περιγράφει τρεις μεθόδους που μπορείτε να χρησιμοποιήσετε για να περιηγηθείτε και να αποκτήσουν πρόσβαση σε αντικείμενα του Microsoft Excel εφαρμογής:

  • Χρήση longhand και προεπιλεγμένες ιδιότητες
  • Χρησιμοποιώντας τη δυνατότητα ψευδωνύμων
  • Χρησιμοποιώντας τις μεθόδους γονικού και εφαρμογής των αντικειμένων του Microsoft Excel έκδοση 5.0 για να αποκτήσετε πρόσβαση σε οποιοδήποτε αντικείμενο του Microsoft Excel

Περισσότερες πληροφορίες

Κάθε αντικείμενο στο Microsoft Excel έκδοση 5.0 υπάρχει κάπου αλλού στην ιεραρχία της εφαρμογής των αντικειμένων. Επιλέγετε ανάμεσα σε αυτά τα αντικείμενα από την πλοήγηση προς τα κάτω την ιεραρχία της εφαρμογής. Στην κορυφή της ιεραρχίας αυτής είναι το αντικείμενο εφαρμογής. Οποιαδήποτε συμβάντα ή ενέργειες που αντιστοιχίζετε στο αντικείμενο Application επηρεάζει ολόκληρη την εφαρμογή. Για παράδειγμα:
   ' Close the application
   [Object].Application.Quit
				
Αντικαταστήστε [το αντικείμενο] με οποιαδήποτε μεταβλητή που οδηγεί σε οποιονδήποτε έγκυρο αντικείμενο Microsoft Excel εφαρμογής, που μπορούν να δημιουργηθούν από το ακόλουθο παράδειγμα:
   ' MyObject represents [Object] and OLE1 represents an OLE control
   ' that contains an Microsoft Excel Worksheet object.
   MyObject = OLE1.Object
   Set MyObject = CreateObject("Excel.Sheet")
   Set MyObject = GetObject("C:\EXCEL\EXAMPLES\SAMPLES.XLS")
				
Το αντικείμενο εφαρμογής περιέχει άλλα μεγάλα αντικείμενα. Για παράδειγμα, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα για τη συλλογή των βιβλίων εργασίας που είναι φορτωμένα αυτήν τη στιγμή στο Microsoft Excel, ανατρέξτε:
   [Object].Application.Workbooks
				
Εάν θέλετε να ανακτήσετε ένα βιβλίο εργασίας από τη συλλογή, χρησιμοποιήστε τη μέθοδο Item. Για παράδειγμα, για να αναφερθείτε στο πρώτο βιβλίο εργασίας:
    [Object].Application.Workbooks.Item(1)
				
Για να κλείσετε το πρώτο βιβλίο εργασίας:
   [Object].Application.Workbooks.Item(1).Close
				

Πρόσβαση σε αντικείμενα χρησιμοποιώντας προεπιλεγμένες ιδιότητες ή Longhand αναφοράς

Κάθε βιβλίο εργασίας που περιέχει μια συλλογή των φύλλων εργασίας, κάθε φύλλο εργασίας περιέχει μια συλλογή κελιών, και ούτω καθεξής. (Ανατρέξτε στην τεκμηρίωση του Microsoft Excel, και στη Βοήθεια του μενού για συγκεκριμένες λεπτομέρειες σχετικά με την ιεραρχία αντικειμένων του Microsoft Excel). Στον κώδικα, οι αναφορές σε ένα συγκεκριμένο κελί θα μπορούσε να μοιάζει ως εξής:
   ' Following refers to cell A1 on Sheet1 in the first workbook.
   ' Enter the following two lines as one, single line:
   [Object].Application.Workbooks.Item(1).
      WorkSheets.Item("Sheet1").Cells.Item(1,1)
				
Αυτή η αναφορά μπορεί να είναι ιδιαίτερα εκτενής και περίπλοκη, ωστόσο, υπάρχουν διαθέσιμες συντομεύσεις. Κατανόηση της περιήγησης τελεστή (.) είναι θεμελιώδη για τον προγραμματισμό με επιτυχία το αντικείμενο.

Αποκόβει βραχύ

Όλα τα αντικείμενα έχουν μια προεπιλεγμένη ιδιότητα και η μέθοδος. Για τις συλλογές, η προεπιλεγμένη μέθοδος είναι η μέθοδος Item. Για τα περισσότερα αντικείμενα, η ιδιότητα Name είναι η προεπιλεγμένη ιδιότητα. Σύμβαση αυτή υλοποιήθηκε για να απλοποιήσετε τον προγραμματισμό. Για παράδειγμα, το προηγούμενο δείγμα μπορεί να απλοποιηθεί σε:
   [Object].Application.Workbooks(1).WorkSheets("Sheet1").Cells(1,1)
				

Πρόσβαση σε αντικείμενα με δυνατότητα ψευδωνύμων αντικειμένων

Μπορείτε να χρησιμοποιήσετε εναλλακτικά να απλοποιήσετε τον προγραμματισμό του αντικειμένου. Εάν θέλετε να γράψετε κώδικα που χειρισμό Φύλλο1 πολλά, για παράδειγμα, η σύνταξη μπορεί να μετατραπεί μακροσκελής. Για να αποτρέψετε κάτι τέτοιο, δημιουργήστε ένα αντικείμενο που οδηγεί στο κατώτατο κοινό αντικείμενο. Αυτό είναι γνωστό ως εναλλακτικό. Χρησιμοποιήστε την πρόταση Set για να δημιουργήσετε ένα ψευδώνυμο:
   Dim Sheet1 as Object
   ' Alias Sheet1 to represent [Object]...WorkSheets("Sheet1")
   Set Sheet1 = [Object].Application.Workbooks(1).WorkSheets("Sheet1")
   ' Now just use the variable Sheet1 to refer to Sheet1.
   Sheet1.Cells(1,1).Value = "Title"
   Sheet1.Cells(1,2).Value = "ID"
   Sheet1.Cells(1,3).Value = "Cost"
   Sheet1.Cells(2,1).Value = "Phone"
   Sheet1.Cells(2,2).Value = 123413423
   Sheet1.Cells(2,3).Value = 89.95
				

Πρόσβαση σε αντικείμενα με χρήση της γονικής τοποθεσίας και μέθοδοι εφαρμογής

Το γονικό στοιχείο και εφαρμογής μεθόδους σάς επιτρέπουν να μεταβείτε πάλι προς τα επάνω στην ιεραρχία αντικειμένων. Η μέθοδος εφαρμογής μεταβαίνει πίσω στο αντικείμενο εφαρμογής και η μέθοδος Parent μεταβαίνει ένα επίπεδο της ιεραρχίας του αντικειμένου προς τα επάνω. Όλα τα παραδείγματα αυτού του άρθρου ξεκίνησε με το αντικείμενο []. Με την προϋπόθεση ότι [το αντικείμενο] είναι ένα έγκυρο αντικείμενο Microsoft Excel, όλες οι εντολές αυτές ισχύουν επίσης. Ανεξάρτητα από το περιβάλλον του [αντικείμενο].

Αυτό είναι ιδιαίτερα χρήσιμο κατά τον προγραμματισμό αντικείμενο του Microsoft Excel από τη Visual Basic έκδοση 4.0. Το Microsoft Excel εμφανίζει μόνο τα τρία αντικείμενα που μπορούν να χρησιμοποιηθούν ως σημεία εισόδου για το Microsoft Excel. Αυτές είναι οι εξής:

  • Excel.Application
  • Excel.Sheet
  • Excel.Chart
Μην να συγχέονται με Excel.Application.5. Excel.Application πάντα θα οδηγεί στην πιο πρόσφατη έκδοση του Microsoft Excel. Excel.Application.5 θα παραπέμπει μόνο σε Microsoft Excel έκδοση 5.0.

Υπάρχει εκτεθειμένα αντικείμενο βιβλίου εργασίας, ώστε να μην υπάρχει κανένας τρόπος απευθείας πρόσβαση στο αντικείμενο του βιβλίου εργασίας. Ωστόσο, αυτό δεν είναι ένα πρόβλημα διότι η μέθοδος γονικό στοιχείο ενός φύλλου εργασίας ή γραφήματος αντικειμένου επιστρέφει το αντικείμενο βιβλίου εργασίας. Ο κώδικας του παραδείγματος που ακολουθεί απεικονίζει αυτό το σημείο.

ΣΗΜΕΙΩΣΗ: oleExcel είναι ένα στοιχείο ελέγχου OLE, το οποίο περιέχει ένα αντικείμενο Excel.Sheet.
   ' Declare object references:
   Dim Xlapp As object
   Dim XLWkb As object
   Dim XLWks As object
   Dim XLWksNew As object

   oleExcel.Action = 7   ' Activate OLE Object

   Set XLWks = oleExcel.Object   ' Alias Worksheet object
   Set XLWkb = XLWks.Parent      ' Alias WorkBook object
   Set Xlapp = XLWks.Application ' Alias Application object

   ' Add a new worksheet to the Workbook and name it:
   Set XLWksNew = XLWkb.Worksheets.add  ' Assign alias to new Worksheet
   XLWksNew.Name = "VB4 OLE Automation" & XLWkb.Worksheets.count

   ' Make the 3rd Worksheet of the Workbook active:
   XLWkb.Worksheets(3).Activate

   ' Display the dialog for InsertPicture:
   Xlapp.dialogs(342).[Show]  ' xlDialogInsertPicture = 342
				

Αναφορές

Προγραμματισμός λύσεις ενοποιημένων κιτ ανάπτυξης του Office

Ιδιότητες

Αναγν. άρθρου: 147650 - Τελευταία αναθεώρηση: Σάββατο, 18 Δεκεμβρίου 2010 - Αναθεώρηση: 2.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Excel 5.0 Standard Edition
Λέξεις-κλειδιά: 
kb16bitonly kbhowto kbprogramming kbmt KB147650 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:147650
Αποποίηση ευθυνών για περιεχόμενο της Γνωσιακής Βάσης (KB) που έχει αποσυρθεί
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com