Программа ежедневно генерирует файлы с данными
Название файла должно состоять из даты (ГОД-МЕСЯЦ-ДЕНЬ) и полного имени юрлица.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim ИМЯ_ФАЙЛА_ЗАПРОСА As Variant
On Error Resume Next
' Удаление всех файлов с расширением XL* из заданной папки
Kill "C:\001\" & "*.xl*"
'ИМЯ ФАЙЛА НАДО ГЕНЕРИРОВАТЬ ДАТЫ И ИЗ ПОЛНОГО ИМЕНИ ПЛАТЕЛЬЩИКА
'ПРОБЛЕМА !!! ЕСли в названии компании есть кавычки - файл не создается
ИМЯ_ФАЙЛА_ЗАПРОСА = Year([ ДАТА_СЧЕТА ].Value) & "_" & Month([ ДАТА_СЧЕТА ].Value) & "_" & Day([ ДАТА_СЧЕТА ].Value) & "_" & [ ИМЯ_ПЛАТЕЛЬЩИКА ].Value & ".xls"
Sheets("S_ZK").Select
Sheets("S_ZK").Copy
ActiveWorkbook.SaveAs FileName:= _
"C:\001\" & ИМЯ_ФАЙЛА_ЗАПРОСА, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("S_ZK").Select
А как убрать все "неправильные" символы , которые нельзя использовать в имени файла из
"ИМЯ_ПЛАТЕЛЬЩИКА"?
Не перебирать же циклом с проверкой?
