Sett inn en ny modul fra en fil

Ved hjelp av makroen nedenfor kan man lett opprette nye moduler med innhold i en arbeidsbok. Dette forutsetter at man på forhånd har laget ferdig den nye modulen som skal settes inn i en annen (midlertidig) arbeidsbok. Den ferdige modulen eksporteres deretter til en vanlig tekstfil ved å høyreklikke på modulnavnet og velge Eksporter fil... i hurtigmenyen som kommer frem.

Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)
' krever en referanse til Microsoft Visual Basic Extensibility biblioteket
' setter inn innholdet fra CompFileName som en ny komponent i wb
' CompFileName må være en gyldig VBA komponent egnet for import 
' (en eksportert VBA komponent)
    If Dir(CompFileName) <> "" Then 
        ' kildefilen eksisterer
        On Error Resume Next ' ignorerer feil dersom prosjektet er beskyttet
        wb.VBProject.VBComponents.Import CompFileName 
        On Error GoTo 0
    End If
    Set wb = Nothing
End Sub

Eksempel:

InsertVBComponent ActiveWorkbook, "C:\FolderName\Filename.bas"

Dokumentet er sist oppdatert 2000-02-05 12:36:59 Utskriftsvennlig versjon