путь к файлу на каталог выше - Microsoft Office Excel - Страница 3

Hugo121 · 29.03.2011, 15:04

Имхо первоначальный посыл лучше бы был таким:

Код:

MsgBox CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.ParentFolder.Name

Так ошибки у меня нет, есть результат.

IgorGO · 29.03.2011, 15:20

чтобы не оказаться в злостных плагиаторах:

Код:

MsgBox Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - InStr(StrReverse(ThisWorkbook.Path), Application.PathSeparator))

на выходе должно быть то же, что и у Hugo121 (и полностью отвечает на вопрос в теме)

Hugo121 · 29.03.2011, 15:28

Нет, Игорь, у меня на выходе Name, у тебя FullName.
Мой вариант требует в конце ParentFolder.Path - тогда результат был бы одинаков

И вот к FullName уже можно лепить дальнейший путь.

IgorGO · 29.03.2011, 15:39

Hugo121, согласен, но мне, с моим уровнем компетенции - такие мелочи позволительны...
полный путь, не полный путь - это ерунда, главное - чтобы он не расходился с путем выбранным партией и правительством!

Magnetic Air · 30.03.2011, 01:17

IgorGO, Hugo121 спасибо.
решение найдено:

Код:

Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.ParentFolder.ParentFolder.ParentFolder & "\продажи\ДЗ\ДЗ_2011.xls"

но оно рождалось в муках....

29.03.2011, 15:04	#21
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Имхо первоначальный посыл лучше бы был таким: Код: `MsgBox CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.ParentFolder.Name` Так ошибки у меня нет, есть результат. webmoney: E265281470651 Z422237915069 R418926282008

29.03.2011, 15:20	#22
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	чтобы не оказаться в злостных плагиаторах: Код: `MsgBox Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - InStr(StrReverse(ThisWorkbook.Path), Application.PathSeparator))` на выходе должно быть то же, что и у Hugo121 (и полностью отвечает на вопрос в теме) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

29.03.2011, 15:28	#23
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Нет, Игорь, у меня на выходе Name, у тебя FullName. Мой вариант требует в конце ParentFolder.Path - тогда результат был бы одинаков И вот к FullName уже можно лепить дальнейший путь. webmoney: E265281470651 Z422237915069 R418926282008

29.03.2011, 15:39	#24
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Hugo121, согласен, но мне, с моим уровнем компетенции - такие мелочи позволительны... полный путь, не полный путь - это ерунда, главное - чтобы он не расходился с путем выбранным партией и правительством! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

30.03.2011, 01:17	#25
Magnetic Air Пользователь Регистрация: 28.01.2011 Сообщений: 29	IgorGO, Hugo121 спасибо. решение найдено: Код: `Workbooks.Open CreateObject("Scripting.FileSystemObject").GetFile(ThisWorkbook.FullName).ParentFolder.ParentFolder.ParentFolder.ParentFolder & "\продажи\ДЗ\ДЗ_2011.xls"` но оно рождалось в муках....

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Путь к файлу.	Sniperok	Общие вопросы по Java, Java SE, Kotlin	2	12.08.2010 04:46
путь к файлу	vedro-compota	Общие вопросы по программированию, компьютерный форум	2	14.04.2010 13:47
Путь к файлу	Belokuraya	Microsoft Office Excel	17	12.08.2009 17:30
Путь к файлу	artemavd	Общие вопросы Delphi	12	24.03.2009 14:09
Путь к файлу	Slash	Общие вопросы Delphi	3	27.11.2008 14:02