Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Макрос на создание новой книги 
V
    Опции темы
Antila
Дата 27.1.2010, 09:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



Подскажите пожалуйста!
Есть открытая книга в Excel, в ней запускаем макрос. 
Необходимо чтобы этот макрос создавал новую книгу, что-то в неё записывал, сохранял и закрывал. 
Такое вообще возможно? Если возможно, то как это реализовать?

PM MAIL   Вверх
Akina
Дата 27.1.2010, 09:38 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



set new_wbk = workbooks.add
Остальное во встроенной справке.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Antila
Дата 27.1.2010, 09:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



Вот что получилось

Код

Sub New2()
    Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    New_Wb.SaveAs ("D:\test" & "1" & ".xls")
    New_Wb.Close
End Sub


Проблема теперь в том, что если test1.xls уже существует excel выдает диалоговое окно. А как сделать так, что если файл существует, окно не появлялось и файл заменялся автоматически? 

Цитата(Akina @ 27.1.2010,  09:38)
Остальное во встроенной справке.

простите, справка на англ., а с англ. тяжело

Это сообщение отредактировал(а) Antila - 27.1.2010, 09:56
PM MAIL   Вверх
Akina
Дата 27.1.2010, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Цитата(Antila @  27.1.2010,  10:52 Найти цитируемый пост)
если test1.xls уже существует excel выдает диалоговое окно

Читаем справку по SaveAs. Там есть решение.
Цитата(Antila @  27.1.2010,  10:52 Найти цитируемый пост)
справка на англ., а с англ. тяжело

Не оправдание. Словарь в руки.





--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Antila
Дата 27.1.2010, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



Цитата(Akina @ 27.1.2010,  10:10)

Читаем справку по SaveAs. Там есть решение.


Saves changes to the workbook in a different file.

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression    Required. An expression that returns one of the above objects.

Filename    Optional Variant. A string that indicates the name of the file to be saved. You can include a full path; if you don't, Microsoft Excel saves the file in the current folder.

FileFormat    Optional Variant. The file format to use when you save the file. For a list of valid choices, see the FileFormat property. For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used.

Password    Optional Variant. A case-sensitive string (no more than 15 characters) that indicates the protection password to be given to the file.

WriteResPassword    Optional Variant. A string that indicates the write-reservation password for this file. If a file is saved with the password and the password isn't supplied when the file is opened, the file is opened as read-only.

ReadOnlyRecommended    Optional Variant. True to display a message when the file is opened, recommending that the file be opened as read-only.

CreateBackup    Optional Variant. True to create a backup file.

AccessMode   Optional XlSaveAsAccessMode.

ConflictResolution    Optional XlSaveConflictResolution.

AddToMru    Optional Variant. True to add this workbook to the list of recently used files. The default value is False.

TextCodePage    Optional Variant. Not used in U.S. English Microsoft Excel.

TextVisualLayout    Optional Variant. Not used in U.S. English Microsoft Excel.

Local   Optional Variant. True saves files against the language of Microsoft Excel (including control panel settings). False (default) saves files against the language of Visual Basic for Applications (VBA) (which is typically US English unless the VBA project where Workbooks.Open is run from is an old internationalized XL5/95 VBA project).


Очень хочется пример как можно воспользоваться этой справкой. в упор не вижу нужного мне праметра(
PM MAIL   Вверх
Akina
Дата 27.1.2010, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



ConflictResolution    


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Antila
Дата 28.1.2010, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



Цитата(Akina @ 27.1.2010,  12:06)
ConflictResolution

Используется примерно так?

Код

New_Wb.SaveAs FileName:= _
   "D:\proba\XLS\" & nameBook & ".xls", ConflictResolution:=xlUserResolution
   
   New_Wb.Close


Всеравно не один из параметров: 
xlUserResolution (display the conflict-resolution dialog box) 
xlLocalSessionChanges (automatically accept the local user's changes) 
xlOtherSessionChanges (accept other changes instead of the local user's changes) 
If this argument is omitted, the conflict-resolution dialog box is displayed.
 

Не избавляет от диалогового окна, которое каждый раз спрашивает заменить ли файл? наверно опять что-то не так делаю...


PM MAIL   Вверх
Antila
Дата 28.1.2010, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



А вот так работает!
Код

Excel.Application.DisplayAlerts = False
New_Wb.SaveAs FileName:=  "D:\proba\XLS\" & nameBook & ".xls"

  
Вопрос решен)
PM MAIL   Вверх
Akina
Дата 28.1.2010, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Плохое решение... но если тебя устраивает...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Antila
Дата 28.1.2010, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет



Цитата(Akina @ 28.1.2010,  13:53)
Плохое решение... но если тебя устраивает...

Чем плохое? 
Посоветуйте тогда другое решение, чтобы работало =)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0564 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.