VBA: ошибка при использовании .ChartData.Workbook.Close-command

Question

Я использую приведенный ниже код для копирования данных из (внешнего) файла Excel, который (я открыл ранее), в таблицу данных в PowerPoint. Я работал с этим кодом несколько раз, и он всегда работал нормально.

Но уже около недели он внезапно перестал работать в тот момент, когда таблица данных графика (где я вставляю данные из внешнего Excel-файл) должен быть закрыт с

.ChartData.Workbook.Close

Теперь я получаю это сообщение об ошибке: Ошибка выполнения '1004': Метод ' Не удалось закрыть 'объекта' _Workbook ' Я протестировал его на другом ноутбуке и теперь боюсь, что он больше не работает из-за обновления.

У кого-нибудь есть идея, почему он останавливается на этом этапе, или есть идея, как решить проблему, состоящую в том, что таблица данных графа не может быть закрыта?

Заранее спасибо !!

chartno= 2

            With pptApp.ActivePresentation.Slides(chartno).Shapes("graph").Chart
                With .ChartData
                    .Activate
                    With .Workbook.Worksheets(1)


                            For row= 4 To 17
                                .Cells(row- 2, 2) = file_rawdata.Sheets(1).Cells(row, 2).Value
                            Next row
                            For row= 4 To 17
                                .Cells(row- 2, 3) = file_rawdata.Sheets(1).Cells(row, 2 + 1).Value
                            Next row                                             


                    End With
                End With
                .ChartData.Workbook.Close
            End With

Answer 1

У меня была такая же проблема (в C#).

Замена ...

Workbook.Close()

... на ...

Workbook.Application.Quit() 

... решил это в моем случае!