43
特定のモジュールに対してプログラムからコードを挿入するには、VBComponentの「CodeModule」オブジェクトの「InsertLines」メソッドを使います。
このメソッドでは、１つめの引数に「挿入先の行番号」、２つめに「挿入するコード」を文字列として指定します。行番号はモジュールの先頭行を「１」として指定します。通常は「Option Compare Database」が記述されている行です。
プログラム
Sub SampleCode_43()
'DeclarationsセクションにOption Explicitを挿入する
Dim vbcmp As Object
Dim intRow As Integer
'VBEのすべてのモジュールのループ
For Each vbcmp In VBE.ActiveVBProject.VBComponents
With vbcmp.CodeModule
If .Lines(2, 1) <> "Option Explicit" Then
'２行目にOption Explicitがないときは挿入
.InsertLines 2, "Option Explicit"
End If
End With
Next vbcmp
End Sub
実行例
■実行前
■実行後
