118

参照する必要があるものはありますか？これをどのように使用しますか：

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

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

4

5 に答える 5

187

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

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

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

[ファイル] > [オプション] > [セキュリティ センター] > [セキュリティ センターの設定] > [マクロの設定]にあるチェックボックスをオンにすることで、アクセスを有効にすることができますTrust access to the VBA project object model。

VBA マクロ設定

参照を追加するには:

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
于 2010-07-13T10:46:33.627 に答える
15

Excel 2013 では、オブジェクト作成文字列は次のとおりです。

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

上記の回答のコードの代わりに:

Dim fs,fname
Set fs=Server.CreateObject("Scripting.FileSystemObject")
于 2016-07-31T19:54:53.367 に答える
12

これらの人は、ファイルシステムオブジェクトhttp://www.w3schools.com/asp/asp_ref_filesystem.aspを使用する方法の優れた例を持っています

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>
于 2010-07-13T00:04:16.373 に答える