2
www.ChF-Online.de  

Module importieren und exportieren

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
   Word-VBA
 Verschiedenes
 Feld-Arbeiten
 Form-Sachen
 Menü-/Symbolleisten
 VBA und Lotus Notes
 VBA und Mail
aktiv aktiv Inside VBAIDE
 Debug-Informationen
aktiv  Module verwalten (I)
 Module verwalten (II)
 VBA-Module exportieren
 Prozedur-Übersicht (I)
 Prozedur-Übersicht (II)
 Projekt-Verweise
 Von Word nach Outlook
 Fix-und-Fertiges/Projekte
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
Getestet unter Word97Getestet unter Word2000  
Print
Module importieren

Mit der Import-Methode können einem Projekt ein Formular, ein Modul, eine Klasse usw. hinzugefügt werden. Diese müssen in Form einer Datei vorliegen und besitzen eine der folgenden Endungen (*.frm,*.bas,*.cls).

1    Sub ModulImport()
2    Dim sName As String 
3    sName = InputBox("Bitte den Dateipfad eingeben", "Modul importieren")
4    ActiveDocument.VBProject.VBComponents.Import (sName)
5    End Sub 

Module exportieren

Zum Exportieren kann die Export-Methode verwendet werden. Dazu muss als Aufruf-Parameter neben dem Modulnamen auch die Dokumentvorlage, in der das Modul enthalten ist, angegeben werden, sofern nicht die aktive Vorlage ActiveVBProject verwendet wird. Zusätzlich muss der Dateiname, in den das Modul, die Form oder die Klasse exportiert werden soll, angegeben werden. Wird der Dateiname ohne zusätzliche Pfadangabe verwendet, wird die Datei im Vorlagenverzeichnis gespeichert.

1    Sub ModulExport()
2    Dim sTemplate, sCompo, sName As String 
3    sTemplate = "Normal"
4    sName = "Modul1"
5    sPfad = "c:\temp\" & sName & ".bas"
6    Application.VBE.VBProjects(sTemplate).VBComponents(sName).Export (sPfad)
7    End Sub 

 Besucher: 0 online  |  0 heute  |  0 diesen Monat  |  2202523 insgesamt | Seitenaufrufe: 73   Letzte Änderung: 24.06.2006 © 2001-18 Christian Freßdorf
  Ein halbleeres Glas Wein ist zwar zugleich ein halbvolles, aber ein halbe Lüge mitnichten eine halbe Wahrheit.
Jean Cocteau
 powered by phpCMS and PAX