открыт ли csv

[Puffi.Muffi]

Добрый день,

подскажите, пожалуйста, как определить открыт ли .csv файл?

Спасибо.

[Puffi.Muffi]

или просто закрыть, если он открыт

[Hugo121]

Function IsOpen(sFileName As string) As Boolean
Dim FN%
FN = FreeFile
On Error Resume Next
Open sFileName For Random Access Read Write Lock Read Write As #FN
Close #FN
IsOpen = Err
End Function

[Puffi.Muffi]

Hugo, спасибо за ответ.
Но если .csv открыт в блокноте, код не определяет (только если файл открыт в excel работает).

Sub Op()
 Dim sFileName As String
 sFileName = "C:\Users\Desktop\name.csv"
 MsgBox IsOpen(sFileName)
End Sub

[Hugo121]

И впрямь... И WordPad тоже файл не лочит... Тогда не знаю.

[alex77755]

Но если .csv открыт в блокноте

как вариант проверить открытые в блокноте файлы...

[SAS888]

Еще вариант - с помощью API-функции FindWindow искать окно с названием файла (не важно, каким приложением он открыт).