怎么将表格中的名字按顺序逐个放入PPT中制作桌牌

ning84

duquancai 发表于 2018-4-11 22:26
将下面的代码 放于你提供的附件PPT文件的 模块中！，ppt文件与Excel文件在同一个文件夹中》》》》》

S ...

学习到
1      Set pptLayout = pptOutput.Slides(1).CustomLayout
    path = pptOutput.path: ExcelFileName = "\人员.xlsx"
    Set conn = CreateObject("adodb.connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & path & ExcelFileName
    Sql = "select * from [" & path & ExcelFileName & "].[房间安排$B:B] where 姓名 is not null"
    arr = conn.Execute(Sql).GetRows: conn.Close: Set conn = Nothing


2                     .Duplicate.IncrementTop 220
                    .Flip msoFlipVertical