怎样把PPT中输入的数据保存到EXCEL中？

user_zqhxjsfe 发表于 2016-4-12 12:19:43

在PPT中添加四个文本控件，分别用来输入“姓名”，“性别”，“电话”，“地址”，再添加一个命令按钮，如果与ppt文件同路径的名为"员工信息"的EXCEL文件存在，就把上述信息添加到sheet1的A,B,C,D列中，如果不存在，就新建一个名为"员工信息"的EXCEL文件，把上述信息添加到进去，当如何实现？

liinch 发表于 2016-4-12 13:31:14

不如直接复制粘贴来得快

user_eylok 发表于 2016-4-12 13:38:40

我是想制作一个局域网课件，要把ppt中的数据保存到EXCEL文件中。(安装了EXCEL与PPT2003，在PPT2003中运行成功)
添加三个文本控件（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

页: [1]

office办公网's Archiver

怎样把PPT中输入的数据保存到EXCEL中？