[Tasos]

Καλημέρα σε όλο το φόρουμ!

Αγαπητέ Χρήστο καλημέρα και σε σένα!

Για να λειτουργήσει η μακροεντολή "Εκτέλεση εφαρμογής" θα πρέπει να χρησιμοποιήσεις την ακόλουθη σύνταξη στο όρισμα 'Γραμμή εντολής':

Διαδρομή της εφαρμογής 'EXCEL.EXE' & κενό & Διαδρομή του αρχείου Excel μέσα σε εισαγωγικά

Παράδειγμα:

C:\Program Files\Microsoft Office\Office12\EXCEL.EXE "E:\Desktop\Το όνομα του αρχείου.xls"

Ωστόσο, η χρήση κώδικα VBA μας παρέχει περισσότερες δυνατότητες.

Παράδειγμα κώδικα:

Sub OpenXLFile()
    Dim XLPath As String, XLWorkbook As String

    'Εάν η διαδρομή του αρχείου είναι γνωστή τότε προσαρμόζουμε
    'τη διαδρομή ώστε να έχει ακόλουθη σύνταξη:
    XLWorkbook = "E:\Desktop\Calendar.xls"

    'Εάν η διαδρομή του αρχείου είναι μεταβλητή τότε μπορούμε να
    'χρησιμοποιήσουμε (αν αυτό εξυπηρετεί) ένα από τα παρακάτω παραδείγματα:

    'XLWorkbook = CurrentProject.Path 'Ο φάκελος του αρχείου Access

    'XLWorkbook = Environ("USERPROFILE") 'Ο φάκελος χρήστη του τρέχοντος λογαριασμού των Windows πχ: C:\Users\Χρήστος

    'XLWorkbook = CreateObject("Wscript.Shell").SpecialFolders("Desktop") 'Η επιφάνεια εργασίας του χρήστη
    'XLWorkbook = CreateObject("Wscript.Shell").SpecialFolders("MyDocuments") 'O φάκελος 'Έγγραφα' του χρήστη


       If Right(XLWorkbook, 1) <> "\" Then XLWorkbook = XLWorkbook & "\"

       XLWorkbook = XLWorkbook & "\Calendar.xls"

    'Εάν υπάρχει το αρχείο στη θέση που δημιουργήθηκε παραπάνω...
    If Dir(XLWorkbook, vbDirectory) <> vbNullString Then

        '...τότε παίρνουμε αρχικά τη διαδρομή φακέλου της Access ( Στον ίδιο φάκελο βρίσκεται και η Excel )
        XLPath = Application.SysCmd(acSysCmdAccessDir)

        'Αν χρειαστεί, προσθέτουμε την κάθετο ( "\" ) στο τέλος της διαδρομής του φακέλου.
        If Right(XLPath, 1) <> "\" Then XLPath = XLPath & "\"

        'Κατόπιν προσθέτουμε το όνομα της εφαρμογής Excel & ένα κενό
        XLPath = XLPath & "EXCEL.EXE "

        'Εκτέλεση της Εφαρμογής Excel και άνοιγμα του αρχείου
        Shell XLPath & Chr(34) & XLWorkbook & Chr(34), vbNormalFocus
    Else
        'Εάν δεν υπάρχει το αρχείο στη θέση που δημιουργήθηκε παραπάνω ειδοποιούμε τον χρήστη
        MsgBox "Could not find the File '" & XLWorkbook & "' !!", vbExclamation, CurrentProject.Name
    End If
End Sub

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

Τάσος