Sửa nhúng dữ liệu excel âm thầm, trong PowerPoint 2010

Question

Tôi cố gắng để chỉnh sửa dữ liệu excel nhúng âm thầm trong PowerPoint 2010. Thật không may khi bạn sử dụng:

gChartData.Activate 

Nó mở tài liệu Excel trên trình bày. Có cách nào để kích hoạt ChartData mà không cần mở Excel không?

Full Code:

Private Sub CommandButton1_Click() 

Dim myChart As Chart 
Dim gChartData As ChartData 
Dim gWorkBook As Excel.Workbook 
Dim gWorkSheet As Excel.Worksheet 

Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart 
Set gChartData = myChart.ChartData 

gChartData.Activate 

Set gWorkBook = gChartData.Workbook 

Set gWorkSheet = gWorkBook.Worksheets(1) 

gWorkSheet.Range("B2").Value = 1 

Set gWorkSheet = Nothing 
Set gWorkBook = Nothing 
Set gChartData = Nothing 
Set myChart = Nothing 


End Sub 

Cảm ơn trước.

Answer 1

Steven,

Trong khi dòng Activate là cần thiết để có được quyền truy cập vào các Workbook cơ bản thêm một đơn giản gWorkBook.Close mã của bạn (trước khi đặt nó để có gì) sẽ đóng Excel lại chứ không phải để nó trên đầu như hiện tại của bạn mã.

Private Sub CommandButton1_Click() 

    Dim myChart As Chart 
    Dim myChartData As ChartData 
    Dim gWorkBook As Excel.Workbook 
    Dim gWorkSheet As Excel.Worksheet 

    Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart 
    Set myChartData = myChart.ChartData 
    myChartData.Activate 

    Set gWorkBook = myChart.ChartData.Workbook 
    Set gWorkSheet = gWorkBook.Worksheets(1) 
    gWorkSheet.Range("B2").Value = 1 

    gWorkBook.Close 
    Set gWorkSheet = Nothing 
    Set gWorkBook = Nothing 
    Set gChartData = Nothing 
    Set myChart = Nothing 
End Sub