Автоархивация данных

Nik_Koraman

Подскажите плиз как сделать чтобы по нажатию кнопки создавалсяновый файл и туда вырезались все данные (за исключением шапки) из этой таблицы. Заранее спасибо
12 ответов

Nik_Koraman

Nik_Koraman,И с чем проблема ?С кнопкой , созданием или вырезанием ?


Nik_Koraman

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


Nik_Koraman

Nik_Koraman,файл какой: текстовый, ворд, эксель?или просто надо раром заархивировать?


Nik_Koraman

> Автор: Kallandor> или просто надо раром заархивировать?Просто рар
RAR.Exe a -df -ep -ep1 -Y outbox\<b>1</b> outbox\*.*
рар в дискетках
RAR.Exe a -df -ep -ep1 -v1440f -Y outbox\<b>1</b> outbox\*.*


Nik_Koraman

надо чтобы создавался новый excel файл, шапка копировалась из уже существующего а данные вырезались. Т.к перемещение данных в новые файлы будет происходить неоднократно, примерно раз в три месяца, надо чтобы название файла также менялось автоматом


Nik_Koraman

Nik_Koraman,ну так разбейте задачу :Создание файлаКопирование шапкиКопирование данныхПереименование файла.И попробуйте сделать что-нибудь сами.


Nik_Koraman

копирование шапки, перемещение данных проблема решаема. Требуется только синтаксис создания нового файла с уникальными именами


Nik_Koraman

Nik_Koraman,ДДММГГГ


Nik_Koraman

> Автор: Nik_Koraman> копирование шапки, перемещение данных проблема решаема. Требуется только синтаксис создания нового файла с > уникальными именами
Dim wb As Workbook, sName As String
sName = CStr(Date) & "_" & CStr(Time) & "_" & CStr(Rnd())
sName = Replace(sName, ".", "_")
sName = Replace(sName, ":", "_")
sName = Replace(sName, ",", "_")
Set wb = Application.Workbooks.Add
wb.SaveAs "c:\" & sName & ".xls"
З.Ы. Rnd() это если генерировать нужно очень часто :)


Nik_Koraman

Игорь Горбонос,или fso.GetTempName


Nik_Koraman

> Автор: big-duke> Игорь Горбонос,>> или fso.GetTempNameМожно и это использовать, но я думаю врядли, потому, что задача в сохранении каких-то данных, а значит под архивные данные должно быть явно указаное место постоянного хранения, а не временные папки.


Nik_Koraman

Игорь Горбонос,GetTempName - это темповое имя, а чему его присваивать - папке или файлу - это совсем другое дело.Хотя вы правы, для архивации это не подойдет.