如何在不打开的情况下从 CSV 文件中检索数据

Question

有什么方法可以在不打开 CSV 文件的情况下将数据从 csv 文件检索到 excel 工作表中？我在 Windows PC 上工作。 Excel 表和 CSV 文件在一个文件夹中。我还运行了一个程序，它不断更新 CSV 文件中的数据。如果我直接打开 CSV 文件，那么程序将停止运行。所以我需要一个替代解决方案来从 CSV 文件中读取数据而不打开它。任何帮助将不胜感激！

Answer 1

如果我理解正确，您希望读取 CAV 文件而不锁定它，以便您的其他进程可以继续写入。

这可以通过FileSystemObject实现

Sub Demo()
    Dim fso As FileSystemObject
    Dim txt As TextStream
    Dim s As String
    On Error GoTo EH

    Set fso = New FileSystemObject
    Set txt = fso.OpenTextFile("C:\Your\Path\YourFile.csv", ForReading)

打开文件ForReading 不会锁定它，你的其他进程可以继续写入它。您现在可以使用

读取它

    Do While Not txt.AtEndOfStream
        s = txt.ReadLine
        Debug.Print s
    Loop

这将通读到文件的当前结尾。如果在您的代码仍在执行其他操作时向文件中添加了更多数据，您可以继续使用txt.ReadLine 获取更多数据。

要从头开始阅读，请执行

    Set txt = fso.OpenTextFile("C:\Your\Path\YourFile.csv", ForReading)

再次。

清理

EH:
    On Error Resume Next
    txt.Close
    Set txt = Nothing
    Set fso = Nothing
End Sub