Расположение файла excel vba

Объект FileSystemObject

Предоставляет доступ к файловой системе компьютера.

Синтаксис

Scripting.FileSystemObject

Примечания

Приведенный ниже код иллюстрирует использование объекта FileSystemObject для возврата объекта TextStream, который можно читать, и в который можно записать данные.

• Функция CreateObject возвращает объект FileSystemObject ( fs ).
• Метод CreateTextFile создает файл в качестве объекта TextStream ( a ).
• Метод WriteLine записывает строку текста в созданный текстовый файл.
• Метод Close опустошает буфер и закрывает файл.

Методы

Метод	Описание
BuildPath	Добавляет имя в существующий путь.
CopyFile	Копирует один или несколько файлов из одного расположения в другое.
CopyFolder	Копирует одну или несколько папок из одного расположения в другое.
CreateFolder	Создает новую папку.
CreateTextFile	Создает текстовый файл и возвращает объект TextStream, который можно использовать для чтения или записи в файл.
DeleteFile	Удаляет один или несколько указанных файлов.
DeleteFolder	Удаляет одну или несколько указанных папок.
DriveExists	Проверяет, существует ли указанный диск.
FileExists	Проверяет, существует ли указанный файл.
FolderExists	Проверяет, существует ли указанная папка.
GetAbsolutePathName	Возвращает полный путь из корневого каталога диска для указанного пути.
GetBaseName	Возвращает базовое имя указанного файла или папки.
GetDrive	Возвращает объект Drive, соответствующий диску в указанном пути.
GetDriveName	Возвращает имя диска указанного пути.
GetExtensionName	Возвращает имя расширения файла для последнего компонента в указанном пути.
GetFile	Возвращает объект файла для указанного пути.
GetFileName	Возвращает имя файла или папки для последнего компонента в указанном пути.
GetFolder	Возвращает объект Folder для указанного пути.
GetParentFolderName	Возвращает имя родительской папки последнего компонента в указанном пути.
GetSpecialFolder	Возвращает путь к некоторым специальным папкам Windows.
GetTempName	Возвращает созданный случайным образом временный файл или папку.
Move	Перемещает заданный файл или указанную папку из одного места в другое.
MoveFile	Перемещает один или несколько файлов из одного места в другое.
MoveFolder	Перемещает одну или несколько папок из одного места в другое.
OpenAsTextStream	Открывает указанный файл и возвращает объект TextStream, который можно использовать для считывания, записи и дополнения данных в файле.
OpenTextFile	Открывает файл и возвращает объект TextStream, который можно использовать для доступа к файлу.
WriteLine	Записывает заданную строку и символ новой строки в файл TextStream.

Свойства

Свойство	Описание
Drives	Возвращает коллекцию всех объектов Drive на компьютере.
Name	Устанавливает или возвращает имя указанного файла или заданной папки.
Path	Возвращает путь для указанного файла, диска или указанной папки.
Size	Для файлов возвращает размер указанного файла в байтах; для папок возвращает размер всех файлов и вложенных папок в байтах.
Type	Возвращает сведения о типе файла или папки (например, для файлов с расширением .TXT возвращается «Text Document»).

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Функция Dir

Возвращает значение типа String, определяющее имя файла, каталога или папки, которое соответствует указанному шаблону, атрибуту файла либо метке тома диска.

Синтаксис

Dir [ (pathname, [ attributes ] ) ]

Синтаксис функции Dir состоит из следующих элементов.

Часть	Описание
pathname	Необязательный. Строковое выражение, указывающее имя файла; может включать каталог или папку, а также диск. Если файл, указанный параметром pathname, не найден, возвращается строка нулевой длины («»).
attributes	Необязательный. Константа или числовое выражение, определяющее атрибуты файла. Если этот параметр опущен, возвращаются файлы, которые соответствуют параметру pathname, но не имеют атрибутов.

Параметры

Константа	Значение	Описание
vbNormal	0	(По умолчанию.) Определяет файлы без атрибутов.
vbReadOnly	1	В дополнение к файлам без атрибутов определяет файлы, доступные только для чтения.
vbHidden	2	Определяет скрытые файлы, а также файлы без атрибутов.
vbSystem	4	В дополнение к файлам без атрибутов определяет системные файлы. Недоступно в macOS.
vbVolume	8	Определяет метку тома; если указан какой-либо другой атрибут, параметр vbVolume игнорируется. Недоступно в macOS.
vbDirectory	16	В дополнение к файлам без атрибутов определяет каталоги (папки).
vbAlias	64	Указанное имя файла является псевдонимом. Доступно только в macOS.

Эти константы определены в Visual Basic для приложений и могут использоваться в коде вместо фактических значений.

Примечания

В Microsoft Windows и macOS Dir поддерживает использование подстановочных знаков с несколькими символами (*) и одним символом (?) для указания нескольких файлов.

Так как macOS не поддерживает использование подстановочных знаков, для определения группы файлов используйте тип файла. Чтобы вместо имен файлов указать тип файла, воспользуйтесь функцией MacID. Например, следующий оператор возвращает имя первого текстового файла в текущей папке:

Чтобы вывести следующий файл в папке, укажите пустую строку:

Если функция MacID используется с функцией Dir в Microsoft Windows, возникает ошибка.

Любое значение атрибута, превышающее 256, считается значением MacID.

Значение pathname необходимо указать при первом вызове функции Dir, иначе произойдет ошибка. Если задаются атрибуты файла, значение pathname также должно быть указано.

Функция Dir возвращает первое имя файла, соответствующее значению pathname. Для получения дополнительных имен файлов, соответствующих значению pathname, вызовите функцию Dir повторно без аргументов. Если других соответствий найдено не будет, функция Dir возвратит пустую строку («»). После возврата строки нулевой длины в последующих вызовах необходимо указывать значение pathname, иначе произойдет ошибка.

