Lägg till och ta bort kod

Infoga procedurer, deklarationer och text

Här demonstreras hur vi kan på ett enkelt sätt infoga procedurer mm i existerande moduler. Vi kan också infoga kod / ta bort kod per rad men den praktiska nyttan av det förfarandet få anses vara liten. Även här använder vi oss av egenskapen CodeModule.

Glöm inte av att ange en referens "Microsoft Visual Basic for Applications Extensibility 5.3".

Sub Lagg_Till_Kod()

   '© 2002 Alla rättigheter XL-Dennis

   Dim vbaProjekt As VBIDE.VBProject

   Dim vbaModul As VBIDE.VBComponent

   Dim cdModul As VBIDE.CodeModule

   Set vbaProjekt = ThisWorkbook.VBProject

   'Här sätt referensen till en standardmodul.

   Set vbaModul = vbaProjekt.VBComponents("Modul1")

   Set cdModul = vbaModul.CodeModule

   With cdModul

      'Här infogas textfilens innehåll i modulen och

      'den placeras överst i modulen efter eventuella

      'moduldeklarationer.

      .AddFromFile "c:\test.txt"

      'Här infogas en public variabeldeklaration, vilken

      'placeras allra överst i modulen.

      .AddFromString "Global lnRader as long"

      'Här infogas text.

      .AddFromString "'© 2002 Alla rättigheter XL-Dennis"

   End With

   MsgBox "Procedur infogad!"

End Sub