Написал макрос, в котором лист экспортируется в pdf с присваиванием имени по определенному условию. Проблема в том, что там используется имя организации (допустим, ООО "Рога и копыта"). Естественно кавычки - недопустимый знак, файл не экспортируется. Пробовал при переименовании использовать тильду - тоже не работает. Возможно ли сделать так, чтобы кавычки заменялись на _ и имя файла выглядело как ....._ООО_Рога и копыта_.pdf?
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
Пример использования:
' формируем путь к новому файлу
Путь = ThisWorkbook.Path & "\" & Replace_symbols(sh.Name) & _
"\" & Replace_symbols(cell) & "\" & Replace_symbols(cell.Next) & ".jpg"