Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.07.2008, 15:53   #1
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию Как создать новый файл Word из макроса Excel?

Всем привет!

Подскажите пожалуйста команду чтобы из макроса Excel создать новый файл Word.

Спасибо!
Dorvir вне форума
Старый 03.07.2008, 19:03   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Dim appWD As Word.Application

Set appWD = CreateObject("Word.Application")
appWD.Documents.Add
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 07.07.2008, 12:57   #3
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию

Вот и я так же написала, а VBA выдало ошибку "User-defined type not defined" (у меня Excel-2003).
Чтобы это значило? (((
Dorvir вне форума
Старый 07.07.2008, 13:05   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Пробуй Word.Application заменить на Variant.
I'm learning to live...
Stilet вне форума
Старый 07.07.2008, 13:13   #5
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию

Про ошибку уже не пишет, но и ничего не происходит (новый вордовский файл не создается).
Dorvir вне форума
Старый 07.07.2008, 13:24   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Не создается, или его не видно?
После Вашего кода, попробуйте добавить
Код:
wdApp.Visible = True
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 07.07.2008, 13:49   #7
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию

Добавила строчку про видимость и он действительно появился!

СПАСИБО!

А все таки интересно почему строчка Dim appWD As Word.Application
вызывала ошибку... во всех книгах про VBA именно так и написано...
Прочитала про ссылку на библиотеку внешних приложений Tools-Referens (Сервис-Ссылки), но у меня стоит галочка на Microsoft Office 11.0 Object Library... почему интересно ссылка на Word не сработала...(((
Dorvir вне форума
Старый 07.07.2008, 13:51   #8
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Как-то тоже с этим сталкивался. С тех пор использую
Код:
Dim wdApp As Object
Все-таки лучше, чем Variant.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 07.07.2008, 14:34   #9
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию

В итоге получился такой код:

Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Add
wdApp.Visible = True

Создается файл Word

Как теперь задать Сохранить Как под каким нибудь именем и в определенной папке?
Dorvir вне форума
Старый 07.07.2008, 14:35   #10
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию

С экселевскими файлами это у меня получается... а вот Word упрямится что-то...)))
Dorvir вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных из MS Word в MS Excel ? Nickd5 Помощь студентам 2 28.06.2008 20:40
Delphi c SQL и выгрузка в Excel или word girl23 БД в Delphi 7 24.10.2007 17:56
Как вытащить данные из Excel в бд dephi, а потом (после работы с данными) сформировать новый файл excel. Геля БД в Delphi 1 10.04.2007 15:11
Из word в Excel Biosasha Microsoft Office Word 0 15.02.2007 22:32