|
参照設定がされているか調べて、されてなければ設定をするコードではダメかな ?
Sub Check_DLL()
Dim i As Long
Dim Flg As Boolean
Const MyPh As String = _
"C:\WINNT\System32\FM20.DLL"
With Application.VBE.ActiveVBProject.References
For i = 1 To .Count
If .Item(i).FullPath = MyPh Then
Flg = True: Exit For
End If
Next i
If Flg Then
MsgBox "参照設定済みです", 64
Else
MsgBox "参照を設定します", 64
.AddFromFile MyPh
End If
End With
End Sub
もし、未だ設定していない状態であることが確実なら
Application.VBE.ActiveVBProject.References _
.AddFromFile "C:\WINNT\System32\FM20.DLL"
Set Dobj = New DataObject
などとするとか。
|
|