作者：乔山办公网日期：
返回目录：excel表格制作
你提到的要求以前我也遇到过，研究过这样的VBA代码。
但最终copy没有完全实现，因为Excel的sheet页面区域很大，而ppt的单页很有限，即使按照sheet的打印页对应ppt的单页也难实现。excel的页面布局也很难复百制到ppt中保证不变形。
但我找到了另外一个度方法，可以每个sheet变成一张图片对应ppt中的每一个页。这样VBA可以实现，但是缺点是在PPT中的内容是图片，文字等内容不知可编辑，并且sheet页面很大时ppt的图片显示相当内容很小。
不知道导出图片放到PPT中这样的实现方案能否满足你的道要求，如果可以的话，我可以提供VBA代码帮助。
方法/步骤
1
方法1:使用VBA的MkDir语句创建百文件夹。
代码如下：度
Sub xyf()
On Error Resume Next
VBA.MkDir ("c:/例子")
End Sub
其中 VBA.MkDir ("c:/例子")表示问在C盘创建一个名为“例子”的答文件夹
On Error Resume Next语句表示如果已经有这回个文件夹，则不创建。
如下图所示：答
2
方法2：使用FileSystemObject对象的CreateFolder方法。
代码如下：
Sub xyf()
On Error Resume Next
Dim oFso
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.CreateFolder ("C:/例子")
End Sub
其中 oFso.CreateFolder ("C:/例子")表示在C盘创建一个名为“例子”的文件夹
On Error Resume Next语句表示如果已经有这个文件夹，则不创建。
如下图所示：
无反应？
是报错复吧
你在PPT里边使用workbooks，PPT能认得出来？
office里不制同程序的对象模型是不一样的，你在百excel里使用activedocument看看能用么？
要想跨程序，必须度创建对问象，或者前引用或者后引用，但是起码你答得告诉ppt什么是workbooks
专Sub aa()
Set s = CreateObject("powerPoint.application")
'创建PPT应用程序
Set pp = s.Presentations.Add
'增加一个空白文档
pp.SaveAs ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & ".ppt"
'保存到当前路径
pp.Close
'关闭文件
s.Quit
'退出程序
End Sub
在属WIN7——64Bit下测试已通过