|
KonstantinK Пользователь Сообщений: 53 |
#1 28.01.2019 10:16:12 Доброго времени суток! Мне нужно файл .xltm при вызове диалогового окна «Сохранить как» сохранить в текущей папке.Сразу скажу, что те ответы и примеры, которые есть на форуме мне не подходят. Также те примеры, что находил в сети тоже мимо. Дело в том, что есть много разных вариантов vba текстов вполне рабочих, но все они ориентированы на обычные excel файлы, а моём случае это файл шаблона с поддержкой макросов. Что я ни пробовал, всё равно для сохранения открывается системная папка «Документы». Есть подозрение, что нужно искать обходной манёвр.
Кнопка —>»Рабочая вкладка» —> «Сохранить как» Спасибо. Прикрепленные файлы
Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||
|
RAN  Пользователь Сообщений: 7091 |
#2 28.01.2019 10:38:55
к коим относится и файл xltm. |
||
|
не относится, т.к. один и тот же код в фале .xlm сохраняет в текущюю директорию, а в моём случае (.xltm — шаблон с поддержкой макросов) открывается папка «Документы» — ВСЕГДА!!! Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
|
|
БМВ  Модератор Сообщений: 21385 Excel 2013, 2016 |
Puth все ж Path, но не суть, У меня код пытается записать в текущую папку. По вопросам из тем форума, личку не читаю. |
|
KonstantinK Пользователь Сообщений: 53 |
#5 28.01.2019 18:33:33 Я пробовал на разных компьютерах и в разных папках. Результат тот же — системная «Документы»
Тоже — системная папка «Документы» Изменено: KonstantinK — 28.01.2019 23:15:37 Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||
|
Anchoret  Пользователь Сообщений: 1061 Anchoret |
#6 28.01.2019 18:33:44 Макрос где живет? В том файле, который сохраняете? Нужна его-же папка? Если да на все вопросы,то:
Изменено: Anchoret — 28.01.2019 18:36:50 |
||
|
KonstantinK Пользователь Сообщений: 53 |
#7 28.01.2019 18:44:40 Проверил все варианты результат —> системная папка Документы
Макрос живёт в файле шаблона .xltm (исходный файл) Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||
|
Дмитрий(The_Prist) Щербаков  Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#8 28.01.2019 19:03:30
для начала надо понять что есть текущая папка. Вы вот что под этим подразумеваете? Это какая папка вообще? Вдруг это и есть всегда Документы? Поясните какая папка по Вашему текущая — тогда можно что-то придумать. Иначе — нет.
это пример для активной книги. А уж какая директория нужна Вам — смотрите сами(то ли папка с шаблоном, то ли папка с чем-то еще….) Изменено: Дмитрий(The_Prist) Щербаков — 28.01.2019 19:07:22 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||
|
KonstantinK Пользователь Сообщений: 53 |
#9 28.01.2019 19:10:42 Да это любая папка.
при выполнении его командой макрос-выполнить показывает конечный каталог —> «» Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#10 28.01.2019 19:12:20
ну вот и как помогать? Чем тогда Документы не подходит? Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
Она ведь тоже «любая» |
KonstantinK Пользователь Сообщений: 53 |
#11 28.01.2019 19:27:22
Потому что Документы — это системная папка. Сам файл хранится у меня в одном месте у другого человека в своём месте. Каму где удобно. Но только не в системной «Документы»
Выше вариантов НЕТ что бы конструкция Application.Dialogs(xlDialogSaveAs).Show (вызов диалогового окна «Сохранить как») решала мою проблему. Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||||
|
Текущая папка для файла-шаблона всегда будет «Мои документы». А вот папку, куда нужно сохранить ваш файл *.xlsm нужно будет указать через диалоговое окно выбора папки. |
|
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#13 28.01.2019 19:38:15
правда? А у меня работает предложенная мной конструкция(ChDrive и ChDir). При этом в любых пк и для любых диалоговых окон. единственное, что необходимо — знать конкретную папку и указать её коду. И пока Вы не определитесь какая нужна Вам(то ли папка с активной книгой, то ли папка с шаблоном, то ли еще какая) — код тем более не поймет. Он мысли читать не умеет, ему все показывать надо, а не заставлять додумывать.
в большинстве случаев да. Но выше я показал НЕ ЧЕРЕЗ аргументы. Вы хоть пробовали? Изменено: Дмитрий(The_Prist) Щербаков — 28.01.2019 19:42:09 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||
|
БМВ Модератор Сообщений: 21385 Excel 2013, 2016 |
#14 28.01.2019 19:43:07
по тому что при открытии шаблона, путь отсутствует. Сделано это чтоб шаблон не переписали случайно. А при отсутствии пути путь для документов — это %USERPROFILE%Documents. И это право пользователя выбрать нужную папку. По вопросам из тем форума, личку не читаю. |
||
|
KonstantinK Пользователь Сообщений: 53 |
#15 28.01.2019 20:23:00
Да пробовал, вот результат: на ChDir ActiveWorkbook.Path ругается «path not found»
если я правильно понимаю то слова Puth в английском нет вообще — и мой косяк орфографическая ошибка и … Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||||
|
БМВ Модератор Сообщений: 21385 Excel 2013, 2016 |
#16 28.01.2019 20:31:03
#4
Изменено: БМВ — 28.01.2019 23:17:05 По вопросам из тем форума, личку не читаю. |
||||
|
Андрей VG  Пользователь Сообщений: 11878 Excel 2016, 365 |
#17 28.01.2019 20:33:16
Странно было бы, если бы не ругался. Активная книга только что создана по шаблону и ни разу не сохранялась.
Как определить это своё место, каков критерий?
|
||||||
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#18 28.01.2019 20:35:17
И Андрей уже рассказал почему. Изменено: Дмитрий(The_Prist) Щербаков — 28.01.2019 20:37:30 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
|
Андрей VG Пользователь Сообщений: 11878 Excel 2016, 365 |
#19 28.01.2019 20:45:36
Добрый вечер, Дмитрий. Полагаю, что лучше будет, чтобы пользователь, как честный человек, указал бы в настройках «Расположение локальных файлов по умолчанию» для того самого своего места. Тогда без проблем его можно было бы получить через Application.DefaultFilePath. Но все считают, что век искусственного интеллекта уже наступил, и что то самое своё место, это там, куда пользователь чаще всего что-то сохраняет. Чтобы Excel сам определял такое место, ну, или, как это сделано в других программах, указывал бы место последнего сохранённого файла Изменено: Андрей VG — 28.01.2019 20:48:23 |
||
|
БМВ Модератор Сообщений: 21385 Excel 2013, 2016 |
#20 28.01.2019 20:48:23
Вот щас обидно!
А Андрей рассказал KonstantinK, Единственный вариант, который поможет понять откель загружен шаблон, это хранить путь к шаблону, где либо, например в тут А вот как путь будет туда попадать — это уже другая история. По вопросам из тем форума, личку не читаю. |
||||
|
Андрей VG Пользователь Сообщений: 11878 Excel 2016, 365 |
#21 28.01.2019 20:51:02 Offtop
Кто бы его явно открывал? Его просто использовали для размножения клонированием |
||
|
sokol92  Пользователь Сообщений: 4445 |
Здравствуйте, коллеги! Сплошная экзотика в этой теме. |
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#23 28.01.2019 20:55:29
Ну, про Path это не моё Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||
|
Ігор Гончаренко  Пользователь Сообщений: 13746 |
#24 28.01.2019 20:59:31
господа, а что автор вкладывает в понятие текущая папка, кто-нибудь знает куда он собрался сохранить свой шаблон? Изменено: Ігор Гончаренко — 28.01.2019 21:02:43 Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете! |
||
|
БМВ Модератор Сообщений: 21385 Excel 2013, 2016 |
Ігор Гончаренко, ну я так понимаю, что имелась в виду родительская папка шаблона, хотя по существу текущая это последняя, с которой работали. По вопросам из тем форума, личку не читаю. |
|
KonstantinK Пользователь Сообщений: 53 |
#26 28.01.2019 21:05:51
Критерий простой текущая папка — папка где лежит шаблон. Константы нет. Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||
|
Андрей VG Пользователь Сообщений: 11878 Excel 2016, 365 |
#27 28.01.2019 21:10:52
Чудненько. Следующий шаг — как ваш код определяет, где лежит этот самый шаблон? |
||
|
Ігор Гончаренко Пользователь Сообщений: 13746 |
#28 28.01.2019 21:18:49
Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете! |
||
|
Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Профессиональная разработка приложений для MS Office |
#29 28.01.2019 21:26:58
можно. Но Вам для начала надо понять КАКУЮ. Если его расположение дефолтное — то можно определить так:
Если же нет — то тут засада. Не помню, чтобы где-то в Excel или в самой книге это хранилось. Надо искать. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы… |
||||
|
KonstantinK Пользователь Сообщений: 53 |
#30 28.01.2019 21:35:53
Ни как. Я не программист. Пробовал разные варианты с форумов. Все рабочие, но не для шаблона. Если я правильно понимаю, то любой файл Excel (с соответствующим расширением которое знает Windows ) открывается оболочкой Microsoft Office, установленной на компьютере. Затем эта оболочка открывает архив — файл Excel в котором находится вся информация с данными, форматирование, картинками, музыкой и т.д. Т.е. Windows — Microsoft Office Excel — архив/шаблон. Так вот оболочка понимает где лежит мой шаблон/архив. Значит можно определить как-то и нам? Или я что-то понимаю не правильно. Кто хочет — ищет способы, кто не хочет — причины (Сократ) |
||
I have a macro-enabled WorkBook. I need to specify the current folder in which the macro-enabled file is present as the path. I tried setting
path = ActiveWorkbook.Path
and
path = CurDir()
but neither of these work for me. Any idea on this?
ashleedawg
20k8 gold badges73 silver badges104 bronze badges
asked Apr 18, 2012 at 18:27
9
If the path you want is the one to the workbook running the macro, and that workbook has been saved, then
ThisWorkbook.Path
is what you would use.
answered Apr 18, 2012 at 19:04
Tim WilliamsTim Williams
150k8 gold badges96 silver badges124 bronze badges
0
I thought I had misunderstood but I was right. In this scenario, it will be ActiveWorkbook.Path
But the main issue was not here. The problem was with these 2 lines of code
strFile = Dir(strPath & "*.csv")
Which should have written as
strFile = Dir(strPath & "*.csv")
and
With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _
Which should have written as
With .QueryTables.Add(Connection:="TEXT;" & strPath & "" & strFile, _
answered Apr 18, 2012 at 20:14
Siddharth RoutSiddharth Rout
146k17 gold badges206 silver badges250 bronze badges
12th
Апр
Posted by Chas under Basic
Мне в VBA Excel нужно перебрать файлы в текущей директории, в моем случае — C:Victory.
Я использую функцию CurDir, но она мне выдает — C:Documents and SettingsAdminМои документы.
Как мне правильно определить текущую директорию? Помогите пожалуйста!
VictorM
iPath = ThisWorkbook.Path
iPath = ActiveWorkbook.Path
iExcel = Application.Path В первом примере указан путь к файлу, где содержится сама программа, которая в настоящий момент выполняет код VBA.
Во втором примере указан путь к активному файлу.
В третьем примере указан путь к папке, в которой установлен MS Excel. При наличии у Вас нескольких версий, укажет путь к версии, в которой Вы работаете в данный момент.
тема на форуме
Похожие статьи
- Как макросом брать данные с word документов в excel?
- Как сделать, чтобы заполненные ячейки в excel считались с условием?
- Создание выпадающего списка средствами VBA
- Как в операторе автофильтра указать, что выбираются выбираются все значения, кроме нуля?
- Примечание в ячейки листа со значением из другой ячейки
- Как сделать, чтобы значение предлагалось ввести пользователю?
- Вывод данных в textbox
- Разделить файл на несколько частей с помощью макроса в excel
- Как скопировать с одного столбца через одну строку в другой столбец данные
- Срабатывание разных макросов при изменении разных диапазонов на листе
I am using MS Excel 2010 and trying to get the current directory using the below code,
path = ActiveWorkbook.Path
But ActiveWorkbook.Path returns blank.
asked Nov 6, 2013 at 22:26
1
When one opens an Excel document D:dbtmptest1.xlsm:
-
CurDir()returnsC:Users[username]Documents -
ActiveWorkbook.PathreturnsD:dbtmp
So CurDir() has a system default and can be changed.
ActiveWorkbook.Path does not change for the same saved Workbook.
For example, CurDir() changes when you do «File/Save As» command, and select a random directory in the File/Directory selection dialog. Then click on Cancel to skip saving. But CurDir() has already changed to the last selected directory.
[ADD]
Resume VBA for different applications
Access D:dbtmptest1.accdb, like duckboy81 commented:
- CurDir() => C:Users[username]Documents
- Application.CurrentProject.Path => D:dbtmp
Excel D:dbtmptest1.xlsm:
- CurDir() => C:Users[username]Documents
- ActiveWorkbook.Path => D:dbtmp
- Application.DefaultFilePath => C:Users[username]Documents
Outlook:
- CurDir() => C:WINDOWSSystem32
- Application.Session.Stores(1).Filepath => D:programdataOutlookmyOutlookDocX.pst
PowerPoint D:dbtmptest1.ppt:
- CurDir() => C:Users[username]Documents
- ActivePresentation.Path => D:dbtmp
Word D:dbtmptest1.docx:
- CurDir() => C:Users[username]Documents
- Application.ActiveDocument.Path => D:dbtmp
- Application.ActiveDocument.FullName => D:dbtmptest1.docx
- Application.StartupPath => C:users[username]appdataroamingmicrosoftwordstartup
answered Nov 6, 2013 at 22:47
jacouhjacouh
8,3275 gold badges30 silver badges43 bronze badges
3
You have several options depending on what you’re looking for.
Workbook.Path returns the path of a saved workbook. Application.Path returns the path to the Excel executable. CurDir returns the current working path, this probably defaults to your My Documents folder or similar.
You can also use the windows scripting shell object’s .CurrentDirectory property.
Set wshell = CreateObject("WScript.Shell")
Debug.Print wshell.CurrentDirectory
But that should get the same result as just
Debug.Print CurDir
answered Nov 6, 2013 at 22:35
AndASMAndASM
9,0981 gold badge20 silver badges33 bronze badges
It would seem likely that the ActiveWorkbook has not been saved…
Try CurDir() instead.
answered Nov 6, 2013 at 22:35
Monty WildMonty Wild
3,9311 gold badge21 silver badges35 bronze badges
1
Your code: path = ActiveWorkbook.Path
returns blank because you haven’t saved your workbook yet.
To overcome your problem, go back to the Excel sheet, save your sheet, and run your code again.
This time it will not show blank, but will show you the path where it is located (current folder)
I hope that helped.
answered Jun 12, 2016 at 15:09
Use Application.ActiveWorkbook.Path for just the path itself (without the workbook name) or Application.ActiveWorkbook.FullName for the path with the workbook name.
answered Nov 9, 2015 at 8:06
This is the VBA that I use to open the current path in an Explorer window:
Shell Environ("windir") & "explorer.exe """ & CurDir() & "",vbNormalFocus
Microsoft Documentation:
CurDirFunctionEnvironFunctionShellFunction
answered Nov 18, 2018 at 7:55
ashleedawgashleedawg
20k8 gold badges73 silver badges104 bronze badges
If you really mean pure working Directory, this should suit for you.
Solution A:
Dim ParentPath As String: ParentPath = ""
Dim ThisWorkbookPath As String
Dim ThisWorkbookPathParts, Part As Variant
Dim Count, Parts As Long
ThisWorkbookPath = ThisWorkbook.Path
ThisWorkbookPathParts = Split(ThisWorkbookPath, _
Application.PathSeparator)
Parts = UBound(ThisWorkbookPathParts)
Count = 0
For Each Part In ThisWorkbookPathParts
If Count > 0 Then
ParentPath = ParentPath & Part & ""
End If
Count = Count + 1
If Count = Parts Then Exit For
Next
MsgBox "File-Drive = " & ThisWorkbookPathParts _
(LBound(ThisWorkbookPathParts))
MsgBox "Parent-Path = " & ParentPath
But if don’t, this should be enough.
Solution B:
Dim ThisWorkbookPath As String
ThisWorkbookPath = ThisWorkbook.Path
MsgBox "Working-Directory = " & ThisWorkbookPath
answered Nov 27, 2018 at 4:45
NOTSermsakNOTSermsak
3561 gold badge8 silver badges8 bronze badges
Simple Example below:
Sub openPath()
Dim path As String
path = Application.ActivePresentation.path
Shell Environ("windir") & "explorer.exe """ & path & "", vbNormalFocus
End Sub
Amit Verma
8,5408 gold badges34 silver badges40 bronze badges
answered Feb 9, 2021 at 10:46
1
Use these codes and enjoy it.
Public Function GetDirectoryName(ByVal source As String) As String()
Dim fso, oFolder, oSubfolder, oFile, queue As Collection
Set fso = CreateObject("Scripting.FileSystemObject")
Set queue = New Collection
Dim source_file() As String
Dim i As Integer
queue.Add fso.GetFolder(source) 'obviously replace
Do While queue.Count > 0
Set oFolder = queue(1)
queue.Remove 1 'dequeue
'...insert any folder processing code here...
For Each oSubfolder In oFolder.SubFolders
queue.Add oSubfolder 'enqueue
Next oSubfolder
For Each oFile In oFolder.Files
'...insert any file processing code here...
'Debug.Print oFile
i = i + 1
ReDim Preserve source_file(i)
source_file(i) = oFile
Next oFile
Loop
GetDirectoryName = source_file
End Function
And here you can call function:
Sub test()
Dim s
For Each s In GetDirectoryName("C:New folder")
Debug.Print s
Next
End Sub
answered Dec 1, 2014 at 8:44
josefjosef
8449 silver badges8 bronze badges
Открыть папку (каталог) в проводнике Windows для просмотра из кода VBA Excel с помощью функции Shell и ключевых слов explorer и cmd. Передача фокуса открытой папке.
Открытие папки в проводнике
Открытие папки (каталога) в проводнике Windows для просмотра с помощью функции Shell и ключевого слова explorer:
|
Shell «explorer C:UsersPublicТекущая папка», vbNormalFocus |
vbNormalFocus означает, что окно Windows Explorer получает фокус и восстанавливает свое исходное положение и размер.
Преимущество способа: имя папки может содержать пробелы.
Недостаток способа: если открываемая папка уже открыта, открывается второй экземпляр, затем третий и т.д.
То же преимущество и тот же недостаток у следующего способа:
|
ThisWorkbook.FollowHyperlink «C:UsersPublicТекущая папка» |
Открытие или передача фокуса
Открытие папки (каталога) в проводнике Windows для просмотра или передача папке фокуса, если она уже открыта, с помощью функции Shell и ключевого слова cmd:
|
Shell «cmd /C start C:UsersPublic», vbNormalFocus |
При реализации этого способа происходит кратковременное отображение на экране окна командной строки (cmd.exe). Если убрать параметр vbNormalFocus, окно командной строки мелькать не будет, но и окно проводника, при повторном его вызове, не получит фокус.
Преимущество способа: если открываемая папка уже открыта, ей передается фокус, а второй экземпляр этой папки не открывается.
Недостаток способа: имя папки не должно содержать пробелы.
От недостатка этого способа можно избавиться с помощью экранирующих кавычек:
|
Shell «cmd /C start ««»» ««C:UsersPublicТекущая папка»«», vbNormalFocus |
Для себя на заметку, какие кавычки что экранируют:
|
«[cmd /C start ««[неиспользуемый параметр]»» ««[C:UsersPublicТекущая папка]»«]» |
Смотрите как открывать из кода VBA Excel файлы других приложений и интернет-сайты.