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

Question

我是这个论坛的新人，我想分享我的智慧，你也告诉我你的。

我对 Excel 宏有足够的经验，但这个问题我找不到解决方案。

我使用 Workbooks.OpenText 打开一个文本文件以在 Excel 中工作。
Workbooks.OpenText Filename:=myfile, DataType:=xlDelimited, Origin:=xlWindows, Other:=True, OtherChar:=","
但是当我关闭它时，我不能。我尝试以下说明:

工作簿(我的文件)。关闭

ActiveWorkbook.关闭

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