Страницы: 1 2 3 4 5 След.
Поиск
Макрос выбора пути к файлу для формулы ГИПЕРССЫЛКА
... строк. Для удобства сделаны гиперссылки к самим договорам. Договора находятся ... меню: ПКМ - Гиперссылка - выбор пути к файлу При случайном перемещении реестра и ... возврате обратно ломаются гиперссылки к файлу. Так как пользуются данной ... "*" Then                 hl.Address = Replace(hl.Address, oldString, newString)             End ... формуле. Но в эту формулу путь к файлу необходимо будет прописывать вручную, ... Как бы реализовать кнопку выбора файла в проводнике для функции ГИПЕРССЫЛКА ...
Изменен: 02.02.2018
Читать сообщение на форуме или сайте.
Замена пути к файлу через макрос самостоятельным выбором
... в некоторых(выделенных) его колонках пути к источнику путем находжения и замены. Есть ... просходит, если Replacement:="C:\text" вручную указать путь к файлу более подробно ... в файле.  Помогите, пожалуйтса
Изменен: 28.07.2014
Читать сообщение на форуме или сайте.
Письмо в outlook: задать путь к файлу
... 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
Читать сообщение на форуме или сайте.
Notapad запускаемый с VBA Excel кода , не видит создаваемого в Excel файла csv и сохраненного в папке
... = 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
Читать сообщение на форуме или сайте.
Проблема при отправке почты из Excel через Outlook (добавление нескольких файлов в текст письма Outlook)
... Error Resume Next 'пробуем подключиться к Outlook, если он уже открыт ... учетных записей и нужно подключиться к конкретной(только если Outlook закрыть ... ;G6").Value 'Вложение(полный путь к файлу. Можно заменить значением из ячейки ... или путь - sAttachment = "C:\Temp\Книга1 ... сообщения 'добавляем вложение, если файл по указанному пути существует(dir проверяет это ... In arrAttachments vOneAttachement = Application.Trim(Replace(vOneAttachement, """" ...
Изменен: 14.11.2021
Читать сообщение на форуме или сайте.
Макрос для обновления информации в xml файле
... , 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
Читать сообщение на форуме или сайте.
PQ. Ошибка при обработке ПДФ файла
... .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
Читать сообщение на форуме или сайте.
печать pdf-файлов через функции в excel возможна?
... ' перебираем все элементы коллекции, содержащей пути к файлам ПутьКФайлу = 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
Читать сообщение на форуме или сайте.
Отправка фото в ВК, Необходимо отправить файл с фотографией в через VK-API
... группе в ВК из файла 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
Читать сообщение на форуме или сайте.
Замена запятых на точки в большом количестве txt файлов
... 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
Читать сообщение на форуме или сайте.
Собрать csv файлы в один с названием файла
... 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
Читать сообщение на форуме или сайте.
Excel: Использование Access для обработки больших текстовых файлов
... импорта в аксесс из текстового файла с созданием спецификации импорта тхт ... файла вам необходимо создать файл аксеса с  '[ ... '"Ваш путь к файлу 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
Читать сообщение на форуме или сайте.
Неправильное представление дат из scv файла
... ( 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
Читать сообщение на форуме или сайте.
Как сохранить путь к файлу, выбранному через FileDialog?
Автор: 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
Читать сообщение на форуме или сайте.
Как обновить макрос, чтобы работал на 64-bit
... .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
Читать сообщение на форуме или сайте.
Страницы: 1 2 3 4 5 След.
Наверх