当我已经使用 Workbooks.OpenText 打开它时关闭文本文件

Question

我是这个论坛的新手，我想分享我的智慧，你也可以传达给我你的。

我对 Excel 宏有足够的经验，但是我找不到解决此问题的方法。

我用 Workbooks.OpenText 打开一个文本文件以在 Excel 中工作。

Workbooks.OpenText Filename:=myfile, DataType:=xlDelimited, Origin:=xlWindows, Other:=True, OtherChar:=","

但是当我关闭它时，我不能。我尝试使用以下说明：

• 工作簿（我的文件）。关闭
• ActiveWorkbook.Close

myfile = "path\file.txt"

当我使用此说明时，Excel 说我无法使用它。我只需要获取这个文本文件的一些信息并关闭它而不保存。

有人可以帮我解决这些问题吗？

Answer 1

这也适用于我

Sub Sample()
    Dim myfile As String

    myfile = "C:\Delete Me.txt"

    Workbooks.OpenText fileName:=myfile, _
                       DataType:=xlDelimited, _
                       Origin:=xlWindows, _
                       Other:=True, _
                       OtherChar:=","


    myfile = GetFilenameFromPath(myfile)

    Workbooks(myfile).Close
End Sub

Public Function GetFilenameFromPath(ByVal strPath As String) As String
    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        GetFilenameFromPath = _
        GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function