代码之家  ›  专栏  ›  技术社区  ›  Mauro

尝试使用FileSystemObject打开csv时出错:代码运行但不执行任何操作

  •  0
  • Mauro  · 技术社区  · 8 年前

    我有以下代码来打开文件:

    Sub prueba3()
    
    
    Dim Obj As Object
    Dim WB As Object
    
    Set Obj = CreateObject("Scripting.filesystemobject")
    Set WB = Obj.OpenTextFile("V:\evfilesce9i9\apps9\vbe9\dep4\KFTP\KFTP001D_FicherosCeca\30. RFSectorial\RF Sectorial 2018-05\QryCECARFSECTORIAL0239_EVO1_PRO_20180508205535.csv")
    
    
    End Sub
    

    我希望获得中指定的文件 Obj.Opentextifle() 函数,但代码运行时不执行任何操作。

    如果我误解了 FileSystemObject 作品

    提前感谢

    1 回复  |  直到 8 年前
        1
  •  1
  •   Sobigen    8 年前

    WB 现在是TextStream对象。你可以这样做

    Debug.print(WB.ReadAll())
    

    这将把文件中的所有内容打印到控制台。

    在编写代码时,您会打开文件,但由于您不要求它执行任何其他操作,因此只会打开文件。更多 here 你正在使用的方法。