求助

fwb8

各位大神好

请帮实现一个功能
在万顺FORM E那个工作表，点击‘’生成单个FRORM E按钮
生产一个单独的工作簿，不包含公司以及VBA程序‘ 只有与格式值。

如果能实现自动把CI GEN PL的数据导入到FORM E的第7栏目，那就再好不过了。

谢谢哈

fwb8

大神求助啊

huang1314wei

1. Sub 圆角矩形1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     ActiveSheet.Copy
   
4.     With ActiveWorkbook.Sheets(1)
   
5.       .UsedRange.Value = .UsedRange.Value
   
6.       ThisWorkbook.Worksheets("CI AND PL 数据").UsedRange.Copy .Range("A1048576").End(3).Offset(1, 0)
   
7.     End With
   
8.     ActiveWorkbook.Sheets(1).Shapes(1).Visible = False
   
9.     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & ActiveSheet.Name & ".xlsx"
   
10.     ActiveWorkbook.Close True
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

huang1314wei

看一下是不是符合你的要求

Form E - final.rar (49.03 KB, 下载次数: 1)

2015-7-26 14:45 上传

点击文件名下载附件