Значение pathname можно изменить без получения всех имен файлов, соответствующих текущему значению pathname. Однако нельзя осуществить рекурсивный вызов функции Dir. С помощью функции Dir с атрибутом vbDirectory невозможно последовательно возвращать подкаталоги.

Так как имена файлов возвращаются в порядке без учета регистра для Windows и с учетом регистра для macOS, их можно сохранить в массиве и затем отсортировать массив.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Daily Dose of Excel

Haphazardly Posted Excel Information and Other Stuff

Get the Path to My Documents in VBA

VBA has an Environ function. To get a list of all the Environ variables you can see, you can use the method at VBA Express. I use the USERPROFILE argument like this

You can also use the Windows API as described at My Documents + Environment Variables

23 thoughts on “ Get the Path to My Documents in VBA ”

One can also look up Excel VBA help for ‘environ’ (w/o the quotes) and get pretty exhaustive information including what I suspect is the “base” code for most examples one finds on various websites.

Your code gives an incorrect answer on my system. It returns “C:Documents and SettingsusernameMy Documents”, but that folder doesn’t exist on this computer. I have the “My Documents” folder on a different drive than the username folder. In fact, I don’t have a folder called “My Documents” anywhere. But, I can click on the “My Documents” folder that is on my desktop and it will show me the same files as if I navigated directly to “D:username”.

I did a quick search for an environment variable that would expose where this desktop folder actually points to, but I came up empty-handed.

Environ is okay for some directory lookups, but to get them all, reliably, you need to use Windows APIs:

Private Declare Function SHGetFolderPath Lib “shfolder.dll” _
Alias “SHGetFolderPathA” _
( ByVal hwndOwner As Long , _
ByVal nFolder As Long , _
ByVal hToken As Long , _
ByVal dwReserved As Long , _
ByVal lpszPath As String ) As Long

Function MyDocumentsDir()
Dim sBuffer As String
sBuffer = Space$(260)
If SHGetFolderPath(&H0, &H5, -1, &H0, sBuffer) = 0 Then
MyDocumentsDir = Left$(sBuffer, lstrlenW(StrPtr(sBuffer)))
End If
End Function

Another way using Wscript:

MsgBox objFolders( “desktop” )
MsgBox objFolders( “allusersdesktop” )
MsgBox objFolders( “sendto” )
MsgBox objFolders( “startmenu” )
MsgBox objFolders( “recent” )
MsgBox objFolders( “favorites” )
MsgBox objFolders( “mydocuments” )
End Function

I had the environ function in my notes for a rainy day, can’t remember why I Googled it in the first place. being in application support where I get to tinker with all sorts of software I’m always interested in finding the ‘joins’ between them. Usually knowing the strengths and capabilities of different scripting languages and software, plus where they can be joined to feed one into the next, gives me the sort of quick and dirty answers I need.

But Dick specifies it as Environ$, why the $? is it purely optional or does it have a modifying effect?

It’s a habit I developed based on that article.

Mike, your code using Wscript correctly identified where the “My Documents” folder on my desktop actually resides on my computer. I’m sure you knew it would! Thank you for that.

I’ve done a couple minor one-off type spreadsheets that relied on nobody doing what I did to my home computer. That’s not optimal and was bound to backfire on me some day. Now I can fix the code.

The other part I like about it is that I can actually read and follow the code. I know I could incorporate that into my projects without wondering why it worked.

Omar:
“I can actually read and follow the code..I know I could incorporate that into my projects without wondering why it worked.”

You know…it’s funny you say that. I recently spent some time gathering some code examples for a class I’m giving and I realized that I often lean toward variations of code that I can read and understand. I’m sure that leaves me doing some things “inefficiently”. But I’m willing to trade some inefficiency for something I can read and explain to others.

I remember Bill Jelen once told me that Aladin Akyurek (a poster on his site) creates the most amazing array formulas to solve most problems. He tells people that if they ever get a formula from Aladin, just copy and paste it into the cell. Don’t worry how it works…it will just work. I can, of course, appreciate the charm of that statement, but I know it would frustrate me on some level to have some formula I don’t fully understand working in my spreadsheet.

I guess I feel the same way about code.

Mike, my lesson is some code (found on the internet from a trustworthy source) that I’m using to add and remove file folders. This particular code won’t remove a folder with a hidden or system file in it. Which means most folders that have had a picture in it that has been viewed using Thumbnails. Since the purpose of these folders is to contain pictures, well you get the idea. I end up copying the list of folders that need removing to a DOS batch file and delete them that way.

Since I don’t understand the code, I don’t know how to modify it, or whether it is even possible to modify it.

I had no idea you could access Wscript from VBA. I will be looking into that possibility to do this task.

I agree with Jon the only reliable way to get the system folders is with the API. Environ can certainly fail (as in not return an expected result) in some systems and WScript might be disabled (it’s also slow while the object is created).

For readability use the conventionally named constants, eg
Const CSIDL_PERSONAL = &H5 ‘ my documents
(ignore any “amp;” that might creep in before the “H”)

Thanks to Mike (Alexander) .. in the environment I’m working in we have roaming profiles and the my documents folder is set to a network folder, yours was the only method that actually picked up the right address so thanks a lot for posting it!

[…] Forums http://www.thecodecage.com/forumz/excel-vba-programming/160189-file-path.html#post579392 Daily Dose of Excel » Blog Archive » Get the Path to My Documents in VBA and here Locating Home My Documents Folder – Excel Help & Excel Macro Help […]

To be sure, the code should probably look like the following (it’s missing an extra “\” &

Источник