|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2009, 11:24 | #1 |
Новичок
Джуниор
Регистрация: 22.05.2009
Сообщений: 2
|
Как сохранить файл в текущей папке?
Пытаюсь сохранить лист в отдельном файле, но он сохраняется в МоиДокументы. Помогите сохранить его в текущей папке. Вот код:
Sub Создание_отчета () ' ' Создание_отчета Макрос ' Макрос записан 22.05.2009 (RostikS) ' ' Sheets("месяц").Select Sheets("месяц ").Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "Отчет.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveSheet.Shapes("Button 3").Select Selection.Cut End Sub |
22.05.2009, 11:40 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Чтобы файл сохранялся в нужной папке, надо указывать полный путь к файлу:
(хотя можно и установить рабочим каталогом Excel папку с текущим документом) Код:
|
22.05.2009, 11:59 | #3 |
Новичок
Джуниор
Регистрация: 22.05.2009
Сообщений: 2
|
Спасибо! Все работает.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как image сохранить в файл ? | juan666777 | Мультимедиа в Delphi | 11 | 13.12.2014 09:51 |
как сохранить из memo в файл? | RAVAL)) | Общие вопросы Delphi | 8 | 15.01.2013 18:09 |
как определить какие файлы есть в папке и вывести их имена в текстовый файл | Tdoctor | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 04.11.2008 05:18 |
как сохранить строчки в TXT файл | Ярослав | Помощь студентам | 2 | 17.05.2008 18:43 |
сохранить книгу на диске С в папке название которое указывается в textBox1 | ScOrpi | Microsoft Office Excel | 3 | 16.12.2007 17:52 |