Удаление "слешей" в ячейке при сохранении файла макросом
lebensvoll
Дата: Понедельник, 08.02.2021, 19:57 |
Сообщение № 1
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация:
30
±
Замечаний:
0% ±
Excel 2010
Имеется макрос для сохранения "ActiveWorkbook.SaveAs" с присвоением наименования из определенных ячейках. В одной из ячеек содержится Ф.И.О заключенное в "слеши" пример: / Анисимов А.С. / И макрос начинает ругаться Сам макрос выглядет так:
[vba]
Код
Sub SaveAs_Now() Application.DisplayAlerts = False 'Сохранение книги с именем из ячейки A1 B7 G15 в нужную папку ChDir "C:\Users\Lab\Desktop\Ghbrjk" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Lab\Desktop\Ghbrjk\" & Range("A1") & " " & Range("B7") & " " & Range("G15") & " " & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False OpenPath = ThisWorkbook.Path = "C:\Users\Lab\Desktop\Ghbrjk\" ' путь где находится сам шаблон Application.DisplayAlerts = True 'Закрытие файла ОБРАЗЕЦ Application.Quit ActiveWorkbook.Close True End Sub
[/vba]
Помогите пожалуйста указать что в данной ячейке находится текст без "слешей"
Имеется макрос для сохранения "ActiveWorkbook.SaveAs" с присвоением наименования из определенных ячейках. В одной из ячеек содержится Ф.И.О заключенное в "слеши" пример: / Анисимов А.С. / И макрос начинает ругаться Сам макрос выглядет так:
[vba]
Код
Sub SaveAs_Now() Application.DisplayAlerts = False 'Сохранение книги с именем из ячейки A1 B7 G15 в нужную папку ChDir "C:\Users\Lab\Desktop\Ghbrjk" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Lab\Desktop\Ghbrjk\" & Range("A1") & " " & Range("B7") & " " & Range("G15") & " " & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False OpenPath = ThisWorkbook.Path = "C:\Users\Lab\Desktop\Ghbrjk\" ' путь где находится сам шаблон Application.DisplayAlerts = True 'Закрытие файла ОБРАЗЕЦ Application.Quit ActiveWorkbook.Close True End Sub
[/vba]
Помогите пожалуйста указать что в данной ячейке находится текст без "слешей" lebensvoll
Кто бы ты ни был, мир в твоих руках
Ответить
Сообщение Имеется макрос для сохранения "ActiveWorkbook.SaveAs" с присвоением наименования из определенных ячейках. В одной из ячеек содержится Ф.И.О заключенное в "слеши" пример: / Анисимов А.С. / И макрос начинает ругаться Сам макрос выглядет так:
[vba]
Код
Sub SaveAs_Now() Application.DisplayAlerts = False 'Сохранение книги с именем из ячейки A1 B7 G15 в нужную папку ChDir "C:\Users\Lab\Desktop\Ghbrjk" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Lab\Desktop\Ghbrjk\" & Range("A1") & " " & Range("B7") & " " & Range("G15") & " " & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False OpenPath = ThisWorkbook.Path = "C:\Users\Lab\Desktop\Ghbrjk\" ' путь где находится сам шаблон Application.DisplayAlerts = True 'Закрытие файла ОБРАЗЕЦ Application.Quit ActiveWorkbook.Close True End Sub
[/vba]
Помогите пожалуйста указать что в данной ячейке находится текст без "слешей" Автор - lebensvoll Дата добавления - 08.02.2021 в 19:57
Pelena
Дата: Понедельник, 08.02.2021, 20:02 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
вместо Range("B7") напишите Replace(Range("B7"), "/", "") А точки не мешают?
вместо Range("B7") напишите Replace(Range("B7"), "/", "") А точки не мешают? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение вместо Range("B7") напишите Replace(Range("B7"), "/", "") А точки не мешают? Автор - Pelena Дата добавления - 08.02.2021 в 20:02
lebensvoll
Дата: Понедельник, 08.02.2021, 20:08 |
Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация:
30
±
Замечаний:
0% ±
Excel 2010
Pelena, спасибо за ответ!!! Я только недавно понял что именно текст заключенный в "слеш" заставляет ругаться код. Но как обойти это не мог понять (((( СПАСИБО ВАМ!!!Цитата
А точки не мешают?
А вот сейчас буду смотреть на это
Pelena, спасибо за ответ!!! Я только недавно понял что именно текст заключенный в "слеш" заставляет ругаться код. Но как обойти это не мог понять (((( СПАСИБО ВАМ!!!Цитата
А точки не мешают?
А вот сейчас буду смотреть на это lebensvoll
Кто бы ты ни был, мир в твоих руках
Ответить
Сообщение Pelena, спасибо за ответ!!! Я только недавно понял что именно текст заключенный в "слеш" заставляет ругаться код. Но как обойти это не мог понять (((( СПАСИБО ВАМ!!!Цитата
А точки не мешают?
А вот сейчас буду смотреть на это Автор - lebensvoll Дата добавления - 08.02.2021 в 20:08
lebensvoll
Дата: Понедельник, 08.02.2021, 20:20 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация:
30
±
Замечаний:
0% ±
Excel 2010
Pelena, нет не ругается СПАСИБО ВАМ ОГРОМНЕЙШЕЕ!!!
Pelena, нет не ругается СПАСИБО ВАМ ОГРОМНЕЙШЕЕ!!! lebensvoll
Кто бы ты ни был, мир в твоих руках
Ответить
Сообщение Pelena, нет не ругается СПАСИБО ВАМ ОГРОМНЕЙШЕЕ!!! Автор - lebensvoll Дата добавления - 08.02.2021 в 20:20
Kuzmich
Дата: Понедельник, 08.02.2021, 20:35 |
Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Репутация:
157
±
Замечаний:
0% ±
Excel 2003
Цитата
именно текст заключенный в "слеш" заставляет ругаться код
Текст тут ни при чем, посмотрите запрещенные символы в имени файла
Цитата
именно текст заключенный в "слеш" заставляет ругаться код
Текст тут ни при чем, посмотрите запрещенные символы в имени файлаKuzmich
Ответить
Сообщение Цитата
именно текст заключенный в "слеш" заставляет ругаться код
Текст тут ни при чем, посмотрите запрещенные символы в имени файлаАвтор - Kuzmich Дата добавления - 08.02.2021 в 20:35
lebensvoll
Дата: Понедельник, 08.02.2021, 21:43 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация:
30
±
Замечаний:
0% ±
Excel 2010
Kuzmich, но тем не менее имя файла создается из определенных ячеек. В одной из ячеек имеется текст заключенный в "/ - forward slash (прямой слеш)" Поэтому и ругался (((((
Kuzmich, но тем не менее имя файла создается из определенных ячеек. В одной из ячеек имеется текст заключенный в "/ - forward slash (прямой слеш)" Поэтому и ругался ((((( lebensvoll
Кто бы ты ни был, мир в твоих руках
Ответить
Сообщение Kuzmich, но тем не менее имя файла создается из определенных ячеек. В одной из ячеек имеется текст заключенный в "/ - forward slash (прямой слеш)" Поэтому и ругался ((((( Автор - lebensvoll Дата добавления - 08.02.2021 в 21:43