读书人

请教怎么用VB抓取excel文档中的内容并

发布时间: 2012-04-22 18:34:46 作者: rapoo

请问如何用VB抓取excel文档中的内容并复制到powerpoint
我想通过VB宏抓取指定excel文件中的内容(指定工作薄、指定行、指定列),复制并粘贴至powerpoint中,请问该如何写这样的宏代码?

能给个示例吗?

[解决办法]

探讨
我想通过VB宏抓取指定excel文件中的内容(指定工作薄、指定行、指定列),复制并粘贴至powerpoint中,请问该如何写这样的宏代码?

能给个示例吗?

[解决办法]
第一步,在VB中创建一个Excle对象,获取指定单元格内容,并存放在str变量中:

str=objExcel.Application.Cells(1, 1)

第二步,在VB中创建一个PPT对象,对用这个PPT对象在第一张幻灯片中创建一个文本框,并把上面获取的内容赋值到这个文本框中:
objPPT.ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 100, 100).Select
objPPT.ActiveWindow.Selection.TextRange.Text = str
[解决办法]
xx.select
xx.copy
xx.paste

读书人网 >VB

热点推荐