[Excel07] Εξωτερικά δεδομένα

[Flashgordon61]

Παρακαλώ την βοήθειά σας
Σε ένα αρχείο Excel κάνω λήψη εξωτερικών δεδομένων από αρχείο Excel ( "*.xls, *.xlsx, *.xlsm, *.xlsb")
Το ζητούμενο είναι κώδικας VBA για να μπορώ να αλάξω το αρχείο προέλευσης των εξωτερικών δεδομένων ( το αρχείο, όχι την διαδρομή του αρχείου) και να κάνω ανανέωση των δεδομένων.

Σημείωση : Τα αρχεία (Πηγές) εξωτερικών δεδομένων έχουν την ίδια μορφή.

Σας ευχαριστώ
Γιώργος

[gr8styl]

Φίλε μου κάνε καταγραφή μακροεντολης κάνοντας εισαγωγή δεδομένων από ένα από τα όμοια εξωτερικά αρχεία.

Αφου τελειώσεις με την καταγραφη της μακροεντολής, άνοιξε τον VBE (Alt+F11) και κάνε αντικατάσταση της μιας και μοναδικής εμφάνισης του ονόματος του αρχείου που άνοιξες, με το παρακάτω συμπεριλαμβανομένων των εισαγωγικών και την αλλαγή γραμμής

" & _
InputBox("Give filename") & "

Δηλαδή αν το όνομα είναι Book1.xls το υπάρχον περιεχόμενο ...\Book1.xls;... θα γίνει
...\" & _
InputBox("Give filename") & ";...

Τρέξε την μακροεντολή και πες μας αν έγινε.

Θανάσης

[Flashgordon61]

Φίλε Θανάση σ' ευχαριστώ πολύ, αφού πρώτα ζητήσω συγνώμη για την αργοπορία της απάντησης (έλειπα ταξίδι).
Αντικαταστώντας το όνομα του αρχείου με τον κώδικα, πράγματι βγαίνει το InputBox που μας προτρέπει να γράψουμε
το όνομα του νέου αρχείου.
Τώρα, επειδή τα ονόματα των αρχείων πηγών είναι μεγάλα (με πολλούς και ενδεχομένως ελληνικούς χαρακτήρες)
και με διαδικασία copy/paste του ονόματος του αρχείου και με δεδομένο την μη συμβατότητα Ελληνικών & VBA ,
προκύπτουν προβλήματα.
Μία λύση που βρήκα είναι η μετατροπή των αρχείων πηγών σε αρχεία κειμένου (Save as type : Unicode Text (*.txt))
και λήψη εξωτερικών δεδομένων από κείμενο.
Καλώντας με VBA ανανέωση :

ActiveWorkbook.RefreshAll

ανοίγει παράθυρο (Import Text File) και πηγαίνοντας στο φάκελο που έχουμε αποθηκευμένα τα αρχεία (Text Files) επιλέγουμε.
Καλώντας για πρώτη φορά τον κώδικα (ActiveWorkbook.RefreshAll) ο προεπιλεγμένος φάκελος του παραθύρου (Import Text File)
είναι Τα έγραφά μου (My Documents),τις επόμενες φορές ειναι ο φάκελος που έχουμε τα αρχεία πηγές.
Επειδή τα αρχεία πηγές είναι αποθηκευμένα σε έναν δίσκο Δυκτίου και η διαδρομή είναι μεγάλη θα ήθελα να ήξερα αν μπορούμε
απο την αρχή να προσδιορίσουμε τον προεπιλεγμένο φάκελο του παραθύρου (Import Text File).

Και πάλι σ' ευχαριστώ.

Γιώργος

[gr8styl]

Αγαπητέ Γιώργο,
πολύ σωστή η επιλογή να χρησιμοποιήσεις αρχεία κειμένου.
Για το ερώτημά σου τώρα.
Το πιο απλό είναι να κάνεις μια συντόμευση/shortcut (copy και paste as shortcut μέσω του Explorer) του φακέλου που περιέχει τα αρχεία πηγή, στον φάκελο "Τα εγγραφά μου". έτσι πατώντας το θα πηγαίνεις γρήγορα στον επιθυμητό φάκελο.

Μια άλλη προσέγγιση είναι αντί για αναναίωση όλων να επιλέγεις το πρώτο κελί της περιοχής που εισάγεις τα δεδομένα από το αρχείο κειμένου και να κάνεις αναναίωση (όχι αναναίωση όλων)

Τέλος το αντίστοιχο της αναναίωσης μέσω VBA γίνεται με την εντολή
ThisWorkbook.Sheets(1).Range("A2").Refresh'Υποθέτω ότι τα δεδομένα που εισάγεις από το αρχείο κειμένου αρχίζουν από το κελί Α2 του πρώτου φύλλου και πέρα

Και για να το καλύψουμε πλήρως,
Ο παρακάτω κώδικας δίνει μια λύση με VBA που όμως δεν νομίζω ότι είναι απαραίτητη για την περίπτωσή σου.
Ο κώδικας κάνει αναναιώση των δεδομένων για όλα τα ερωτήματα (query) που υπάρχουν στο ενεργό φύλλο και μάλιστα για κάθε query ανοίγει στον φάκελο που περιέχει το προηγούμενο αρχείο πηγή. Το On Error Resume Next είναι για να μην κρεμάσει με Error 1004 αν δεν επιλέξεις κάποιο αρχείο.

Sub my_macro()
Dim qry As QueryTable
On Error Resume Next
For Each qry In ActiveSheet.QueryTables
    qry.Refresh
Next
End Sub