Τρόπος χρήσης της αυτοματοποίησης OLE για την προσθήκη δεδομένων σε φύλλο του Excel

Αναγν. άρθρου: 142193 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Μηχανικά μεταφρασμένοΠΡΟΕΙΔΟΠΟΙΗΣΗ: ΑΥΤΟ ΤΟ ΑΡΘΡΟ ΜΕΤΑΦΡΑΣΤΗΚΕ ΜΕ ΜΗΧΑΝΙΚΗ ΜΕΤΑΦΡΑΣΗ
Ανάπτυξη όλων | Σύμπτυξη όλων

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

Περίληψη

OLE Automation παρέχει έναν τρόπο για Visual FoxPro για Windows για να αλληλεπιδράσετε με άλλες εφαρμογές συμβατές με OLE. Χρήση OLE, το πρόγραμμα της Visual FoxPro να ξεκινήσετε μια περίοδο λειτουργίας του Microsoft Excel ανοίγει ένα βιβλίο εργασίας, επιλέξτε ένα φύλλο εργασίας από το βιβλίο εργασίας, τοποθετήσει δεδομένα σε ένα κελί ή μια περιοχή κελιών, εκτύπωση ενός φύλλου εργασίας, αποθηκεύστε το βιβλίο εργασίας ενημερωμένο και κλείσιμο της περιόδου λειτουργίας του Microsoft Excel. Το άρθρο αυτό δείχνει από το παράδειγμα πώς να κάνετε ακριβώς αυτό.
Επιστροφή στην αρχή | Αποστολή σχολίων

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

Παράδειγμα βήμα προς βήμα

  1. Ανοίξτε ένα νέο βιβλίο εργασίας στο Microsoft Excel 5.0 ή το Microsoft Excel 7.0 (τμήμα του Office 95) ή Microsoft Excel 97 (τμήμα του Office 97), ώστε να λειτουργούν στο παράδειγμα προγράμματος σε αυτό το άρθρο.
  2. Επιλέξτε το φύλλο 3, κάνοντας κλικ στην καρτέλα στο κάτω μέρος του φύλλου εργασίας και πληκτρολογήστε τα ακόλουθα δεδομένα στο υπολογιστικό φύλλο:
          Enter         In Cells
      ----------------------------
      Part #        A1
      Sales YTD     B1
      1             A2 through A4
      2             A5 through A7
      3             B2 through B7
  3. Στο μενού δεδομένα του Microsoft Excel, κάντε κλικ στο μερικό άθροισμα. Το παράθυρο διαλόγου που προκύπτει πρέπει να δείχνουν ότι σε κάθε αλλαγή στο μέρος #, η συνάρτηση 'SUM πωλήσεις 'προσθέτει το μερικό άθροισμα να' YTD' και να εμφανίσετε αυτήν τη σύνοψη κάτω από τα δεδομένα. Σε αυτήν την περίπτωση, κάντε κλικ στο κουμπί "OK".
  4. Κάντε κλικ στην καρτέλα στο κάτω μέρος του φύλλου εργασίας για φύλλο 1 για να επαναφέρετε την προεπιλεγμένη σελίδα του βιβλίου εργασίας στο φύλλο 1.
  5. Αποθηκεύστε το βιβλίο εργασίας. Στη συνέχεια, κλείστε το βιβλίο εργασίας και έξοδο από το Microsoft Excel. Για το ακόλουθο παράδειγμα κώδικα, το βιβλίο εργασίας έχει αποθηκευτεί ως
          C:\XLSheets\Testbook.xls.
  6. Στο Microsoft Visual FoxPro για Windows, δημιουργήστε το ακόλουθο πρόγραμμα που ονομάζεται oleExcel.prg:
    *** Program oleExcel.prg *****
#DEFINE xlLandscape 2
#DEFINE xlDoNotSaveChanges 2

DIMENSION laDemoData(4)      && For some Visual FoxPro users, data
laDemoData(1)= 1024          && could come from table or view
laDemoData(2)= 2048
laDemoData(3)= 5120
laDemoData(4)= "The Sample Message"

loExcel = CREATEOBJECT("Excel.application") 

WITH loExcel
   .Application.Workbooks.Open("C:\XLSheets\testbook.xls")
   .Application.Worksheets("Sheet3").Activate  && Select sheet
   
   .Range("b2").Value = 14444          && constants as data
   .Range("b3").Value = 25555
   .Range("b4").Value = 30001

   .Range("b6").Value = laDemoData(1)  && variables as data
   .Range("b7").Value = laDemoData(2)
   .Range("b8").Value = laDemoData(3)
   .Range("a12").Value = laDemoData(4)

   .Worksheets("Sheet3").PageSetup.Orientation = xlLandscape
   .ActiveSheet.PrintOut  && Example of printing the worksheet

   .Visible = .t. && See the results
   =MESSAGEBOX("Click OK to close Excel.") && Keep the program running, 
                                           && so Excel isn't stranded

   .ActiveWindow.Close(xlDoNotSaveChanges)
   .Quit()
ENDwith
Επιστροφή στην αρχή | Αποστολή σχολίων

Αναφορές

Εξετάστε το θέμα στη Βοήθεια του Microsoft Excel "Αντικείμενο εφαρμογής" και τα πολλά θέματα που εισάγονται στις λίστες μέθοδοι και ιδιότητες αυτού του θέματος.

Για περισσότερες πληροφορίες σχετικά με πολλές από τις έννοιες του προγράμματος παράδειγμα, ανατρέξτε στα ακόλουθα άρθρα της Γνωσιακής Βάσης της Microsoft:
139051
(http://support.microsoft.com/kb/139051/EN-US/ )
Τρόπος επιλογή κελιών στο Microsoft Excel χρησιμοποιώντας αυτοματισμού OLE
132535
(http://support.microsoft.com/kb/132535/EN-US/ )
PRB: Αποδέσμευση μεταβλητή αντικειμένου δεν κλείσετε το Microsoft Excel
138398
(http://support.microsoft.com/kb/138398/EN-US/ )
PRB: Έκδοση ενδέχεται να μην κατάργηση OLE αντικειμένων από τη μνήμη
Επιστροφή στην αρχή | Αποστολή σχολίων

Ιδιότητες

Αναγν. άρθρου: 142193 - Τελευταία αναθεώρηση: Σάββατο, 18 Δεκεμβρίου 2010 - Αναθεώρηση: 2.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Visual FoxPro 3.0 Standard Edition
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 6.0 Professional Edition
Λέξεις-κλειδιά: 
kbcode kbhowto kbinterop kbmt KB142193 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:142193
(http://support.microsoft.com/kb/142193/en-us/ )
Επιστροφή στην αρχή | Αποστολή σχολίων

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

 
Επιστροφή στην αρχήΕπιστροφή στην αρχή