Vba excel полное имя файла - Word и Excel - помощь в работе с программами

‘[/vba]
‘ Keep It Simple
‘ .. why use FileSystemObject or Split when Left and Mid will do it
‘ the FSO has some 33 Subs or Functions
that have to be loaded each time it is created.
‘ and needs the file to exist … yet is only a bit slower

… under twice time.. some good code in FSO
‘ conservation is good .. spare a few electrons. ????… save a few millionths of a sec

‘Also
‘ .. why the format of a function that we all seem to use like
‘
‘ .. Function GetAStr(x) as string

‘ dim extraStr as string

‘ a lot of work with extraStr..
‘ that could have been done with the string variable GetAStr
already created by the function

‘ then .. GetAStr=extraStr to put it in its right place
‘ .. End Function

Function GetNameL1$(FilePath$, Optional NLess& = 1)

‘ default Nless=1 => name only
‘ NLess =2 => xcopya.xls xcopyb.xls xcopy7.xlsm all as xcopy to get find latest version
‘ Nless = — 4 or less => name with name.ext worka.xlsm

GetNameL1 = Mid(FilePath, InStrRev(FilePath, «») + 1)

GetNameL1 = Left(GetNameL1, InStrRev(GetNameL1, «.») — NLess)

End Function

Function LastFold$(FilePath$)

LastFold = Left(FilePath, InStrRev(FilePath, «») — 1)

LastFold = Mid(LastFold, InStrRev(LastFold, «») + 1)

End Function

Function LastFoldSA$(FilePath$)

Dim SA$(): SA = Split(FilePath, «»)

LastFoldSA = SA(UBound(SA) — 1)

End Function

[<vba]

Источник

Say, I’m writing a VBA inside my excel file sample.xls. Now I want to get the full path of sample.xls in my VBA. How do I do it?

asked Dec 13, 2009 at 5:12

If you mean VBA, then you can use FullName, for example:

strFileFullName = ThisWorkbook.FullName

(updated as considered by the comments: the former used ActiveWorkbook.FullName could more likely be wrong, if other office files may be open(ed) and active. But in case you stored the macro in another file, as mentioned by user @user7296559 here, and really want the file name of the macro-using file, ActiveWorkbook could be the correct choice, if it is guaranteed to be active at execution time.)

answered Dec 13, 2009 at 9:57

FionnualaFionnuala

90.1k7 gold badges110 silver badges148 bronze badges

this is a simple alternative that gives all responses, Fullname, Path, filename.

Dim FilePath, FileOnly, PathOnly As String

FilePath = ThisWorkbook.FullName
FileOnly = ThisWorkbook.Name
PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))

answered Mar 13, 2017 at 9:44

APWAPW

2913 silver badges3 bronze badges

   strScriptFullname = WScript.ScriptFullName 
   strScriptPath = Left(strScriptFullname, InStrRev(strScriptFullname,""))

answered Dec 13, 2009 at 5:18

Mitch WheatMitch Wheat

294k43 gold badges465 silver badges540 bronze badges

If you need path only this is the most straightforward way:

PathOnly = ThisWorkbook.Path

lucascaro

15.9k3 gold badges37 silver badges47 bronze badges

answered Oct 27, 2018 at 5:39

LouisLouis

392 bronze badges

if you need path only without file name:

ActiveWorkbook.Path

it would return D:Folder

if you need file path with file name also:

ActiveWorkbook.FullName

it would return D:Foldersample.xls

if you need file name only:

ActiveWorkbook.Name

it would return sample.xls

so if you want combine file path and file name to get full directory don’t forget to add «» between. otherwise its simpler using .Path

Reeno

5,69911 gold badges39 silver badges50 bronze badges

answered Mar 17, 2021 at 4:17

ActiveWorkbook.FullName would be better I think, in case you have the VBA Macro stored in another Excel Workbook, but you want to get the details of the Excel you are editing, not where the Macro resides.

