|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.11.2016, 13:20 | #1 |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
Открыть файл и выполнить в нем макрос
Добрый день!
Прошу помочь допилить макрос, чтобы нажав кнопку, можно было выбрать нужный файл, и запустить в нем макрос. Есть макрос который нужно применить к файлу (код ниже), есть файл к которому будет применяться макрос (во вложении). Нужен файл, который открывал бы нужный нам файл. Код HTML:
Sub Tochka() ' ' Задать листу шрифт, масштаб, поменять точку на запятую, удалить пробел Cells.Select With Selection.Font .Size = 8 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With ActiveWindow.Zoom = 80 With Range("Q16", Cells(Rows.Count, "V").End(xlUp)) .Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False .Formula = .Formula End With ' Промежуточные итоги Range("J10:T10").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With Selection.UnMerge Range("S10").Select ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[6]C:R[4990]C)" ' Автофильтр Rows("15:15").Select Selection.AutoFilter ' Выровнить строки Cells.Select Cells.EntireRow.AutoFit ' Финансовый формат Range("Q:V").Select Selection.Style = "Comma" End Sub |
14.11.2016, 13:56 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Функция для вывода диалогового окна выбора файла
http://excelvba.ru/code/GetFileOrFolderPath Код:
|
14.11.2016, 15:35 | #3 |
Новичок
Джуниор
Регистрация: 08.02.2010
Сообщений: 1
|
как пример. там пару ошибок есть, но уже посмотришь
|
14.11.2016, 16:22 | #4 |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
[QUOTE=EducatedFool;1644674]Функция для вывода диалогового окна выбора файла
http://excelvba.ru/code/GetFileOrFolderPath Доброго времени суток, EducatedFool! Перед обращением на этот форум, я был на многих форумах, а так же на вашем форуме и видел эти коды. Некоторые из них, пробовал себе применить, но кроме того, как диалогового окна "Выбран файл: C:\Users\Forum_Open_File.xlsx", ничего не выдавалось, т.е. файл не открывался и в открытом файле, ниего не происходило. Вы предложили один из применяемых мною именно с Вашего форума Код. Не могу сообразить, что я не так делаю. |
14.11.2016, 16:24 | #5 |
Форумчанин
Регистрация: 28.05.2014
Сообщений: 158
|
|
14.11.2016, 16:36 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
код сработал. Только от selectов надо избавиться
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
код, который должен открывать файл, находить в нем определенный символ и заменять его на другой, не записывает в файл | Dima-War | Общие вопросы C/C++ | 2 | 14.12.2013 21:35 |
Oscar X7 !!? Или как создать в нем рабочий макрос. | Bronver | Софт | 7 | 16.02.2013 00:19 |
Выполнить макрос в excel документе | WennY | Компоненты Delphi | 1 | 22.02.2012 21:03 |
Открыть файл, разделить ячейку на 1000, сохранить файл, закрыть файл. Как? | Ник Харди | Microsoft Office Excel | 7 | 30.01.2012 18:47 |
Как открыть из дельфи файл MS Word и выполнить в нем замены подстрок | RusArtm | Общие вопросы Delphi | 9 | 05.06.2009 13:29 |