Πως μπορώ να εισάγω από το excel μου εξωτερικό module αρχείο για την εκτέλεση του κώδικά μου???...

Τελευταία δημοσίευση από το μέλος Admin στις 08-21-2008 9:00 μμ. Υπάρχουν 0 απαντήσεις.
Σελίδα 1 από 1 (1 εγγραφές)
Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο
  • 08-21-2008 9:00 μμ

    • Admin
    • Οι δημοφιλέστερες 10 δημοσιεύσεις
    • Μέλος από τις 05-24-2007
    • Δημοσιεύσεις 627

    Wink [;)] Πως μπορώ να εισάγω από το excel μου εξωτερικό module αρχείο για την εκτέλεση του κώδικά μου????

     Με τον παρακάτω κώδικα ελέγχουμε εάν υπάρχει το module και το καλούμε

    Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)
    ' inserts the contents of CompFileName as a new component in wb
    ' CompFileName must be a valid VBA component suited for 
    ' import (an exported VBA component)
        If Dir(CompFileName) <> "" Then 
            ' source file exist
            On Error Resume Next 
            wb.VBProject.VBComponents.Import CompFileName 
            ' εισαγωγή
            On Error GoTo 0
        End If
        Set wb = Nothing
    End Sub


    πως το καλώ για παράδειγμα 

    InsertVBComponent ActiveWorkbook, "C:\FolderName\Filename.bas"
    
    KARPODINIS
Σελίδα 1 από 1 (1 εγγραφές)