Toon posts:

[VBA] Macro "laden" uit .TXT bestand

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik ben bezig met het schrijven van een Macro onder Excel XP die rapportages maakt mbv een txt database. Zoals de meeste van jullie regelmatig tegen komen is dat als je een programma optimaliseerd voor een groot bereik er gegarandeerd een uitzondering om de hoek komt zetten. :)

Om dat af te vangen wil ik een stukje VB-Code als aanvulling in een TXT bestand plaatsen en deze inlezen in mijn Macro. |:(

De vraag is nu: "Hoe krijg ik dat nu voor elkaar"... Ik heb al gekeken naar de Application.RecordMarco commando, maar het lijkt erop dat deze mijn manier van "Macro's creeren" niet ondersteund... ;(

Kan iemand mij hier mee verder helpen?

Alvast bedankt,

Tom.

  • Thunk
  • Registratie: Maart 2002
  • Laatst online: 05-09 14:13
Kan je wel het programma veranderen als deze runt? Je kan ook niet in de code kloten voordat je de vierkante stop knop klikt :?
IK weet niet of het mogelijk is maar lijkt me niet, maar misschien kan iemand anders me corrigeren :)

Verwijderd

code:
1
2
3
4
5
6
7
8
9
10
11
Sub ImportModuleCode(ByVal wb As Workbook, ByVal ModuleName As String, ByVal ImportFromFile As String)
Dim VBCM As CodeModule
    If Dir(ImportFromFile) = "" Then Exit Sub
    On Error Resume Next
    Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule
    If Not VBCM Is Nothing Then
      VBCM.AddFromFile ImportFromFile
      Set VBCM = Nothing
    End If
    On Error GoTo 0
End Sub

bijvoorbeeld:
ActiveWorkbook, "TestModule", "C:\FolderName\NewCode.txt"