Düzenleme Ben sessizce kullandığınız Maalesef PowerPoint 2010 içinde gömülü excel verileri düzenlemek çalışıyorum PowerPoint 2010

Question

yılında, sessizce excel verilerini gömülü:

gChartData.Activate 

Bu sunum üzerinde Excel belgesini açar. Excel'i açmadan ChartData'yi etkinleştirmenin bir yolu var mı?

Tam Kod: önceden

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 

teşekkürler.

Answer 1

Steven

Activate hat tekrar Excel kapatmak yerine, akım gibi üstüne bırakacağım (Nothing olarak ayarlamadan önce) kodunuzu basit gWorkBook.Close ekleyerek yatan çalışma kitabı erişmek için gerekli olmakla birlikte kod yok.

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