Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Январь 2008   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 689
от 13.01.2008, 18:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 262, Экспертов: 39
В номере:Вопросов: 1, Ответов: 2
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 117513: С прошедшими праздниками, уважаемые эксперты. Вопрос такой. В Exel`е надо сделать ежедневную статистику. Скрипт должен выполнять такую вещь Создавать файл с заголовком даты, в который будет копироваться инфо для статистики. <...

Вопрос № 117.513
С прошедшими праздниками, уважаемые эксперты. Вопрос такой.
В Exel`е надо сделать ежедневную статистику.

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

То есть грубо говоря, я кликаю на кнопку (запускаю скрипт) и создается файл(таблица Ехеl ) с заголовком текущей даты. Именно отдельный файл, путь к файлу указываются в коде.

Вот в общем, не могли бы проконсультировать, как можно реализовать подобное
Спасибо за внимание. С уважением Виктор
Отправлен: 08.01.2008, 17:59
Вопрос задал: yazzer (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Соколов Виктор Васильевич!
справка и поддержка Microsoft - Код статьи : 247412
Евгений.

Приложение:

Ответ отправил: Тесленко Евгений Алексеевич (статус: Студент)
Ответ отправлен: 08.01.2008, 18:37
Оценка за ответ: 5
Комментарий оценки:
Код и коменнтарии полностью отражают суть вопроса
Отвечает: Черников Игорь Владимирович
Здравствуйте, Соколов Виктор Васильевич!
Можно обойтись и без скриптов, вставьте этот код в созданную заранее кнопку, а потом нажмите её:
ИмяВашегоФайла = ActiveWorkbook.Name 'Так можно узнать имя своего файла
Путь = Workbooks(ИмяВашегоФайла).Path + "" 'В переменную Путь запишется путь к файлу из которого Вы работаете
'А можете просто сами прописать путь, н-р: Путь = "C:Temp"
ИмяБудущегоФайла = "Статистика за " + Format(Date, "dd.mm.yyyy") + ".xls"
'Слова "Сататистика за " можно убрать или вставить что-то своё
'формат "dd.mm.yyyy" можете изменить на другой, н-р: "d.mmm.yy" или "dd/mm/yyyy", d - день, h - месяц, y - год.
Workbooks.Add 'Создаём новую книгу
'Сохраним её по указанному пути как... не закрывая
ActiveWorkbook.SaveAs Filename:= _
Путь + ИмяБудущегоФайла, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Если ReadOnlyRecommended:=False сделать True, то файл будет только для чтения и его сложнее будет потом изменить
'в Password:="" между кавычками можно вписать пароль к этой книге, если не хотите, чтобы кто-то её прочитал
'Затем из своей книги с какого-нибудь листа можете скопировать данные в новую, н-р:
Workbooks(ИмяБудущегоФайла).Sheets("Лист1").Range("A2") = Workbooks(ИмяВашегоФайла).Sheets("Лист1").Range("A1")
'Или скопировать лист целиком из Вашего файла в новый:
Workbooks(ИмяВашегоФайла).Sheets("Лист1").Copy Before:=Workbooks(ИмяБудущегоФайла).Sheets(1)
'а затем можно закрыть созданную книгу с сохранением:
Workbooks(ИмяБудущегоФайла).Close SaveChanges:=True
---------
От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 10-ый класс)
Ответ отправлен: 09.01.2008, 20:08
Оценка за ответ: 4
Комментарий оценки:
Немного не удобно читать ответ, извините ) Есть не совсем понятные вещи. В целом отражает суть вопроса, и есть вещи которыми можно дополнить код. Спасибо.

Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.69 от 06.01.2008 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное