[解決済み] VBAでFileSystemObjectを使用するにはどうしたらよいですか？

質問

何か参照するものがあるのでしょうか？どのように使えばいいのでしょうか。

Dim fso As New FileSystemObject
Dim fld As Folder
Dim ts As TextStream

これらのオブジェクトを認識しないため、エラーが発生します。

どのように解決すればよいですか？

Excel内で、VBスクリプトのランタイムライブラリへの参照を設定する必要があります。 関連ファイルは通常 \Windows\System32\scrrun.dll

• このファイルを参照するには Visual Basic エディタ ( ALT + F11 )
• ドロップダウン メニューから [ツール >リファレンス] を選択します。
• 利用可能なリファレンスのリストボックスが表示されます。
• の隣にあるチェックボックスにチェックを入れます。 Microsoft Scripting Runtime '
• の完全な名前とパスが必要です。 scrrun.dll ファイルの完全な名前とパスがリストボックスの下に表示されます。
• をクリックします。 OK ボタンをクリックします。

VBAオブジェクトモデルへのアクセスが有効になっている場合、これはコード内で直接行うこともできます。

アクセスを有効にするには、チェックボックス Trust access to the VBA project object model にある ファイル >、オプション >、トラスト センター >、トラスト センターの設定 >、マクロの設定

リファレンスを追加するには

Sub Add_Reference()

    Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll"
'Add a reference

End Sub

参照を削除するには

Sub Remove_Reference()

Dim oReference As Object

    Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")

    Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference

End Sub