Автоматическое сохранение листа в файл Csv

[flylive]

Доброе время суток. Подскажите, возможно ли сделать такое, и если возможно, то как. У меня имеется структурированная таблица на ЛИСТ1 exl-файла, каждая строка данные по одному клиенту. ЛИСТ2 форма, которую необходимо заполнить для каждого клиента и сохранить в файл CSV. Я сдела с помощью функции =ВПР() автозаполнение ячеек формы при заполнеии имени клиента. Так вот сам вопрос. Можно ли сделать такой макрос, который заполнит форму, сохранит с именем (имя взять из 2- ячеек формы B3 и C3) в формате csv и так для всех клиентов.

[EducatedFool]

Вот весь макрос:

Sub СозданиеФайлов()
    Application.ScreenUpdating = False: Application.DisplayAlerts = False: колво = 0
    fp = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "CSV - файлы\")
    On Error Resume Next: MkDir fp: Dim cell As Range
    For Each cell In Лист1.Range(Лист1.[a4], Лист1.[a65000].End(xlUp))
        If cell <> "" Then
            With Лист2
                .[b3] = cell: .Calculate: .Copy: DoEvents: колво = колво + 1
                ActiveWorkbook.SaveAs fp & cell & " - " & .[c3] & ".csv", xlCSV
                ActiveWorkbook.Close False
            End With
        End If
    Next cell: Application.DisplayAlerts = True
End Sub

Нажмите зелёную кнопочку в прикреплённом файле:

[Marchuk]

вот держите альфу версию.
есть глюк если в названии ООО есть кавычки "
исправлю, позднее.

[EducatedFool]

Если в строке

ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & Range("B3").Value & Range("C3").Value & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False

после ThisWorkbook.Path не добавить "\", то макрос будет корректно работать только в одном случае - если файл сохранён в корневом каталоге диска.

[flylive]

Спасибо огромное.
Теперь не могу сообразить - как настроить Excel или может что-то иное, чтобы созданные csv файлы открывались и всю инфо распределяли по ячейкам. У меня разделитель текста стоит ; а не , как получилось в новых файлах.

[flylive]

и еще появились " " как разделитель текста,
а про ; и , - эт разделитель ячеек - или как там их
грубо говоря строка вашего файла:
ЦОК:,C01016,"Куликова С.П., ИП"
а мне было бы удобнее:
ЦОК:;C01016;Куликов А.З., ИП

как быть...

[Marchuk]

Сообщение от EducatedFool

Если в строке

ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & Range("B3").Value & Range("C3").Value & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False

после ThisWorkbook.Path не добавить "\", то макрос будет корректно работать только в одном случае - если файл сохранён в корневом каталоге диска.

ага спс , не обратил внимание, тот-то думаю что-то он странно сохраняет.

[Marchuk]

БЕТА версия

Private Sub CommandButton1_Click()

Dim iLastRow As Long
Dim str As String
Application.DisplayAlerts = False 'не показывать сообщения
Application.ScreenUpdating = False 'отключение обновления экрана

iLastRow = ThisWorkbook.Sheets("Лист1").Cells( Rows.Count, "A").End(xlUp).Row
ThisWorkbook.Sheets(2).Select

For i = 4 To iLastRow
Range("B3").Value = Sheets("Лист1").Range("A" & i).Value
str = Range("B3").Text
str = str & Replace(Range("C3").Text, " ", "")
str = Replace(str, Chr(34), "")
str = Replace(str, "'", "")
str = Replace(str, ":", "")
str = Replace(str, ";", "")
str = Replace(str, ",", "")
'str = Replace(str, ".", "") 'можно и точки удалять
Sheets(2).Copy
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & str & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True

ThisWorkbook.Activate
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

[flylive]

неа не работает, все тоже самое
нашла вот какую тему:
http://www.programmersforum.ru/showthread.php?t=24188
мало что понятно и влияет ли это на дело, Но настройки я менять не смею.
У меня стоит РАЗДЕЛИТЕЛЬ ЭЛЕМЕНТОВ СПИСКА ;

[Marchuk]

Сообщение от flylive

неа не работает, все тоже самое
нашла вот какую тему:
http://www.programmersforum.ru/showthread.php?t=24188
мало что понятно и влияет ли это на дело, Но настройки я менять не смею.
У меня стоит РАЗДЕЛИТЕЛЬ ЭЛЕМЕНТОВ СПИСКА ;

я так попял что разделитель нужен не "," а ";" так чтоль?