Checking if file open.txt then close

[mtheriault]

Hello again

Many thanks to all of you who helped me for the last few days.

I need to check if a .txt file is open. If yes, need to close it.

How can i do it

Martin

 

[Jubjab]

Quick and dirty solution:

Sub a()

On Error Resume Next
Workbooks("myfile.txt").Close savechanges:=False
On error goto 0

End Sub

 

[westconn1]

I need to check if a .txt file is open.

open in excel or some other program?

 

[mtheriault]

Thanks
JubJab, i will try that

Westconn1, The file is opened, outside of Excel. It contained an OCR ( optical characters reading) result from another software.

Martin

 

[westconn1]

as the file is open outside of excel, it will require different code to close it

 

[GTO]

Greetings,

I agree with westconn. As you are running your code in Excel, you can set a reference to Word and use early-binding or create Word as an object and use late-binding, but I think that using Word's Tasks should work.

Let's say the offending .txt file is named 'TimeKeeper.txt', then using the filename and Like could be similar to:

Sub FindTextFileRunning()
Dim tsk As Task
    For Each tsk In Tasks
        If tsk.Name Like "TimeKeeper.txt*" Then
            tsk.Close
            Exit Sub
        End If
    Next
End Sub

Please note that the above is code in Word - as mentioned, use CreateObject etc.

Hope this helps,

Mark

 

[westconn1]

don't forget to quit word when you finish and destroy reference to objects

 

[GTO]

don't forget to quit word when you finish and destroy reference to objects

Greetings westconn, and nice to meet

Hi Martin,

Getting a bit tired/loopy, sorry for the incomplete example. Excuse will be sleep depravation if this goes KABOOM!, but should work.

Using late-binding, in a Standard Module:

Option Explicit
Sub ex()
    Call CloseTextFile("TimeKeeper.txt")
End Sub

Function CloseTextFile(Filename As String)
Dim WD As Object
Dim tks As Object
Dim t

    Set WD = CreateObject("Word.Application")
    Set tks = WD.Tasks
    
    For Each t In tks
        If t.Name Like Filename & "*" Then
            t.Close
            Exit For
        End If
    Next
    
    Set tks = Nothing
    WD.Quit
    Set WD = Nothing
End Function

Hope this helps,

Mark

 

[xenou]

Just curious, why is this file open anyway? If another program is using it will we have rights to close it? Or will we potentially create a bad situation for the other program? Is it not being closed properly elsewhere...can we "fix" the problem at the root?

Text files can be opened in shared mode...so are we sure the file must be closed anyway? What is going wrong here, exactly?

Sorry - no answers, only questions! Alex

 

[mtheriault]

Thanks Alexander for the reflexion

Martin