找回密码
 立即注册
搜索

急:怎么链接excel,使它作为ppt后台

6
回复
532
查看
[复制链接]

14

主题

211

帖子

39

幻币

一流武者

Rank: 3Rank: 3

积分
250
QQ
2016-4-12 12:18:44 显示全部楼层 |阅读模式
如题,谢谢
PPT学习论坛
回复

使用道具 举报

14

主题

209

帖子

33

幻币

一流武者

Rank: 3Rank: 3

积分
232
QQ
2016-4-12 13:45:13 显示全部楼层
PPT insert your excel document
PPT学习论坛
回复 支持 反对

使用道具 举报

15

主题

210

帖子

40

幻币

一流武者

Rank: 3Rank: 3

积分
260
QQ
2016-4-12 14:05:52 显示全部楼层
我试过了,不可以.能不能请高手指教详细点?谢谢了
PPT学习论坛
回复 支持 反对

使用道具 举报

25

主题

216

帖子

75

幻币

一流武者

Rank: 3Rank: 3

积分
304
QQ
2016-4-12 14:21:46 显示全部楼层
tainanle woyeshiguo
PPT学习论坛
回复 支持 反对

使用道具 举报

13

主题

193

帖子

47

幻币

一流武者

Rank: 3Rank: 3

积分
260
QQ
2016-4-12 14:53:05 显示全部楼层
将EXCEL中的内容复制,然后在POWERPOINT中选择复制,复制连接就可以了
PPT学习论坛
回复 支持 反对

使用道具 举报

22

主题

233

帖子

57

幻币

一流武者

Rank: 3Rank: 3

积分
298
QQ
2016-4-12 15:31:36 显示全部楼层
添加三个文本控件(xm.Text,zz.Text,yw.Text),一个命令控件后,在命令控件里加入以下代码,可以创建一个EXCEL文件,并在第一行与第二行中添加以下数据成功,可EXCEL关闭后,再次打开EXCEL并在第三行添加数据,怎样实现?
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = False
ExcelSheet.ActiveSheet.Cells(1, 1).Value = "姓名"
ExcelSheet.ActiveSheet.Cells(1, 2).Value = "政治"
ExcelSheet.ActiveSheet.Cells(1, 3).Value = "语文"
ExcelSheet.ActiveSheet.Cells(2, 1).Value = xm.Text
ExcelSheet.ActiveSheet.Cells(2, 2).Value = zz.Text
ExcelSheet.ActiveSheet.Cells(2, 3).Value = yw.Text
ExcelSheet.SaveAs "E:1.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing
PPT学习论坛
回复 支持 反对

使用道具 举报

9

主题

207

帖子

32

幻币

一流武者

Rank: 3Rank: 3

积分
241
QQ
2016-4-12 16:55:57 显示全部楼层
高手就是高手呀,,让人看了,好是神奇呀,,
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册