[Μορφοποίηση] Picture from web

[jimrenoir]

Καλησπέρα σε 'ολο το φόρουμ.
Εχω φτιάξει ένα αρχείο excel 07 όπου παίρνω δεδομένα απο το web.Υπάρχει τρόπος να παίρνω τα δεδομένα όπως τα βλέπω(εννοώ και τα εικονίδια-βέλη) και να δηλώνω κάποιο γράμμα όπου υπάρχει αντίστοιχο βέλος σε κελί?. ανεβάζω ένα κομάτι του προγράμματος και έχω 2 φύλλα.στο 1 έχω την μακρο που παίρνω τα δεδομένα απο web και στο άλλο τα επικολώ με copy-paste και στην συνέχεια γράφω με το χέρι που υπάχρει βέλος και που όχι(k=κοκινι,p=πρασινο,n=δεν εχει)αυτό γίνεται με μάκρο?
Είναι πολύ δύσκολο αυτό που ζητάω.Δεν εχω βρεί κάτι αντίστοιχο με googlarisma.
Ευχαριστώ εκ των προτέρων είτε δοθεί λύση είτε όχι.Ούτος η άλλως η βοήθεια του φόρουμ σε ότι έχω μάθει είναι τεράστια και σας ευχαριστώ για αυτό

[Tasos]

Καλησπέρα!

Δημήτρη, για να επιτύχεις το ζητούμενο θα πρέπει να αλλάξεις τρόπο εισαγωγής δεδομένων Web στο φύλλο σου.

Χρειάζεται να αναλύσεις τον κώδικα HTML της ιστοσελίδας, να φορτώσεις τη σελίδα με το αντικείμενο WebBrowser της Microsoft, και να πάρεις τα δεδομένα του πίνακα αποτελεσμάτων συμπεριλαμβανομένων και των κόμβων '<IMG>' που αφορούν τα UO που θέλεις να εμφανίζεις στο φύλλο.

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

Μπορείς να επιλέξεις αν θέλεις μόνο την πρώτη σελίδα ή όλες τις σελίδες της επιλεγμένης ημερομηνίας.

Θα είναι χρονοβόρο και απαιτεί προχωρημένες γνώσεις για να το διαχειριστείς το αρχείο αν χρειαστεί.

Καλή συνέχεια!

Τάσος

[jimrenoir]

Πωπω!!!!!!!!!!!!
Τι κάναταε Κύριε Τάσο με τρελάνατε.Απίστευτος.Απλά Τέλειο

[Tasos]

Να είσαι καλά Δημήτρη.

Τάσος

[jimrenoir]

Ενώ δουλεύει άψογα τα βελη επικολούνται κατά μία γραμμή πιο χαμηλά (π.χ.βέλος στην γραμμή 9 αντιστοιχή στις εγγραφές τις προηγουμενης γραμμής.(8)
Επίσης μου χτυπάει ο κώδικας μόλις τελειώσει την εντολή(τιν εκτελε'ι κανονικά) Σφάλμα 9 Subscript out of range

[Tasos]

Ναι μου ξέφυγε...

Βρες τη γραμμή: Cells(lastRow + i, X).Value = ConvertToChar(oCell.ChildNodes(0).nameProp)

και αντικατέστησε την με:Cells(lastRow + i - 1, X).Value = ConvertToChar(oCell.ChildNodes(0).nameProp)

Έκανα τη διόρθωση στο συνημμένο του προηγούμενου μου μηνύματος.

Όσο για το σφάλμα "Subscript out of range" δεν μπόρεσα να το αναπαράγω για να σου πω κάτι.

Το κελί Α1 στο φύλλο πρέπει να περιέχει κάτι διαφορετικά μάλλον θα έχεις πρόβλημα.

Αν δεν είναι αυτό το πρόβλημα τότε αφαίρεσε προσωρινά τη γραμμή On Error GoTo ExitHere, τρέξε τον κώδικα και πες μας σε ποιο σημείο παρουσιάζεται το πρόβλημα.



Τάσος

[jimrenoir]

Κύριε Τάσο δουλέυει άψογα με την διόρθωση..Τώρα όσο για το μήνυμα μήπως φταίει ότι σε αυτό το pc έχω Office Home and student 07.Πάντως ασχέτος με το error δουλεύει άψογα.

[Tasos]

Σου επισυνάπτω μια νεότερη έκδοση που διορθώνει και κάποια προβληματάκια σχετικά με την αρίθμηση σελίδων της ιστοσελίδας.

Μη χρησιμοποιείς συγχωνευμένα κελιά στο φύλλο.

Τάσος