DAO DAO参照設定エクセル(ExcelVBA)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub DAOAddFromFile() '**************************************** 'DAO参照設定エクセル(ExcelVBA) '**************************************** 'DAOとADOを両方参照設定しているとその後のコードに影響があります。 '※↑問題はありませんが変数宣言が面倒になります。 Dim objBok As Workbook Dim objName As String Set objBok = ThisWorkbook 'DAO Version3.6(Access2000) objName = "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" If Dir(objName) = "" Then 'DAO Version3.5(Access97) objName = "C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll" If Dir(objName) = "" Then MsgBox "DAO DLLが見つかりません！", vbCritical, "DAO参照設定Error!" Exit Sub End If End If On Error GoTo ONERR: objBok.VBProject.References.AddFromFile (objName) Exit Sub ONERR: '参照設定済み以外のエラー If Err.Number <> 32813 Then MsgBox Err.Number & vbTab & Err.Description, vbCritical, "DAO参照設定Error!" End If End Sub |