パソコンサポート Q & A

パソコン講習会で寄せられた質問を解説しております。

エラー ユーザー定義型は定義されていません

2012年07月13日 | VBA

下記のようなコードを記述したところ、エラーが表示されたとのことです。

Sub ドライブ数表示()
    Dim MyFSO As New FileSystemObject
    MsgBox MyFSO.Drives.Count
    Set MyFSO = Nothing
End Sub

回避方法は以下の通りです。

1.VBEで「ツール」をクリックします。

2.「参照設定」をクリックします。

3.≪参照可能なライブラリファイル≫の一覧から[Microsoft Scripting Runtime]にチェックをつけ、「OK」をクリックします。

このあと、コードを記述すればエラーは回避できます。

フォルダやファイルを操作したり、テキストファイルへ入出力したりするためのオブジェクトが「FileSystemObject(ファイルシステムオブジェクト)」です。これを使うと、フォルダやファイルなどをオブジェクトとして取得し、メソッドやプロパティを使って操作できます。

また、FileSystemObjectはVBAとは独立したオブジェクトです。したがって、VBAからFileSystemObjectを利用するためには、ライブラリファイル[Microsoft Scripting Runtime]への参照を設定します。

参照設定の有効範囲は、参照を設定したブック内です。FileSystemObjectを利用するブックごとに[Microsoft Scripting Runtime]への参照を設定します。

よろしかったら・・・応援クリック・・・お願いします。励みになります。


人気ブログランキングへ