如何利用VBA实现根据表格的人数生成对应的PPT的数量

zlx8505951

附件有两个文件，一个参训人员，一个是PPT的模板。我希望能实现通过VBA简单操作。
一：根据参训人员的人数，生成对应数量的灯片。
二：每张灯片显示的名字就是参训人员的名字。
三：灯片上的名字跟参训人员名单的名字一一对应。
我是用来打印出人员名单作为桌牌用的。
如果成功的话，应该跟附件的图片这样。按顺序生成。

dongdonggege

送给你一个程序，试试吧！注意要引用，程序里介绍了方法。

1. 'VBE——引用——Microsoft excel 12.0 object library
   
2. Private Sub CommandButton1_Click()
   
3.    
   
4.     Dim xlApp As Object
   
5.     Dim xlwbk As Object        '定义工作薄对象
   
6.     Dim xlsht As Object        '定义工作表对象
   
7.     Dim fPath As String        '定义文件路径
   
8.    
   
9.     '打开对话框选择文件并获取文件路径
   
10.     With Application.FileDialog(msoFileDialogFilePicker)
    
11.         If .Show = False Then Exit Sub
    
12.         fPath = .SelectedItems(1)
    
13.     End With
    
14.    
    
15.     Set xlApp = CreateObject("Excel.Application")
    
16.     Set xlwbk = xlApp.Workbooks.Open(fPath)
    
17.     Set xlsht = xlwbk.Worksheets("入选名单")
    
18.     lrow = xlsht.Range("b1").End(xlDown).Row
    
19.    
    
20.     For i = 1 To lrow - 1
    
21.         'Set pptSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    
22.         Set sld = ActivePresentation.Slides(i)
    
23.         sld.Copy
    
24.         ActiveWindow.View.Paste
    
25.         
    
26.         ActivePresentation.Slides(i + 1).Shapes("Text Box 2").TextFrame.TextRange.Text = xlsht.Cells(i + 2, 2).Value
    
27.         ActivePresentation.Slides(i + 1).Shapes("Text Box 3").TextFrame.TextRange.Text = xlsht.Cells(i + 2, 2).Value
    
28.     Next
    
29.     ActivePresentation.Slides(ActivePresentation.Slides.Count).Delete
    
30.     Set xlApp = Nothing
    
31.     Set xlwbk = Nothing
    
32.     Set xlsht = Nothing
    
33. End Sub

复制代码

学会了技术，也要报答需要的人！