If they reside in the same file, then it does not matter, but if they are in different files, and you want the file where the Data is rather than where the Macro is, then ActiveWorkbook is the one to go for, because it deals with both scenarios.

Emil

7,20117 gold badges77 silver badges134 bronze badges

answered Dec 14, 2016 at 12:41

There is a universal way to get this:

Function FileName() As String
    FileName = Mid(Application.Caption, 1, InStrRev(Application.Caption, "-") - 2)
End Function

answered May 15, 2018 at 16:46

Источник

Mojakhed

0 / 0 / 0

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

Сообщений: 13

Как получить путь к файлу и имя этого файла в переменные

23.10.2012, 11:58. Показов 89713. Ответов 22

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

Добрый день,

Задача проста, есть решение, но оно не изящное, хотелось бы оптимизировать код. Все делается в VBA Excel 2010.
Необходимо выбирая случайный фаил получать полный путь к этому файлу, а так же его имя в отдельные переменные. У меня это получилось сделать только в 2 этапа, т.е 2 раза выводя диалоговое окно. Хотелось бы это делать за 1 диалог.

1. Получаем Имя файла

Visual Basic

Set fs = CreateObject("Scripting.FileSystemObject")
fName = Application.GetOpenFilename
s = fs.GetFileName(fName)
MsgBox s, vbInformation + vbOKOnly

2. Получаем Путь к файлу (код не мой, помог Гугл)

Visual Basic

Function GetFolderPath(Optional ByVal Title As String = "Select Folder", _
                       Optional ByVal InitialPath As String = "c:") As String
   Dim PS As String: PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
        .ButtonName = "Select": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        GetFolderPath = .SelectedItems(1)
        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function
 
Path = GetFolderPath
MsgBox Path, vbInformation + vbOKOnly

Заранее спасибо

Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782	23.10.2012, 11:58
22

Казанский

15136 / 6410 / 1730

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

Сообщений: 9,999

23.10.2012, 12:17

fName в первом коде — полный путь к файлу. Вы хотите разделить его на путь к папке и имя?
Это можно сделать так:

Visual Basic

FullPath = Application.GetOpenFilename
i = InStrRev(FullPath, "") 'позиция последнего 
Name = Mid(FullPath, i + 1)
Folder = Left(FullPath, i - 1)
MsgBox FullPath & vbLf & Name & vbLf & Folder

0 / 0 / 0

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

Сообщений: 13

23.10.2012, 15:18

[ТС]

Благодарю, вопрос исчерпан.

Hugo121

6875 / 2807 / 533

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

Сообщений: 8,562

23.10.2012, 17:30

Так попробуйте в первом коде:

Visual Basic

1	MsgBox fName & vbNewLine & s, vbInformation + vbOKOnly

Получите «полный путь к этому файлу, а так же его имя в отдельные переменные».

0 / 0 / 0

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

Сообщений: 13

23.10.2012, 19:14

[ТС]

To Hugo121

Наверное я не достаточно четко сформулировал задачу, в любом случае, Казанский помог с решением проблемы. Я получил что хотел.
Под полным путем подразумевалось путь до файла без его имени, т.е «C:temp» в одну переменную и имя файла «asd.txt» в другую переменную.

В следующий раз буду четко формулировать. Спасибо.

Hugo121

6875 / 2807 / 533

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

Сообщений: 8,562

23.10.2012, 20:55

Ну когда есть полный путь и имя — легко от полного пути отрезать на длину имени…

Visual Basic

Sub tt()
    Set fs = CreateObject("Scripting.FileSystemObject")
    fname = Application.GetOpenFilename
    s = fs.GetFileName(fname)
    ss = Left(fname, Len(fname) - Len(s))
    MsgBox fname & vbLf & ss & vbLf & s, vbInformation, vbOKOnly
End Sub

rattrapper

foo();

886 / 587 / 222

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

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

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

09.07.2013, 16:29

нужна помощь, у меня код не работает(exel’13)
нашел отличный faq по добавлению модулей,

