Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 12 ]
- Alex_Gur
- Модератор
- Неактивен
- Откуда: Москва
- Зарегистрирован: 28.07.2011
- Сообщений: 2,758
- Поблагодарили: 492
Тема: Как открыть Excel из Word?
Как макросом открыть Excel из Word?
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
'создаем новую книгу
Set xlApp = New Excel.Application
Пишет, что тип Excel.Application в VBA Word не определен (User-defined type not defined).
И еще один вопрос: Можно ли производить изменения в файле Excel макросом из программы Word?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
- За сообщение: 1
Re: Как открыть Excel из Word?
Можно и нужно!
Во-первых надо в редакторе VBA в меню Tools открыть References и поставить галочку на Microsoft Excel вашей версии оффиса
Если в хотите вставить объект лист Excel то лучше вставлять в виде значка
- Alex_Gur
- Модератор
- Неактивен
- Откуда: Москва
- Зарегистрирован: 28.07.2011
- Сообщений: 2,758
- Поблагодарили: 492
Re: Как открыть Excel из Word?
aap77 пишет:Можно и нужно!
Во-первых надо в редакторе VBA в меню Tools открыть References и поставить галочку на Microsoft Excel вашей версии оффиса
Спасибо. У меня это Microsoft Excel 14.0 Object Library. Все прекрасно работает!
Например:
Dim xlApp As Excel.Application
'открываем Excel
Set xlApp = New Excel.Application
'делаем приложение видимым
xlApp.Visible = True
'создаем новую книгу
Set xlBook = xlApp.Workbooks.Add
'редактируем файл Excel так, как обычно это делается в Excel
xlBook.Sheets(1).Name = "Title"
xlBook.Sheets("Title").Cells(1, 1) = "№"
xlBook.Sheets("Title").Cells(1, 2) = "Наименование"
aap77 пишет:Можно и нужно!
Если в хотите вставить объект лист Excel то лучше вставлять в виде значка
Александр, можно это уточнить? Что вы имеете в виду: "вставлять в виде значка"?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Как открыть Excel из Word?
Когда Вы вставляете файл или лист эксель в виде значка он вставляется как объект InlineShape. Чтобы получить доступ к экселю, надо в InlineShape семейство OLEFormat свойство Object
- Вождь
- Модератор
- Неактивен
- Зарегистрирован: 07.01.2010
- Сообщений: 745
- Поблагодарили: 181
- За сообщение: 1
Re: Как открыть Excel из Word?
aap77 пишет:...надо в редакторе VBA в меню Tools открыть References и поставить галочку на Microsoft Excel...
Можно и без Excel в References:
Dim myExcel As Object
Set myExcel = CreateObject("Excel.Application")
Макросы под заказ и готовый пакет - mtdmacro.ru
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Как открыть Excel из Word?
Вождь пишет:Можно и без Excel в References:
Dim myExcel As Object
Set myExcel = CreateObject("Excel.Application")
Можно, но чтобы писать код нужно знать свойства объекта
- Вождь
- Модератор
- Неактивен
- Зарегистрирован: 07.01.2010
- Сообщений: 745
- Поблагодарили: 181
Re: Как открыть Excel из Word?
aap77 пишет:....чтобы писать код нужно знать свойства...
А вот код Excel лучше и писать в Excel 
Удобнее, и тестируешь сразу. Потом достаточно скопировать.
Макросы под заказ и готовый пакет - mtdmacro.ru
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Как открыть Excel из Word?
Согласен, но многие этого не делают
- Alex_Gur
- Модератор
- Неактивен
- Откуда: Москва
- Зарегистрирован: 28.07.2011
- Сообщений: 2,758
- Поблагодарили: 492
Re: Как открыть Excel из Word?
Вождь пишет:aap77 пишет:...надо в редакторе VBA в меню Tools открыть References и поставить галочку на Microsoft Excel...
Можно и без Excel в References:
Dim myExcel As Object
Set myExcel = CreateObject("Excel.Application")
Вождь, а как тогда обращаться к объектам Excel? Как использовать объект myExcel? Например, что делать с этим:
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Будет ли правильно? :
Dim xlApp As myExcel.Application
Set xlApp = New myExcel.Application
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Как открыть Excel из Word?
Set xlApp = New myExcel.Application
Эта строка только открывает новое приложения экселя, если у вас в файле ворда внедрен объект лист эксель или файл, то к нему надо обращаться через свойство OLEFormat.Object
- Alex_Gur
- Модератор
- Неактивен
- Откуда: Москва
- Зарегистрирован: 28.07.2011
- Сообщений: 2,758
- Поблагодарили: 492
Re: Как открыть Excel из Word?
Спасибо, коллеги, хорошо работает также и вот так:
'устанавливаем связь с объектом Excel
'(вместо Tools - References - Microsoft Excel)
Dim myExcel As Object
Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = True
Set xlBook = myExcel.Workbooks.Add
xlBook.Sheets(1).Name = "Title"
xlBook.Sheets("Title").Cells(1, 1) = "№"
xlBook.Sheets("Title").Cells(1, 2) = "Наименование"
Объектом Excel теперь стал myExcel, созданный с помощью метода CreateObject.
aap77 пишет:если у вас в файле ворда внедрен объект лист эксель или файл, то к нему надо обращаться через свойство OLEFormat.Object
А как можно обратиться к данному объекту через указанное вами свойство OLEFormat.Object?
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.
- aap77
- генерал-полковник
- Неактивен
- Зарегистрирован: 12.09.2011
- Сообщений: 925
- Поблагодарили: 243
Re: Как открыть Excel из Word?
А как можно обратиться к данному объекту через указанное вами свойство OLEFormat.Object?
Это свойство доступно в объектах Shape и InlineShape
Сообщений [ 12 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как открыть Excel из Word?
В современном мире необходимо постоянно совершенствовать свои знания, чтобы идти вперед. Это касается буквально всего, даже такой, казалось бы, простой и понятной операции, как работа с текстом. На портале о Microsoft Office Word вы узнаете про: не могу пронумеровать документ ворд 2007.
Microsoft Word предоставляет практически неограниченные возможности для самосовершенствования, нужно только ими правильно воспользоваться. Наш сайт о Microsoft Office Word даст ответ про: орнамент для вордовского документа.
На форуме Ворд Эксперт как раз и обсуждаются пути оптимизации работы, посредством написания различных шаблонов и макросов для редактирования или форматирования, построения таблиц, списков стилей. На портале о Microsoft Office Word вы узнаете про: как делать рекламу в ворде 2003.
Здесь вам подскажут оптимальные настройки программы в зависимости от стоящей задачи и помогут разобраться с тонкостями и отличиями различных версий. На портале о Microsoft Office Word вы узнаете про: как в worde писать в строке.
Для ленивых или очень занятых пользователей существуют готовые решения и возможность оставить заявку. На портале о Microsoft Office Word вы узнаете про: открытка с поздравлениями в ворде.
