Изменить связанный файл Excel через VBA в PowerPoint - PullRequest
Новая
       5

Изменить связанный файл Excel через VBA в PowerPoint

0 голосов
/ 31 января 2019

У меня есть несколько слайдов с несколькими графиками, имеющими образцы данных.Я хочу обновить эти графики фактическими данными, которые присутствуют в файлах Excel, расположенных в той же папке.Могу ли я сделать это через VBA внутри ppt и как?

Я читаю этот ответ редактировать данные диаграммы в powerpoint , но это не указывает, где я могу упомянуть файл Excel и выбрать конкретные данные.

Пожалуйста, помогите!

1 Ответ

0 голосов
/ 31 января 2019

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

With ActivePresentation.Slides(sl).Shapes(sh).Chart.ChartData
    .Activate
    .Workbook.Sheets(1).Range("A1").Value = "test_data"
    .Workbook.Close
End With

В одном из комментариев к ответу указывалось, что, как только вы Activate ChartData, вы в основном имеете делос Excel.Вы также можете запустить фактический экземпляр Excel внутри Powerpoint VBA, а затем просто открыть свои рабочие книги, извлечь из них данные и поместить их в свои ChartData объекты, как если бы вы работали в VBA в Excel.

Чтобы запустить экземпляр Excel в PowerPoint VBA, попробуйте следующее: 

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlApp.Workbooks.Open "C:\lol\Book1.xlsx", True, False

'once Book1 is open you can extract data from Book1 and move it to 
'the appropriate place in .ChartData.Workbook

Set xlApp = Nothing

(приведенный выше код получен из этот ответ )

...