Сообщение от Dragokas

Импорт модуля проекта из файла

Visual Basic

1	ИмяПроекта.VBProject.VBComponents.Import *"Путь и ИмяФайла"

у меня нужные модули находятся в том же месте, что и книга, но я никак не могу получить полный путь к книге программно!
GetOpenFilename — в любом случае вызывает окно выбора файла
еще пробовал HKEY_CURRENT_USERDesktop — выдает ошибку
мой код:

Visual Basic

Sub AddMacro()
With ThisWorkbook.VBProject.VBComponents
    .Import "путь к книге???"  Module1.bas
    .Import "путь к книге???"  mw2.frm
End With
End Sub

Добавлено через 36 минут

Сообщение от rattrapper

никак не могу получить полный путь к книге программно

как же все просто)
кому нужно thisworkbook.path

ExpressFX

2 / 2 / 0

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

Сообщений: 1

24.01.2016, 18:54

Пути к файлу и имя файла — просто как 2+2 !

Visual Basic

Sub ShowPathAndName()
    Dim FullName$, Filename$, FilePath$
    FullName = "C:Worktest.txt"
    Filename = Dir(FullName) ' Сработает только если файл по указанному пути реально существует
    FilePath = Left(FullName, Len(FullName) - Len(Filename))
    MsgBox "Путь к файлу - " & FilePath & vbCrLf & "Имя файла - " & Filename
End Sub

Выйдет сообщение:
Путь к файлу — C:Work
Имя файла — test.txt
Просто и не нужно извращаться!

4 / 4 / 0

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

Сообщений: 17

29.01.2016, 13:41

ActiveWindow.Caption возвращает имя открытого окна, т.е. имя файла без расширения.

Казанский

15136 / 6410 / 1730

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

Сообщений: 9,999

29.01.2016, 15:20

Федоров, …если заголовок окна не поменяли

Visual Basic

1	activewindow.Caption="Федоров"

0 / 0 / 0

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

Сообщений: 4

18.03.2016, 14:08

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

Hugo121

6875 / 2807 / 533

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

Сообщений: 8,562

18.03.2016, 14:19

Вместо Msgbox пишите

Visual Basic

[A1]=

— получите вместо сообщения строку в ячейке.

0 / 0 / 0

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

Сообщений: 4

18.03.2016, 15:24

благодарю, то что надо

Добавлено через 1 минуту
есть файл эксель в котором происходят вычисления и есть файлы эксель в которых данные для этих вычислений. по кнопке в первом файле происходит вышеописанный скрипт, в ячейке получаю путь до файла и уже в нужные ячейки подставляются данные из полученного файла. вопрос: если по нажатию кнопки подставить другой файл с данными, то сразу он не обновляет данные, обновить если нажать «данные» — «источник связи» — здесь указать источник — «обновить», тогда выдается запрос на нужный файл и данные обновляются. можно ли автоматизировать это обновление?

6875 / 2807 / 533

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

Сообщений: 8,562

18.03.2016, 16:12

Используете ДВССЫЛ()? Она не в всех формулах работает. Если всё равно используете макрос — так сразу и формируйте макросом полностью формулы, или вообще делайте всю работу макросом.

0 / 0 / 0

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

Сообщений: 4

21.03.2016, 07:20

ДВССЫЛ не успользую, а в макросах не силен совсем.
вот формула =[AW104]Данные!$B$18, по которой подтягиваются данные из внешних источников, а ячейка AW104 получает полный путь файла источника по вышеприведенному макросу.

Hugo121

6875 / 2807 / 533

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

Сообщений: 8,562

21.03.2016, 09:22

Попробуйте после замены файла

Visual Basic

1	ActiveWorkbook.RefreshAll

или

Visual Basic

Calculate

0 / 0 / 0

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

Сообщений: 4

21.03.2016, 11:04

