Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос на сохранение файла,как обойти кавычки в имени
 
#1
22.02.2011 09:00:46
Добрый день,опять обращаюсь к вам за помощью,уважаемые профессионалы.  
Есть макрос на сохранение книги,имя книги берется из ячейки B2,а в ней формула впр.  
в имени,которые выдается через  формулу есть кавычки (Магазин 01"продукты").Убрать кавычки нельзя.Помогите пожалуйста доработать макрос,что бы он все таки сохранял эту книгу,возможно при сохранении убирал бы кавычки.Сам макрос:  
Sub Сохранить()  
  ActiveWorkbook.SaveAs "C:\Documents and Settings\Мои документы\" & Range("B2") & ".xlsm"  
End Sub  
Спасибо всем заранее.
 
 
 
#2
22.02.2011 09:07:52
А воспользоваться поиском религия не позволяет?  
Несколько дней назад была точно такая же тема...  
 
Решение здесь: http://excelvba.ru/code/Replace_symbols  
 
Ваш код будет выглядеть так:  
 
Sub Сохранить()  
ActiveWorkbook.SaveAs "C:\Documents and Settings\Мои документы\" & Replace_symbols(Range("B2")) & ".xlsm"  
End Sub  
 
Function Replace_symbols(ByVal txt As String) As String  
   St$ = "~!@#$%^&*=|`'"""  
   For i% = 1 To Len(St$)  
       txt = Replace(txt, Mid(St$, i, 1), "_")  
   Next  
   Replace_symbols = txt  
End Function
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
22.02.2011 09:30:09
{quote}{login=EducatedFool}{date=22.02.2011 09:07}{thema=}{post}А воспользоваться поиском религия не позволяет?  
Несколько дней назад была точно такая же тема...  
 
Решение здесь: http://excelvba.ru/code/Replace_symbols  
 
Ваш код будет выглядеть так:  
 
Sub Сохранить()  
ActiveWorkbook.SaveAs "C:\Documents and Settings\Мои документы\" & Replace_symbols(Range("B2")) & ".xlsm"  
End Sub  
 
Function Replace_symbols(ByVal txt As String) As String  
   St$ = "~!@#$%^&*=|`'"""  
   For i% = 1 To Len(St$)  
       txt = Replace(txt, Mid(St$, i, 1), "_")  
   Next  
   Replace_symbols = txt  
End Function{/post}{/quote}  
 
Спасибо за помощь.Поиском пользовалась,и это решение видела,к сожалению не смогла применить сама к макросу,поэтому и обратилась за помощью.Надеюсь в будущем не буду отвлекать такими простыми вопросами.
 
 
 
Страницы: 1
Читают тему
Наверх