Dim fso As New FileSystemObject, txtfile, fil1 As File, Ts As TextStream
Dim i As Integer, j As Integer
Set fil1 = fso.GetFile(Text2)
Set Ts = fil1.OpenAsTextStream(ForReading)
以上代码用到了什么dll文件呀!为什么在系统中会出错
出错提示"类不支持自动化或不支持期望的接口"
...全文
401打赏收藏
急救我~~~
Dim fso As New FileSystemObject, txtfile, fil1 As File, Ts As TextStream Dim i As Integer, j As Integer Set fil1 = fso.GetFile(Text2) Set Ts = fil1.OpenAsTextStream(ForReading) 以上代码用到了什么dll文件呀!为什么在系统中会出错 出错提示"类不支持自动化或不支持期望的接口"
一:
Dim fso , txtfile, fil1 , Ts
Dim i As Integer, j As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil1 = fso.GetFile(Text2)
Set Ts = fil1.OpenAsTextStream(ForReading)
二:
引用Microsoft Scripting Runtime (%win%\system32\scrrun.dll)