Редактирование таблиц Excel из Word с помощью VBA

Question

Как мне отредактировать таблицы Excel из Word, используя VBA?

Answer 1

Сначала вам нужно установить ссылку на версию Excel, которую вы используете. В VBE перейдите в Инструменты> Ссылки и щелкните Библиотека объектов Microsoft Excel 12.0 (12.0 для 2007, 11.0 для 2003) и т. Д.

Затем вы можете написать что-то вроде этого (открывает новый экземпляр Excel, открывает, редактирует и сохраняет новую книгу). Вы бы использовали GetObject для доступа к работающему экземпляру Excel:

Sub EditExcelFromWord()

Dim appExcel As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet

Set appExcel = CreateObject("Excel.Application")
With appExcel
    .Visible = True
    Set wb = .Workbooks.Add
    Set ws = wb.Worksheets(1)
    ws.Range("A1").Value2 = "Test"
    wb.SaveAs ThisDocument.Path & Application.PathSeparator & "temp.xls"
    Stop 'admire your work and then click F5 to continue
    Set ws = Nothing
    Set wb = Nothing
    Set appExcel = Nothing

End With

End Sub