[已解决]求vba生成独立单保存出来

龙送农

vba生成独立单保存出来

最佳答案

月排行榜 / 总排行榜

hoogle

2013-8-13 19:07

1. Sub hoogle()
   
2. Sheets("台账").Copy
   
3. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & "台账.xls"
   
4. ActiveWorkbook.Close
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

我心飞翔410

1.    Sub s6() '另存为新工作簿
   
2.       Dim wb As Workbook
   
3.        Sheets("模板").Copy
   
4.        Set wb = ActiveWorkbook
   
5.           wb.SaveAs ThisWorkbook.Path & "/1日.xls"
   
6.           wb.Sheets(1).Range("b1") = "测试"
   
7.           wb.Close True
   
8.    End Sub
   
9. 这是你需要的不 工作表保存到新的工作簿 改改工作表名字

复制代码

龙送农

我心飞翔410 发表于 2013-8-13 18:17

麻烦你在我的表操作出来，好吗！！！

用Workbooks.Add建立新表

hoogle

龙送农 发表于 2013-8-13 18:42
麻烦你在我的表操作出来，好吗！！！

用Workbooks.Add建立新表

要生成什么，看不懂.

龙送农

hoogle 发表于 2013-8-13 18:47
要生成什么，看不懂.

保存到新的工作簿,要生成新的工作表。

hoogle

龙送农 发表于 2013-8-13 18:53
保存到新的工作簿

把什么保存出来，每个工作表保存成一个工作簿吗？

龙送农

hoogle 发表于 2013-8-13 18:53
把什么保存出来，每个工作表保存成一个工作簿吗？

将《台账》表生成独立单保存出来

我心飞翔410

1. 
   
2. <P>   Sub s6() '另存为新工作簿
   
3.       Dim wb As Workbook
   
4.        Sheets("台账").Copy
   
5.        Set wb = ActiveWorkbook
   
6.               ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/1日.xls" _
   
7.         , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
   
8.         ReadOnlyRecommended:=False, CreateBackup:=False
   
9.           wb.Sheets(1).Range("b1") = "测试"
   
10.           wb.Close True
    
11.    End Sub</P>
    
12. <P> </P>
    
13. <P>干嘛还新建啊 copy方法就是copy到一个新的工作簿 你测试哈  建的表在本路径下 为1日的工作表</P>

复制代码

hoogle

1. Sub hoogle()
   
2. Sheets("台账").Copy
   
3. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & "台账.xls"
   
4. ActiveWorkbook.Close
   
5. End Sub
   

复制代码

龙送农

hoogle 发表于 2013-8-13 19:07

我只想保存“台账”表的A1:J21，看怎样修改你的代码。