const invalidsym="\?|><:/*+,;=[]""
dim s as string*1, i as integer
For i = 1 To Len(invalidsym)
s = Mid$(invalidsym, i, 1)
While InStr(filename, s)
filename = Replace(filename, s, " ")
Wend
Next
Изничтожение лишнего в строке
В Ёксельной книге существует кнопочка,при нажатии на которую макрос хватает из одной ячейки номер заказа, из другой наименование фирмы заказчика, потом все это превращает в имя книги и делает "Сохранить как..."
ActiveWorkbook.SaveAs Filename:="\\Komerziy3\C\Заказ" & год & "\" & месяц & "\" & заказ & "(" & клиент & ").xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Но в имени клиента например присутствуют кавычки(ОАО "Алюмстальконструкция") из за присутствия которых книга сохранятся разумеется не желает.
Какие у кого есть мысли,как из переменной вычистить все знаки, недопустимые к применению в именах книг.
ActiveWorkbook.SaveAs Filename:="\\Komerziy3\C\Заказ" & год & "\" & месяц & "\" & заказ & "(" & клиент & ").xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Но в имени клиента например присутствуют кавычки(ОАО "Алюмстальконструкция") из за присутствия которых книга сохранятся разумеется не желает.
Какие у кого есть мысли,как из переменной вычистить все знаки, недопустимые к применению в именах книг.
Цитата:
Originally posted by Штурман
В Ёксельной книге существует кнопочка,при нажатии на которую макрос хватает из одной ячейки номер заказа, из другой наименование фирмы заказчика, потом все это превращает в имя книги и делает "Сохранить как..."
ActiveWorkbook.SaveAs Filename:="\\Komerziy3\C\Заказ" & год & "\" & месяц & "\" & заказ & "(" & клиент & ").xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Но в имени клиента например присутствуют кавычки(ОАО "Алюмстальконструкция") из за присутствия которых книга сохранятся разумеется не желает.
Какие у кого есть мысли,как из переменной вычистить все знаки, недопустимые к применению в именах книг.
В Ёксельной книге существует кнопочка,при нажатии на которую макрос хватает из одной ячейки номер заказа, из другой наименование фирмы заказчика, потом все это превращает в имя книги и делает "Сохранить как..."
ActiveWorkbook.SaveAs Filename:="\\Komerziy3\C\Заказ" & год & "\" & месяц & "\" & заказ & "(" & клиент & ").xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Но в имени клиента например присутствуют кавычки(ОАО "Алюмстальконструкция") из за присутствия которых книга сохранятся разумеется не желает.
Какие у кого есть мысли,как из переменной вычистить все знаки, недопустимые к применению в именах книг.
Код:
Цитата:
Originally posted by Tiraspolsky
Код:
const invalidsym="\?|><:/*+,;=[]""
dim s as string*1, i as integer
For i = 1 To Len(invalidsym)
s = Mid$(invalidsym, i, 1)
While InStr(filename, s)
filename = Replace(filename, s, " ")
Wend
Next
dim s as string*1, i as integer
For i = 1 To Len(invalidsym)
s = Mid$(invalidsym, i, 1)
While InStr(filename, s)
filename = Replace(filename, s, " ")
Wend
Next
А зачем цикл While? Для надежности?
Ф_циы Replace() по умолчанию заменяет все найденные символы в строке.
Цитата:
Originally posted by gacol
А зачем цикл While? Для надежности?
Ф_циы Replace() по умолчанию заменяет все найденные символы в строке.
А зачем цикл While? Для надежности?
Ф_циы Replace() по умолчанию заменяет все найденные символы в строке.
Согласен
Спасибо,работает