Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Διαδρομή αποσυμπίεσης (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2163-diadromi-aposympiesis.html)

anestaki 04-11-12 11:42
Διαδρομή αποσυμπίεσης
 
Καλημέρα σε όλους
Θα ήθελα να μάθω εάν είναι δυνατή η καταγραφή σε κελί της διαδρομής αποσυμπιέσεις
π.χ. το συγκεκριμένο excel αποσυμπιέστηκε από C:\Documents and Settings\user\Τα έγγραφά μου\Downloads\test.rar και αυτό να το κάνη σε κελί της πρώτης σελίδας του δηλαδή να καταγράψει την διαδρομή του.

Tasos 04-11-12 13:18
Καλησπέρα!

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

Δεν μπορεί να γνωρίζει τις ενέργειες που έχουν σχέση με το αρχείο όταν αυτό είναι κλειστό.

Τάσος

anestaki 04-11-12 14:12
Καλησπέρα Τάσο
Εάν μετά την αποσυμπιέσει τρέξει αυτόματα!

Tasos 04-11-12 16:18
Καλησπέρα Γιώργο!

Ο κώδικας που θα μπορούσε να χρησιμοποιηθεί είναι:

Κώδικας:
Private Sub Workbook_Open()
    If Sheets("MyHiddenSheet").Range("A1") = vbNullString Then
        Sheets("MyHiddenSheet").Range("A1") = ThisWorkbook.Path
        ThisWorkbook.Save
    End If
End Sub
Όμως:

Τι θα κάνεις εάν οι το επίπεδο ασφάλειας της εφαρμογής είναι ρυθμισμένο έτσι ώστε να μην επιτρέπει την εκτέλεση κώδικα; :unsure:

Φιλικά

Τάσος


Η ώρα είναι 04:44.

Ms-Office.gr - ©2000 - 2025, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2