Авто экспорт из XLS в CSV

[kir1381]

Здравствуйте. Скажите пожалуйста есть ли в экселе функция автосохранения определенных ячеек с данными в файл формата CSV.
Зараннее спасибо.

[Sparkman]

Нету (по крайней мере функции "Экспорт", как в Access'е не нашел).
Скопируйте нужный диапазон в новую книгу и сохраните в формате csv.
Либо макрос напишите, который собственно делает тоже самое.

[EducatedFool]

Поиском не пробовали воспользоваться?
http://excelvba.ru/code/Range2CSV

[Сергей846]

Как сделать чтобы SaveTXTfile сохранял текст в кодировке DOS (866)?

Sub ЭкспортПрайсЛистаВФорматеCSV()
     On Error Resume Next
     Dim sh As Worksheet: Set sh = ActiveSheet    ' обрабатывается активный лист

     ' диапазон ячеек с A5 до последней заполненной ячейки в столбце A
    ' расширенный по горизонтали на 10 столбцов (выгружаются столбцы с A по J)
    Dim ra As Range: Set ra = sh.Range(sh.[A5], sh.Range("A" & sh.Rows.Count).End(xlUp)).Resize(, 10)

     ' формируем текстовую строку, содержащую текст диапазона в формате CSV
    CSVtext$ = Range2CSV(ra, ";")    ' можно указать другой разделитель столбцов

     ' создаём в папке с файлом XLS подпапку для CSV-прайсов (если такой папки ещё нет)
    CSVfolder$ = ThisWorkbook.Path & "\CSV prices\": MkDir CSVfolder$

     ' формируем имя создаваемого файла CSV (c указанием текущей даты)
    CSVfilename$ = Format(Now, "YYYY MM DD  HH-NN-SS") & ".csv"

     ' сохраняем текстовую CSV-строку CSVtext$ в файл с именем CSVfilename$
    SaveTXTfile CSVfolder$ & CSVfilename$, CSVtext$
End Sub

В модуле также есть функции Range2CSV, SaveTXTfile

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
     On Error Resume Next: Err.Clear
     Set fso = CreateObject("scripting.filesystemobject")
     Set ts = fso.CreateTextFile(filename, True)
     ts.Write txt: ts.Close
     SaveTXTfile = Err = 0
     Set ts = Nothing: Set fso = Nothing
End Function

Заранее спасибо!

[Сергей846]

Снимаю вопрос. Проблема решена.

[norvik]

Добрый вечер, прошу помочь решить такой вопрос: надо с задаваемым интервалом времени экспортировать лист экселя в файл формата ТХТ.
Я в ВБА нуль, но с помощью макрорекордера и гуглей соорудил такую конструкцию:

UserFrom1:

Public StartStop As Integer

Private Sub CommandButton1_Click()
Dim PauseTime, Start
PauseTime = UserForm1.TextBox1.Value
StartStop = 1
Do While StartStop = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Admin\Рабочий стол\List_ Excel.txt", FileFormat:= _
xlText, CreateBackup:=False
Loop
End Sub

Private Sub CommandButton2_Click()
StartStop = 2
Unload Me
End Sub


Module1:

Sub EXPORT()
UserForm1.Show
End Sub

Работает, но перед каждым действием появляется окно с предупреждением что такой файл уже существует, и вопросом:экспортировать?
Можно как то поменять код, чтобы запись происходила автоматически поверх существующего файла?

[Hugo121]

Перед сохранением выполните
Application.displayalerts=false
потом верните назад.