Ανανέωση ιστοσελίδας

[Meteora]

Καλησπέρα στη κοινότητα
Φίλοι μου προσπαθώ να συγκεντρώσω και να οργανώσω υλικό, που θα επιτρέπει τον σχετικό έλεγχο των αρχείων Excel, μέσα από την Access. Το ερώτημά μου είναι πως μπορώ το περιεχόμενο κελιού να το αντιγράψω σε άλλο κελί του ιδίου φύλλου ;

 ...Dim oSheet As Object..., Set oSheet = oBook.Worksheets(1)...  
         oSheet.Range("B2").Select
         oSheet.Range("B2").Copy
         oSheet.Range("F2").Select
         oSheet.Range("F2").Paste

Σας παρουσιάζω ένα μικρό κομμάτι του κώδικα VBA. Η 4η γραμμή με ταλαιπωρεί ! (Δεν βάζω το χέρι μου στο Ευαγγέλιο).
Εύχομαι σε όλους ένα καλό βράδυ / Νίκος Δ.

[Meteora]

Καλησπέρα !
Τελικά το ψάξιμο έφερε αποτέλεσμα...

• Μια εντολή για να αντιγραφεί το Α2 στο Η2 !

oSheet.Range("A2").Copy Destination:=oSheet.Range("H2")

• Δυο εντολές για να γίνει η αντιγραφή απο το Α1 στο Α7

 oSheet.Range("A1").Copy
            oSheet.Range("A7").pasteSpecial

και

• Διαγραφή του περιεχομένου κελιού (και μακροεντολής !)

oSheet.Range("B2").ClearContents

Αυτά φίλοι μου... / Νίκος Δ.

[nisgia]

Καλημέρα Νίκο και καλό χειμώνα!

Αν σε ενδιαφέρει η αντιγραφή μόνο της τιμής του κελιού Α2 στο Η7, μπορείς να πεις:

oSheet.Range("H2") = oSheet.Range("A2")

Τα λέμε!
Γιάννης

[Meteora]

Καλημέρα ...
Γιάννη το δοκίμασα λίγο μετά αφ΄ ότου ανέβασα την τελευταία ενότητα και πράγματι δουλεύει !
...Ο δικός μου προβληματισμός είναι να έχω στα χέρια μου 'υλικό' διαχείρισης αρχείων Excel μέσα από την Access. Φέτος θα δουλέψω με εφαρμογές που θα συνδέουν Access και Excel. Είναι βέβαιο οτι θα χρειαστώ βοήθεια. Έχε τον νου σου !
Αν δεις ανοιχτό skype ...σφύριξε Μαστοροχωρίτικα.
Να είσαι καλά φίλτατε / ...το ευχαριστήθηκα / γέλασα...
Νίκος Δ.

[nisgia]

Καλησπέρα Νίκο, και καλή σχολική χρονιά!

Εκείνο που πρέπει να έχεις στο μυαλό σου με το Automation, είναι πως στις αναφορές σου προς τα αντικείμενα
του Excel - όταν αυτό αντιμετωπίζεται ως server - πρέπει να είσαι σαφής και ακριβής.
Και αυτό γιατί τα βολικά "ενεργά" αντικείμενα (ActiveWindow, ActiveWorkBook, ActiveSheet, ActiveCell κτλ)
που προϋποθέτουν την ύπαρξη περιβάλλοντος χρήστη (UI), σε αυτή την περίπτωση δεν μας είναι διαθέσιμα.

Συνεπώς, οι μεταβλητές αντικειμένων, η δομή With - End With και ο Object Browser, φέτος θα γίνουν το ...σφυροκάλεμό σου.

Στη φετινή σου προσπάθεια όμως, εγώ, σαν καλός μάστορας, δεν θα σου δείχνω το "πως", αλλά το "γιατί".
Και αυτό γιατί όταν ξέρεις μόνο το "πως", γίνεσαι (ανα)παραγωγός ενώ όταν βλέπεις το "γιατί", γίνεσαι δημιουργός.
(το έχω ρίξει λίγο στη φιλοσοφία τώρα τελευταία...)

Να 'σαι καλά και εσύ φίλε μου!
Γιάννης

Υ.Γ.
Στα Μαστροροχώρια απ' ότι ξέρω, δεν έχουμε αναπτύξει και πολύ την τεχνική του σφυρίζειν
γιατί ο χώρος εργασίας (και της καθημερινότητας) ήταν περιορισμένος.
Άλλοι ήταν εκείνοι που αναγκαζόταν να επικοινωνούν απ' τη μια κορφή στην άλλη...