Открыть excel из Word и выполнить действие

Question

Я хочу создать marco, который позволяет мне что-то добавить в листе Excel во время работы в Word. Мне удалось получить что-то работу, которая открывает файл первенствовать от слова:

Dim excelApp As Excel.Application 
    Dim openExcel As Workbook 
    Dim var1 As Integer 


    Set excelApp = New Excel.Application 
    Set openExcel = excelApp.Workbooks.Open("C:\Documents and Settings\aa471714\Desktop\Book1.xls") 
    excelApp.Visible = True 

Но теперь я хочу, чтобы добавить код, который должен произойти в первенствует сразу после. Но когда я добавляю соответствующий код:

Sheets("Sheet2").Select 
Range("A4").Select 

Это не работает. Я что-то пропускаю?

Уважаемые С уважением,

Марк

Answer 1

Имейте в виду, что в макро, созданный в приложении Word, по умолчанию это слово вку все время. Поэтому каждый раз, когда вы хотите выполнить какую-либо операцию в Excel, вам нужно указать его, добавив полные ссылки на приложение Excel (или другой объект Excel, как показано ниже).

Имейте в виду, что в такой ситуации вам потребуется добавить иерархию расширенных объектов.

Назад к вашему code- добавление такого рода ссылок на объекты должны решить эту проблему: (. Вкл некоторые дополнительные переизданий)

'comments referring to Object hierarchy 
openExcel.Sheets("Sheet2").Select 'OK because sheet is an object below Workbook 
excelApp.Range("A4").Select 'NEW, Range is object below Application or... 
openExcel.Sheets("Sheet2").Range("A4").Select 'IMPROVED, Range is object below sheet 
'general- Range.Select works only for activesheet!! 

openExcel объект хранит ссылки на приложения Excel, которая представлена excelApp.