Поиск
... строк. Для удобства сделаны гиперссылки к самим договорам.
Договора находятся ... меню: ПКМ - Гиперссылка - выбор пути к файлу
При случайном перемещении реестра и ... возврате обратно ломаются гиперссылки к файлу. Так как пользуются данной ... "*" Then
hl.Address = Replace(hl.Address, oldString, newString)
End ... формуле.
Но в эту формулу путь к файлу необходимо будет прописывать вручную, ... Как бы реализовать кнопку выбора файла в проводнике для функции ГИПЕРССЫЛКА ...
Изменен: 02.02.2018
Читать сообщение на форуме или сайте. ... в некоторых(выделенных) его колонках пути к источнику путем находжения и замены.
Есть ... просходит, если Replacement:="C:\text" вручную указать путь к файлу
более подробно ... в файле.
Помогите, пожалуйтса
Изменен: 28.07.2014
Читать сообщение на форуме или сайте. ... FileDialog(msoFileDialogFilePicker)
.InitialFileName = ActiveWorkbook.Path ' Путь к папке по умочанию, там будет ... Clear
' .Filters.Add Description:="Файлы Microsoft Excel", _
Extensions ... так
ТекстПисьма = тбСодержание.Text
ТекстПисьма = Replace(ТекстПисьма, "##/##/####", Me.ListBox1 ... .List(i, 1))
ТекстПисьма = Replace(ТекстПисьма, "#########", Me.ListBox1 ... надо разобрать в структуре названия файла...
Изменен: 11.07.2017
Читать сообщение на форуме или сайте. ... = Len(Replace(filePathCSV, "\", ""))
'Количество слешей в пути - что ... quot;)
' Позиция последнего слеша в пути к файлу :
Dim NPositionEnd As Long
NPositionEnd ... , NPosition) & "8__________Folder1\" & Replace(Mid(filePathCSV, NPositionEnd + 1), " ... filePathCSV, NPosition) & "4__________Folder2_csv\" & Replace(Mid(filePathCSV, NPositionEnd + 1), " ... filePathCSV, NPosition) & "3__________Folder3_csv\" & Replace(Mid(filePathCSV, NPositionEnd + 1), " ...
Изменен: 30.09.2021
Читать сообщение на форуме или сайте. ... внешние данные "из текстового файла" формата CSV, выполняем ... прямо в первых рядах идёт путь к файлу CSV из которого будут взяты ... деле же, хотелось бы, чтобы путь к файлу он брал из 2-х ... DOSTUP\) и ячейки А2, к которой имя конкретного файла (пример: AM_84257.csv ... разными файлами, у которых, соответственно, будут разные имена и разные пути.
Вот ... quot;).Select
Selection.Replace What:="[", Replacement:="", LookAt ... примеры на тему захвата имён файлов из ячеек, но при ...
Изменен: 13.10.2016
Читать сообщение на форуме или сайте. ... As Boolean 'Заменять весь путь к файлу или только имя
Dim ... Integer 'Начало и конец пути к файлу в коде поля
Dim ... Exit Sub
'Выбор нового файла
With Application.FileDialog(msoFileDialogFilePicker)
... файла", vbYesNo + vbInformation, "Изменение ссылок") = vbYes
NewFileName = Replace ... нужный файл
If ReplaceAllPath Then 'Если нужно заменить весь путь
... нужно заменить только имя файла
FieldCode = Replace(FieldCode, OldFileName, Mid( ...
Изменен: 22.05.2018
Читать сообщение на форуме или сайте. ... = False
.Title = "Выбрать файлы" 'заголовок окна диалога
.Filters ... возможность выбора текстовых файлов
.FilterIndex = 1 'устанавливаем тип файлов по умолчанию - ... = .SelectedItems(lf) 'считываем полный путь к файлу
Documents.Open FileName:=x
Макрос2 ... Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
... "111-11-11"
.Replacement.Text = "222-22-22 ... With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Save
ActiveWindow. ...
Изменен: 17.11.2022
Читать сообщение на форуме или сайте. ... Error Resume Next
'пробуем подключиться к Outlook, если он уже открыт ... учетных записей и нужно подключиться к конкретной(только если Outlook закрыть ... ;G6").Value 'Вложение(полный путь к файлу. Можно заменить значением из ячейки ... или путь - sAttachment = "C:\Temp\Книга1 ... сообщения
'добавляем вложение, если файл по указанному пути существует(dir проверяет это ... In arrAttachments
vOneAttachement = Application.Trim(Replace(vOneAttachement, """" ...
Изменен: 14.11.2021
Читать сообщение на форуме или сайте. ... , 1) aid(yy, 1) = Replace(aid(yy, 1), Chr(160 ... "" ) apr(yy, 1) = Replace(apr(yy, 1), Chr(160 ... .AllowMultiSelect = False .Title = "Выбрать файлы" 'заголовок окна диалога .Filters ... Clear 'очищаем установленные ранее типы файлов .Filters.Add "XML ... , 1 'устанавливаем возможность выбора только файлов Excel .FilterIndex = 1 'устанавливаем тип ... по коллекции выбранных в диалоге файлов For lf = 1 To ... )) = .SelectedItems(lf) 'считываем полный путь к файлу End If Next ShowFileDialog = arr ...
Изменен: 24.01.2023
Читать сообщение на форуме или сайте. ... .Tables(File.Contents("Здесь путь к файлу"), [Implementation=" ... ;12/ИНН - ","",Replacer.ReplaceText,{"Column1"}),
... В РУБЛЯХ")),
#"Replaced Value2" = Table.ReplaceValue(#" ... ;,"","COMMISSION",Replacer.ReplaceValue,{"Column1"}),
#& ... валютный счет","",Replacer.ReplaceText,{"Column1"}),
#& ... Rows10" = Table.SelectRows(#"Replaced Value1", each true),
...
Изменен: 24.11.2021
Читать сообщение на форуме или сайте. ... ' перебираем все элементы коллекции, содержащей пути к файлам
ПутьКФайлу = coll(i)
ИмяФайла ... 'отбираем нужную часть
ИмяФайлаShort = Replace(ИмяФайлаShort, "_", ... 'заменяем (. на пусто
znacenie = Replace(znacenie, ")", "& ... 'отбираем нужную часть
ИмяФайлаShort = Replace(ИмяФайлаShort, "_", ... 'заменяем (. на пусто
znacenie = Replace(znacenie, ")", "& ...
Изменен: 17.08.2011
Читать сообщение на форуме или сайте. ... , в котором должен храниться путь для сохранения копий файла
Dim sSuff$: sSuff ...
Title:="Сохранение копии файла") 'задать путь сохранения и имя копии ... , если "Сохранить" - полный путь к файлу вместе с его именем
If ... , "\")) ' путь к папке сохранения копий без имени файла
.Names(sPath_in_Names).Value ... файлов Windows
Dim i%
For i = 1 To Len(sUnLegalChr)
sFileName = Replace ...
Изменен: 16.04.2015
Читать сообщение на форуме или сайте. ... группе в ВК из файла EXCEL. Пишу самостоятельно, с ... пишет следующее:"Передайте файл на адрес upload_url, полученный ... и включить в него файл.
Читаю информацию уже второй ... XMLHTTP
Dim strFilePath As String 'Путь к файлу
'Путь к файлу, который необходимо загрузить
strFilePath = ... Replace(strPhotoServer, "\", "")
'========================================================
' Здесь должен быть код отправки файла ... вашу помощь! Помогите отправить файл, а там я уже ...
Изменен: 15.08.2018
Читать сообщение на форуме или сайте. ... FileSystemObject").GetFileName(vLink), NewName:=Replace(vLink, form1, form2), ... = True
.Title = "Выбрать файлы" 'заголовок окна диалога
.Filters ... 'устанавливаем возможность выбора только файлов Excel
'.Filters.Add " ... выбора текстовых файлов
.FilterIndex = 1 'устанавливаем тип файлов по умолчанию ... 'назначаем папку отображения и имя файла по умолчанию
.InitialView = msoFileDialogViewDetails ... = .SelectedItems(lf) 'считываем полный путь к файлу
Next
ShowFileDialog = arr
End With ...
Изменен: 14.11.2022
Читать сообщение на форуме или сайте. ... quot;""")
txt = Replace(txt, v, "")
Next ... = True
.Title = "Выбрать файлы" 'заголовок окна диалога
.Filters ... 1 'устанавливаем возможность выбора только файлов Excel
'.Filters.Add " ... возможность выбора текстовых файлов
.FilterIndex = 1 'устанавливаем тип файлов по умолчанию - ... 'назначаем папку отображения и имя файла по умолчанию
.InitialView = msoFileDialogViewDetails ... = .SelectedItems(lf) 'считываем полный путь к файлу
Next
End With
ShowFileDialog = arr ...
Изменен: 17.01.2022
Читать сообщение на форуме или сайте. ... Do
ss = .Read(100000)
ss = Replace(ss, ",", "." ...
.AllowMultiSelect = True
.Title = "Выбрать файлы" 'заголовок окна диалога
.Filters ... Clear 'очищаем установленные ранее типы файлов
'.Filters.Add "Excel ... 1 'устанавливаем возможность выбора только файлов Excel
.Filters.Add "Text ... возможность выбора текстовых файлов
.FilterIndex = 1 'устанавливаем тип файлов по умолчанию - ... lf) = .SelectedItems(lf) 'считываем полный путь к файлу
Next
ShowFileDialog = arr
End With ...
Изменен: 21.09.2022
Читать сообщение на форуме или сайте. ... Then
MsgBox "Не доступа к файлу" & vbCrLf & sSumFile, vbCritical
Else ... = "FileName," & s
s = Replace(s, vbLf, vbLf & fso.GetFileName ...
.AllowMultiSelect = True
.Title = "Выбрать файлы отчетов" 'заголовок окна диалога ... возможность выбора текстовых файлов
.FilterIndex = 2 'устанавливаем тип файлов по умолчанию - ... (lf) = .SelectedItems(lf) 'считываем полный путь к файлу
'Workbooks.Open x 'открытие книги ...
Изменен: 28.05.2021
Читать сообщение на форуме или сайте. ... принципе нужно
1. получить список файлов
2. забить в реестр со ... списку) нужные функции, используя очередной путь к файлу (можно выгрузить подготовленный массив)
3 ... (), но бывает что с некоторыми файлами оно работает криво. Я бы ... \") 'Каталог с только исходными файлами! (нет проверок на мусор)
Set ... = "Обработка файла " & AFile.Name
pth = "'" & Replace(AFile.Path ... - это бонус, т.к. файлов много.
Путь к каталогу с файлами поставьте свой.
Если ИНН ...
Изменен: 27.09.2016
Читать сообщение на форуме или сайте.Автор: school_sky. gling, подскажите, пожалуйста, как можно это оптимизировать?
Sub Замена()
Range("C1").Replace What:="Документация *.xlsm", Replacement:=Range("A1")
Range("C2").Replace What:="Документация *.xlsm", Replacement:=Range("A2")
Range("C3").Replace What:="Документация *.xlsm", Replacement:=Range("A3")
Range("C4").Replace What:="Документация *.xlsm", ...
Изменен: 27.05.2017
Читать сообщение на форуме или сайте. ... импорта в аксесс из текстового файла с созданием спецификации импорта тхт ... файла
вам необходимо создать файл аксеса с
'[ ... '"Ваш путь к файлу access"
FulFilename = GetFileName ''"Ваш путь к файлу импорта" ... )
FileNameTXT = tmp(UBound(tmp))
File_PathTXT = Replace(FulFilename, FileNameTXT, "")
CreateShemaIni ...
Изменен: 02.04.2014
Читать сообщение на форуме или сайте.Автор: v.fix86. записано рекодером
Sub Замена пути()
' для замены пути к файлу
Selection.Replace What:="Ulis-13\10. October", Replacement:="Ulis-13\11. November", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
но если у Вас еще и столбики необходимо менять, то этого мало
Изменен: 14.01.2014
Читать сообщение на форуме или сайте.Автор: Kuzmich. Выделяете ячейку, в которой прописан путь и
кликаете по кнопке "Добавить 1 к дате",
результат будет в ячейке ниже
Option Explicit
'добавление 1 к дате
Private Sub CommandButton1_Click()
Dim Target As Range
Dim ДатаФайла As Date
Dim DateStr As String
Dim DateStr1 As String
Dim DateStr2 As String
Set Target = ActiveCell
DateStr = Split(Target, "[")(0)
DateStr1 = Mid(Split(Target, "[")(1), 1, 10)
DateStr2 = ...
Изменен: 06.04.2012
Читать сообщение на форуме или сайте. ... помощи!
Имеющийся вопрос:
Есть путь к файлу прописанный через TextBox1.
Задача ... активная кнопка CommandButtom2 загружала файл по пути прописанному в TextBox1 ... Private Sub CommandButton2_Click()
' Формирование имени файла прайс-листа.
fName = Application ... .GetOpenFilename("ini-файл(*.xls),*.xls", , " ... Укажите расположение файла Сравнения складов"
If ... Array(6, 7), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True ...
Изменен: 09.11.2014
Читать сообщение на форуме или сайте.Автор: Jonych. Заказал за 300р на фрилансе скрипт. Прикладываю ниже:Sub Обновить_пути()
thisdir = ThisWorkbook.Path ' расположение текущего файла
Application.DisplayAlerts = False
Set c = Cells.Find("Dropbox", LookIn:=xlFormulas)
If Not c Is Nothing Then
firstAddress = c.Address
Do
dirr = Cells(c.Row, c.Column).Formula
If InStr(dirr, "xls") 0 Then
dirr = Split(dirr, "\")
dirr2 = "" ...
Изменен: 01.03.2016
Читать сообщение на форуме или сайте. ... ( ChangedType, ".", ",", Replacer.ReplaceText, List.Skip( Table.ColumnNames ... работы такая: на листе "Путь к файлу" указываем адрес расположения нужного ...
Изменен: 30.10.2019
Читать сообщение на форуме или сайте.Автор: sokol92. Когда надоест удваивать кавычки, можно написать функцию:
' Возвращает аргумент в двойных кавычках. Двойные кавычки внутри аргумента удваиваются.
Function q(ByVal arg)
Const d As String = """"
q = d & Replace(arg, d, d & d) & d
End FunctionCreateObject("WScript.Shell").Run q(ThisWorkbook.Path & "\csv files\Разрядка подписей.xlsx")
Изменен: 30.07.2020
Читать сообщение на форуме или сайте. ... EducatedFool. Для перебора файлов в подпапках можете попробовать ... Ищем на в папке все файлы CSV, и пересохраняем их ... в колекцию coll нужные имена файлов
Set coll = FilenamesCollection(ПутьКПапке ... пути к файлам
Set wb = Workbooks.Open(coll(i)) ' открываем файл
wb.SaveAs Replace ... пересохраняем
wb.Close False ' закрываем файл
DoEvents ' временно передаём управление ... будет недостаточно.
(проверил, переименованный файл при открытии выглядит не всегда ...
Изменен: 16.01.2011
Читать сообщение на форуме или сайте.Автор: Guest. Sub NamesFileDir()
Dim sFullName$, sDirName$, sFileName$
sFullName = "C:\Test1\Test2\Test___5\Книга1.xls"
sDirName = Left(sFullName, InStrRev(sFullName, Application.PathSeparator))
sFileName = Replace(sFullName, sDirName, "")
sFileName = Left(sFileName, InStrRev(sFileName, ".") - 1)
MsgBox "Имя файла: " & sFileName & ", имя папки: " & sDirName
End Sub
Изменен: 20.12.2010
Читать сообщение на форуме или сайте.Автор: EducatedFool. Sub test()
Dim lngCount As Long
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "D:\Проекты" ' указываем папку
' или
.InitialFileName = "E:\Excel\MyPic.jpg"
.AllowMultiSelect = False
.Show
For lngCount = 1 To .SelectedItems.Count
ПолныйПутьКФайлу = .SelectedItems(lngCount)
Папка = Replace(ПолныйПутьКФайлу, Dir( ...
Изменен: 28.02.2010
Читать сообщение на форуме или сайте. ... .Visible = False
Dim sFilePath ' Путь к файлу из коллекции полей
Dim sFindText ... Boolean)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.MatchCase = ... bMatchCase
.MatchWholeWord = bMatchWholeWord
.Replacement.Text = strReplace
.Execute Replace:=wdReplaceAll
End With
End ... Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = "& ... )
sPath = Replace(sPath, sMask, "")
lblPath.Caption = "Путь: " & ...
Изменен: 02.10.2023
Читать сообщение на форуме или сайте.