总是有这样那样的错误，请大师给个能正确执行的版本——关于ppt控件控制excel表数据

hunch5

点击ppt456中窗体，使excel表123的sheet2中第二行复制到sheet1第二行？

冥王

EXCEL的VBA都没有学好，PPT中的VBA不会，等着看高人的答案

su45

VBA跳出Excel，咱就不会了，跟帖子方便学习！

hwc2ycy

在PPT中操作EXCEL么？

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim xls As Object
   
3.     Set xls = CreateObject("excel.application")
   
4.     With xls
   
5.         .DisplayAlerts = False
   
6.         With GetObject(ActivePresentation.Path & "\123.xlsx")
   
7.             .worksheets("sheet2").Rows(2).Copy .worksheets("sheet1").Rows(2)
   
8.             .Windows(1).Visible = True
   
9.             .Close True
   
10.         End With
    
11.         .Quit
    
12.     End With
    
13.     MsgBox "ok"
    
14. End Sub

复制代码