Checking if file open.txt then close

J

Jubjab

Well-known Member

Joined

Jan 3, 2007

Messages

995

• Feb 25, 2009

• #2

Quick and dirty solution:

Code:

Sub a()

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

End Sub

 

Upvote 0

W

westconn1

Board Regular

Joined

Feb 20, 2009

Messages

245

• Feb 25, 2009

• #3

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

Click to expand...

open in excel or some other program?

 

Upvote 0

M

mtheriault

Board Regular

Joined

Sep 16, 2008

Messages

161

• Feb 25, 2009

• #4

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

 

Upvote 0

W

westconn1

Board Regular

Joined

Feb 20, 2009

Messages

245

• Feb 25, 2009

• #5

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

 

Upvote 0

G

GTO

MrExcel MVP

Joined

Dec 9, 2008

Messages

6,161

Office Version

1. 365

Platform

1. Windows

• Feb 25, 2009

• #6

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:

Code:

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

 

Upvote 0

W

westconn1

Board Regular

Joined

Feb 20, 2009

Messages

245

• Feb 25, 2009

• #7

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

 

Upvote 0

G

GTO

MrExcel MVP

Joined

Dec 9, 2008

Messages

6,161

Office Version

1. 365

Platform

1. Windows

• Feb 25, 2009

• #8

westconn1 said:

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

Click to expand...

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:

Code:

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

 

Upvote 0

xenou

MrExcel MVP

Joined

Mar 2, 2007

Messages

16,836

Office Version

1. 2019

Platform

1. Windows

• Feb 25, 2009

• #9

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

 

Upvote 0

M

mtheriault

Board Regular

Joined

Sep 16, 2008

Messages

161

• Feb 25, 2009

• #10

Thanks Alexander for the reflexion

Martin

 

Upvote 0