在已有的excel表格中插入工作表

yanfeiliuhen1

在已有的a.xlsx表格中已经手动新建“sheet1”工作表（工作表中有很多数据，相当于"sheet1“是个模板），，现在如何用代码实现（outlook2010 vba) ，在已有的a.xlsx表格新建一个"sheet2"工作表，并将“sheet1”工作表内容完完全全拷贝一份到“sheet2"中（也就是说 这时候，“sheet2"和“sheet1"内容完完全全一样，只不过工作表名字不一样，一个叫"sheet1"，另一个叫"sheet2"）

大家帮帮忙！不甚感激！！

闻启学

在outlook VBA  中

引用
set  xle =createObject("excel.app")

闻启学

在outlook VBA  中

引用
set  xle =createObject("excel.app")

yanfeiliuhen1

闻老师你好，能否大概写些代码贴出啊

闻启学

为啥你要在 outlook VBA  中 操作 Excel 文件

1. Sub testa()
   
2. 
   
3.     Dim ExcelApp As Object
   
4. 
   
5.     Dim mywbk As Object
   
6. 
   
7.     Set ExcelApp = CreateObject("Excel.Application")
   
8. 
   
9.     Set mywbk = ExcelApp.workbooks.Open("F:\喜羊羊个产品测试.xlsx")
   
10. 
    
11.     mywbk.Sheets(1).Copy Before:=mywbk.Sheets(1)
    
12. 
    
13.     mywbk.ActiveSheet.Name = "sheet2"
    
14. 
    
15.     mywbk.Close True
    
16. End Sub
    

复制代码

yanfeiliuhen1

闻启学 发表于 2014-6-19 17:51
为啥你要在 outlook VBA  中 操作 Excel 文件

因为很多代码都在outlook下开发，，不喜欢两个地方开发代码，所以不在excel下开发


谢谢闻老师哈~

yanfeiliuhen1

闻启学 发表于 2014-6-19 17:51
为啥你要在 outlook VBA  中 操作 Excel 文件

闻老师，再请教你一个问题，如何在这个代码基础上 修改，如何判断工作簿中指定的工作表，如果指定的工作表与某个工作表一样，就不用复制

闻启学

yanfeiliuhen1 发表于 2014-6-23 23:02
闻老师，再请教你一个问题，如何在这个代码基础上 修改，如何判断工作簿中指定的工作表，如果指定的工作表 ...

不懂 什么 意思