Длина названия файла excel

xuor007

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Метки нет (Все метки)

Доброго времени суток! Некоторое время назад столкнулся с проблемой, что в таблицах Excel невозможно редактировать файлы путь и имя которых превышает 255 символов.
Прочитал на сторонних формах о «костыле» — создании виртуального диска, для сокращения пути к файлу.
Хочу это автоматизировать.
К сожалению, мои изыскания не

привили

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

Попытка 1:
ЛКМ загружается до открытия нужного файла, но к сожалению в коллекции Workbook только файл «PERSONAL.XLSB».
Файла, который должен открыться после загрузки ЛКМ в этой коллекции нет.

1
2
3
4
5
6
7

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
 
   For Each w In Application.Workbooks
       MsgBox (w.FullName)
   Next w
 
End Sub

Попытка 2:
Получив hwnd окна по WMI добраться до названия файла. К сожалению, также не нашёл

Попытка 3:
Возможно где-то в переменной среде Excel есть эта информация. Но функция Environ() такой информации не дала.

Идея: Если ни одним способом нет возможности получить информацию, мне требуемую, полагаю возможно написать программу-посредник и назначить на неё открытия файлов excel.

Жду ответов и заранее благодарю за любую помощь

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,187

Записей в блоге: 13

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Catstail, видимо Вы невнимательно прочитали тему и само сообщение. Проблема в том, что при попытки сохранить или отредактировать файл, путь и имя которого превышает 255 символов, программа Excel сообщает об ошибке(фото во вложении).

Под аббревиатурой ЛКМ я подразумевал Личная Книга Макросов.

P.s. Благодарю за исправление орфографической ошибки

Миниатюры

811 / 465 / 181

Регистрация: 09.03.2009

Сообщений: 1,577

https://qastack.ru/superuser/1… can-handle говорит:

«Классический» предел 260 символов: drive letter+ :+ 255 characters of filename+ (или для округления) + , null terminatorкак сказано в других ответах

Однако реальный внутренний предел 32767 символов , которые могут быть достигнуты путем добавления , \?чтобы получить полный путь

Windows API имеет много функций, которые также имеют версии Unicode, чтобы разрешить путь расширенной длины для максимальной общей длины пути 32 767 символов. Этот тип пути состоит из компонентов, разделенных обратной косой чертой, каждая из которых соответствует значению, возвращенному в lpMaximumComponentLengthпараметре GetVolumeInformationфункции (обычно это значение составляет 255 символов). Чтобы указать путь расширенной длины, используйте «\?»префикс. Например, «\?D:very long path».

Если по каким-либо причинам полные пути не могут быть использованы, то к более глубоким каталогам можно обратиться, подключив их к букве диска с помощью subst/ diskpartили создав соединение / символическую ссылку для сокращения пути

Начиная с Windows 10, MAX_PATHограничение также было удалено, хотя не по умолчанию

Начиная с Windows 10, версия 1607, MAX_PATHограничения были удалены из общих функций файлов и каталогов Win32. Тем не менее, вы должны подписаться на новое поведение.

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Zeag, благодарю за дополнение.

Согласно комментариям к этой статье разные версии ОС Windows имеют разное ограничение MAX_PATH. Хотелось бы написать кроссплатформенную утилиту. Правильно ли я понял, что максимальный путь и имя файла в ОС Windows XP SP3 составляет 250 символов?

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

Zeag

811 / 465 / 181

Регистрация: 09.03.2009

Сообщений: 1,577

Кроссплатформенную вряд ли, на MacOS все будет иначе. )) Вероятно, вы имели в виду — под все версии Windows? Попробуйте указывать перед файлом «\?»префикс. Например, «\?D:very long path».

У меня этот вариант (7/64, офис 2007) не прошел, но выкрутился так:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Sub xtest()
   Dim sFN As String, FP As Workbook
   sFN = "C:testsdfksdjfkzxklksdjfkdgifueru8trveruhg7rtyg7rthgt7rhg7nsdjf38rewsmc3485438wokdow3853fiwj38375837gsre48t784iefjvci4eut834fcvmweit7348u3fidnjed8eryf459t8mi86439sd7435u7s34iu8we6rt43n43u3487r34765s834trh34uf8wr7f34r34u77677634th8y743734hr743ytr74365634th345Стрекоза_7_862_от_31_12_2020_Март_2021.xlsx"
