Закройте текстовый файл, когда я уже использую Workbooks.OpenText, чтобы открыть его.

Я новичок в этом форуме, и я хотел бы поделиться своей мудростью, и вы передаете мне свое.

У меня достаточно опыта работы с макросами Excel, но этой проблемы я не смог найти решение.

Я открываю текстовый файл с Workbooks.OpenText для работы в Excel.

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

Но когда я его закрою, я не смогу. Я пробую следующие инструкции:

  • Рабочие книги (MyFile).close
  • ActiveWorkbook.Close

myfile = "path\file.txt"

Когда я использую эту инструкцию, Excel говорит, что я не могу ее использовать. Мне нужно только взять некоторую информацию из этих текстовых файлов и закрыть ее без сохранения.

Может ли кто-нибудь помочь мне с этим?

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

licensed under cc by-sa 3.0 with attribution.