нет, не работает ни в теле первого макроса, ни с отдельной кнопки((
может быть подскажите другое решение? мне пришло только озвученное выше: есть файл калькуляции в эксель и есть файлы эксель с данными клиентов. имена файлов с данными клиентов разные и в разных местах. нужно чтобы данные клиентов подтягивались в файл калькуляции с минимальными телодвижениями юзверей.

6875 / 2807 / 533

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

Сообщений: 8,562

21.03.2016, 11:30

Попробуйте так — копируете любой файл клиента под именем например шаблон.xls, настраиваете все нужные формулы на импорт из этого файла.
Сохраняете файл, ставите ему «только для чтения».
Удаляете шаблон.xls.
Юзер открывает файл с формулами, в диалоге обновления связей указывает файл нужного клиента. Посмотрел, если нужно сохранить — сохранил с любым другим именем.
Но можно конечно всё делать макросом — юзер жмёт кнопку, указывает файл, смотрит данные. Вообще всё без формул.

Ivan_Ivanovich

0 / 0 / 0

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

Сообщений: 29

14.04.2016, 09:59

Здравствуйте, а подскажите пожалуйста как сделать так, чтобы можно было просто выбирать файл через диалоговое окно, не указывая при этом путь к файлу и само название файла. Нужно, чтобы была возможность выбрать любой файл на компьютере .xlsx и далее с ним работать (импортировать из него).
При помощи данного кода открывается диалоговое окно, можно выбрать файл, но он как я понимаю не выбирается (не используется в дальнейшем как нужно мне). Я данный код превратил в комментарии и ничего не поменялось в работе.

PureBasic

Private Sub SelectStudent_Click()
 
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
   .Title = "Select file"
   .InitialFileName = "C:BD" 'default path Путь по умолчанию
   .AllowMultiSelect = False
   .Filters.Clear
   .Filters.Add "MS Excel", "*.xlsx", 1
result = .Show
 
If result = 0 Then Exit Sub
FName = Trim(.SelectedItems.Item(1))
End With

А вот продолжение кода в форме, при помощи которого 100% идет выбор файла (только автоматически, по прописанному пути и файлу, а нужно, чтобы можно было любой файл выбрать, чтобы не был заранее прописан код для файла) и уже выполнялась работа с ним.

PureBasic

Dim app As Object, wrk As Object
Dim rst As dao.Recordset
 
Set rst = CurrentDb.OpenRecordset("select * from Marks")
Set app = CreateObject("excel.application")
Set wrk = app.workbooks.Open("C:BDsample.xlsx")
 
rst.AddNew
 
rst![mrk_id] = Nz(DMax("mrk_id", "Marks"), 0) + 1
rst![Module] = Modul(app.range("A14"))
rst![Hours] = app.range("C15")
 
 
rst.Update
app.Quit
 
End Sub

6875 / 2807 / 533

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

Сообщений: 8,562

14.04.2016, 10:04

Т.е. не пробовали то, что я предлагаю?

Источник

albert123

Пользователь

Сообщений: 16
Регистрация: 18.10.2019

Доброго дня. Раньше встречались такие решения, тогда еще не было надобности, а сейчас хотел сделать но не мог найти пример.

И так. Имеется файл по адресу D:Рабочий стол201912_ДЕКАБРЬфайл1.xlsb
Хотелось бы использовать в макросе имена для вставки в ячейки:

имя файла без расширения и цифр т.е. файл (цифры могут быть разные, от 1го до 50)
название папки без левых цифр и нижней и черточки т.е. ДЕКАБРЬ . Знаю что имя папки можно писать как Dir(ThisWorkbook.Path, vbDirectory) но как видите не умею убирать лишних символов
название папки, выше папки 12_ДЕКАБРЬ т.е. 2019

Эх если бы нашел ответ на свое решение то вас бы не потревожил.

Изменено: albert123 — 16.12.2019 20:06:19

Alemox

Пользователь

Сообщений: 2183
Регистрация: 25.02.2013

16.12.2019 20:16:39

Имя файла без расширения:

Код
CreateObject("Scripting.FileSystemObject").GetBaseName("C:UsersUserDownloads123.xlsm")

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.

albert123 Пользователь Сообщений: 16 Регистрация: 18.10.2019	Alemox,а обязательно надо будет писать адреса? просто там файлов в среднем 50, каждому прописывать, замучаюсь

Юрий М

Модератор

Сообщений: 60575
Регистрация: 14.09.2012

Контакты см. в профиле

16.12.2019 20:25:34

А так?

Цитата
albert123 написал: не мог найти пример.

так

БМВ

Модератор

Сообщений: 21378
Регистрация: 28.12.2016

Excel 2013, 2016

16.12.2019 20:29:38

Цитата
albert123 написал: файла без расширения и цифр т.е. файл (цифры могут быть разные, от 1го до 50)

Код
Debug.Print Left(File.Name, InStrRev(File.Name, ".") - 1)

Цитата
albert123 написал: название папки без левых цифр и нижней и черточки т.е. ДЕКАБРЬ

Код
Debug.Print Mid(ThisWorkbook.Path, InStr(ThisWorkbook.Path, "_") + 1)

Цитата
albert123 написал: название папки, выше папки 12_ДЕКАБРЬ т.е. 2019

Код
a = Split(ThisWorkbook.Path, "") Debug.Print a(UBound(a) - 1)

Цитата
Alemox написал: CreateObject(«Scripting.FileSystemObject»).

ну если гранатомет расчехлять то
Родительская папка

Код
CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).parentFolder.Name

Изменено: БМВ — 16.12.2019 20:37:38

По вопросам из тем форума, личку не читаю.

Ігор Гончаренко

Пользователь

Сообщений: 13746
Регистрация: 01.01.1970

16.12.2019 20:36:42

Выполните Test

Код

Function FileNm$(fn$)
  Dim p, i&
  p = Split(fn, ""):  FileNm = p(UBound(p))
  i = InStrRev(FileNm, "."):  FileNm = Left(FileNm, i - 1)
  Do While Right(FileNm, 1) >= "0" And Right(FileNm, 1) <= "9"
    FileNm = Left(FileNm, Len(FileNm) - 1)
  Loop
End Function

Function FileFold$(fn$)
  Dim p, i&
  p = Split(fn, ""):  FileFold = p(UBound(p) - 1)
  i = InStrRev(FileFold, "_"):  FileFold = Right(FileFold, Len(FileFold) - i)
End Function

Function FileFold2$(fn$)
  Dim p, i&
  p = Split(fn, ""):  FileFold2 = p(UBound(p) - 2)
End Function

Sub Test()
  Const f$ = "D:Рабочий стол201912_ДЕКАБРЬфайл1.xlsb"
  MsgBox "Имя файла: <" & FileNm(f) & ">" & vbLf & "Папка1: <" _
  & FileFold(f) & ">" & vbLf & "Папка2: <" & FileFold2(f) & ">"
End Sub

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

albert123 Пользователь Сообщений: 16 Регистрация: 18.10.2019	#7 16.12.2019 20:57:34 Спасибо вам большое

Источник

Return to VBA Code Examples

This short tutorial will demonstrate how to use the GetFileName method of the FileSystemObject.

Get File Name with VBA FileSystemObject

This lesson uses the FileSystemObject. In order to use it, you will need to set a reference to the VB script run-time library.

For getting the file name from any path, you can use:

Sub FSOGetFileName()
    Dim FileName As String
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject") 

    'Get File Name
    FileName = FSO.GetFileName("C:ExamplePathExampleFile.txt")
    
    'Get File Name no Extension
    FileNameWOExt = Left(FileName, InStr(FileName, ".") - 1)

End Sub

FileName variable will then hold the value of “ExampleFile.txt”, FileNameWOExt variable will be without the extension “ExampleFile”.

Get File Name Without Extension

As noted above, to get the file name without extension use this line of code:

FileNameWOExt = Left(FileName, InStr(FileName, ".") - 1)

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More!

Источник