' когда задал так, не прошло ни напрямую, ни с \?
 
' тогда сделал (здесь вручную, но можно автоматизировать): разбил путь на часть, не превышающую 256 знаков,
' и ее посадил на subst (разумеется, нужно найти свободную букву, можно через FSO или еще как), а хвост оставил в имени файла
   Shell "subst Q: C:testsdfksdjfkzxklksdjfkdgifueru8trveruhg7rtyg7rthgt7rhg7nsdjf38rewsmc3485438wokdow3853fiwj38375837gsre48t784iefjvci4eut834fcvmweit7348u3fidnjed8eryf459t8mi86439sd7435u7s34iu8we6rt43n43u3487r34765s834trh34uf8wr7f34r34u776776"
   Set FP = Application.Workbooks.Open(Filename:="Q:34th8y743734hr743ytr74365634th345Стрекоза_7_862_от_31_12_2020_Март_2021.xlsx", Local:=True)
   MsgBox Cells(7, 1)  ' работает!
   Shell "subst Q: /D"
   FP.Close False
   Set FP = Nothing
End Sub

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Zeag,

Да, прошу прощения, имел ввиду под действующие версии OC Windows)

Данный код будет работать, если Вы заранее знаете какой файл будете открывать.
Но как заранее перехватить название открываемого файла, программой Excel, до появления ошибки и выполнить свой код, мне, к сожалению, не известно(

811 / 465 / 181

Регистрация: 09.03.2009

Сообщений: 1,577

А имена вам кто дает? Dir, FSO? Можно анализировать путь и если он больше 250, то применять такую подстановку. Или они столь длинные пути не отдают?
Вот я сделал dir /s из ком.строки:

 Содержимое папки C:testsdfksdjfkzxklksdjfkdgifueru8trveruhg7rtyg7rthgt7rhg7nsdjf38rewsmc3485438wokdow3853fiwj38375837gsre48t784iefjvci4eut834fcvm
weit7348u3fidnjed8eryf459t8mi86439sd7435u7s34iu8we6rt43n43u3487r34765s834trh34uf8wr7f34r34u776776

28.03.2021  15:08    <DIR>          .
28.03.2021  15:08    <DIR>          ..
28.03.2021  15:08    <DIR>          34th8y743734hr743ytr74365634th345
               0 файлов              0 байт
Имя папки C:testsdfksdjfkzxklksdjfkdgifueru8trveruhg7rtyg7rthgt7rhg7nsdjf38rewsmc3485438wokdow3853fiwj38375837gsre48t784iefjvci4eut834fcvmweit7348
u3fidnjed8eryf459t8mi86439sd7435u7s34iu8we6rt43n43u3487r34765s834trh34uf8wr7f34r34u77677634th8y743734hr743ytr74365634th345 слишком длинно.

Думаю (хотя надо проверить), что даже при переборе по Dir() можно выкрутиться: как длина общего пути (а это собирать через амперсенд) становится 250 или около того — сделать subst и продолжить. Если же берете из ячейки, то сразу видите, сколько длина, вычленяете наибольшую возможную часть и ей subst.

xuor007

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Zeag,

Не понял вопроса. Я пытаюсь открыть для редактирования файл Excel, путь которого, включая имя файла, превышает 260 символов и появляется сообщение об ошибке.
Единственный способ, который у меня сработал, это прописать код в процедуру ЛКМ:

1
2
3
4
5
6
7

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
 
   For Each w In Application.Workbooks
       MsgBox (w.FullName)
   Next w
 
End Sub

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

Мне известно, что возможно сократить путь к открываемому файлу созданием виртуального диска:
— утилитой subst, для локальных файлов
— утилитой net use, для файлов, которые нужно использовать по сети

Но для этих манипуляций необходимо сначала:
1. Получить имя пути и файла, до его загрузки
2. Проверить длину полного пути(если путь короче 260 символов, то открыть файл; если путь длинее приступить к сокращению)
3. Если путь длинее, закрыть файл; Подключить виртуальный диск; Открыть файл по новому пути
4. После закрытия файла отключить виртуальный диск.

У меня возникли сложности с первым пунктом(

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,187

Записей в блоге: 13

— как это еще можно понять? «В таблицах»… Таблицы состоят из ячеек.

Да, есть удобная штука, называется subst. Позволяет повесть директорию на свободную букву диска.

Возникает вопрос: зачем нужны такие длинные имена?

xuor007

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Catstail,

Прошу прощения, видимо я не ясно выразился

1

Возникает вопрос: зачем нужны такие длинные имена?

Производственная необходимость

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,187

Записей в блоге: 13

— и откуда вы хотите его получить? Имя файла первично. Если вы хотите открыть файл по имени, то имя нужно знать. Разве не так?

Добавлено через 1 минуту
Обычно файлы для открытия получают сканированием директорий…

811 / 465 / 181

Регистрация: 09.03.2009

Сообщений: 1,577

xuor007, откуда и в какой момент возникает имя файла? Так понял, у вас есть какой-то макрос, который обрабатывает каталоги. Где он берет имена? Они в таблице на листе или получаются перебором какого-то каталога?

Catstail, чую, дело касается обработки файлов на сетевом ресурсе.

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Catstail,
Открывая файл, возможно, делаются какие-то записи открываемого файла:
1. в переменную среду Excel;
2. в реестр;
3. в hnwd окна Excel;
4. возможно куда-то ещё.
Мне это не известно, затем и обратился к помощи форумчан.

В данный момент пишу программу-посредник, которая будет запускаться при открытии файлов xls, но мне не нравится это решение

Catstail

34707 / 19228 / 4039

Регистрация: 12.02.2012

Сообщений: 32,187

Записей в блоге: 13

ох… — ничего такого не делается. Я повторяю вопрос: откуда берется имя файла, который вы хотите открыть? Непонятно?

1

        Set wb = Workbooks.Open(Имя_файла) ' откуда у вас берется это имя?

Добавлено через 59 секунд

— это сильно!

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Zeag,

файл находиться локально

Макроса, в данный момент, нет, хотелось бы его написать) Файл создается не с помощью Excel, он создается средствами ОС Windows 10 путем копирования из другого каталога. Сама OC Windows 10 не выдает ошибку при копировании и создании этих файлов. Ошибка возникает, только при их открытии

Добавлено через 2 минуты
Catstail,

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

Добавлено через 7 минут
Catstail,

Постараюсь описать процесс создания файла максимально доступно:
1. В проводнике я открываю директорию C:testsdfksdjfkzxklksdjfkdgifueru8trveruhg7rtyg7 rthgt7rhg7nsdjf38rewsmc3485438wokdow3853fiwj38375 837gsre48t784iefjvci4eut834fcvm
weit7348u3fidnjed8eryf459t8mi86439sd7435u7s34iu8 we6rt43n43u3487r34765
2. Копирую файл, находящийся там(s834trh34uf8wr7f34r34u776776.xlsx), в буфер обмена
3. Создаю директорию C:testsdfksdjfkzxklksdjfkdgifueru8trveruhg7rtyg7 rthgt7rhg7nsdjf38rewsmc3485438wokdow3853fiwj38375 837gsre48t784iefjvci4eut834fcvm
weit7348u3fidnjed8eryf459t8mi86439sd7435u7s34iu8 we6rt43n43u3487r347652
4. Вставляю файл в созданную мною директорию.

Повторюсь, мне крайне важно сохранить структуру папок, поэтому их имена, как и имена файлов, я не могу сократить

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

Ошибка не связана с Excel. Сделайте .txt файлы такого же длинного наименования и попытайтесь открыть. Так что задача не пытаться что-то изобразить на VBA, а сделать так, чтобы при открытии файлов, до того, как по расширению будет распознано, что его надо открывать Excel’ем, или чем-то другим — перед именем подставлялся префикс

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Punkt5,

Вы не правы. Переименовал расширение файла на .txt, блокнот открыл без проблем
Попробовал переименовать расширение на .doc, Word, также, открыл без проблем

Punkt5

1143 / 442 / 193

Регистрация: 30.01.2020

Сообщений: 1,095

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

1

cmd /C "START "" /I "C:Program FilesMicrosoft OfficeOFFICE11excel.exe" \?%1"

где вместо C:Program FilesMicrosoft OfficeOFFICE11excel.exe укажите полный путь к вашему excel.exe.
И переназначьте открывание всех файлов с расширениями .xls* на этот батник.
Ну, или какой-нибудь аналогичный скрипт на .vbs, .js, PowerShell, autoit. Как понимаю, правка реестра не рассматривается, поскольку хочется распространяемого решения.

0 / 0 / 0

Регистрация: 21.03.2017

Сообщений: 35

Punkt5,