Файл открыт другим пользователем

У меня была такая же проблема несколько лет назад, когда я пытался открыть сетевой файл из-за рубежа. Если кто-то уже открыл его, Excel попытался бы открыть его в течение нескольких минут, прежде чем сказать, что он используется.

Я использовал ниже код, очень похожий на код Сида здесь .

Код пытается записать в файл C; \ mywork.xls (измените ваш путь к файлу, чтобы он подходил), если есть ошибка, файл уже открыт, иначе файл открыт. Проверка ошибок происходит сразу, а не с задержкой по времени.

Sub Sample() Dim Ret Dim Wb As Workbook Dim strFile As String styrfile = "C:\myWork.xlsx" Ret = IsWorkBookOpen(strFile) If Ret = True Then MsgBox "File is open" Else Set Wb = Workbooks.Open(strFile) End If End Sub  Function IsWorkBookOpen(FileName As String) Dim ff As Long, ErrNo As Long  On Error Resume Next ff = FreeFile() Open FileName For Input Lock Read As #ff Close ff ErrNo = Err On Error GoTo 0  Select Case ErrNo Case 0: IsWorkBookOpen = False Case 70: IsWorkBookOpen = True Case Else: Error ErrNo End Select End Function 

Вы можете использовать procxp, чтобы отследить, кто еще открыл файл.

Используя PID (procid), вы можете проверить, какая программа и какой пользователь его открыл. Для этого беги tasklist.exeна возвышенности cmd.exe.

(Это полезно, когда файл был открыт с ПК, на котором вы работаете. Если он был открыт с другого ПК, запустите net filesсервер, на котором размещен общий ресурс, чтобы получить ПК и пользователя, который его открыл).

Microsoft блокирует файлы, открытые для 1 пользователя за раз, чтобы предотвратить внесение изменений, которые будут перезаписаны другим пользователем, у которого файл открыт до сохранения изменений.

Есть ли причина, по которой этот файл хранится в сети, а не на локальном компьютере?

Если вам нужно открыть файл, я бы предложил открыть его как файл только для чтения

Попробуйте создать файл .bat, чтобы открыть его только для чтения, что позволяет нескольким пользователям.

Убедитесь, что вы включили кавычки, если в пути или имени файла есть пробелы. «LocalDrive: \ ExcelPath \ excel.exe» / r «NetworkDrive: \ WorkbookPath \ Workbook.xls»

В качестве альтернативы - использовать HTML-документ для ссылки на файл при загрузке? Это сохранит временный файл на вашем локальном компьютере, предоставляя полный доступ, который вы можете затем повторно скопировать на сетевой диск.

<a href="NetworkDrive:/WorkbookPath/Workbook.Xls" download> 

Try to start excel with the /a switch on the command line. It can be caused by macroses or add-ins, but in this case you can load excel without this startup files.

Also enable the Ignore Other Applications that use Dynamic Data Exchange feature. Open Excel Options, click Advanced at the left side of the dialog window. Then make sure that DDE is selected.

Next try the following: open Tools – Folder options. In the list of the file types choose XLS. Then click the Advanced. Select Open. The Application Used to Perform Action box contains the actual command line used to start Excel. You should add in this field a space followed by "%1". Be sure to include the quotes. And deselect Use DDE. That’s all a can recommend.