[已解决]菜鸟求代码！！！

rglxjrglxj

我有一个文件夹ABC下有6个工作簿：AA；BB；CC；DD；EE；FF；每个工作簿只第一张工作表有数据。目标建一个工作簿其中有事先设定好名称的空白工作表AA；BB；CC；DD；EE；FF；代码对应导入数据。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-31 14:05

………………

跳转到最佳答案楼层

dsmch

………………

rglxjrglxj

上传附件

云影

rglxjrglxj 发表于 2014-3-31 14:23
上传附件

附件.rar (60.85 KB, 下载次数: 4)

2014-3-31 14:32 上传

点击文件名下载附件

rglxjrglxj

谢谢云老师：我测试发现AA表多了按钮，原表数据不能导进，且原表数据消失，另导入表我想在其写入公式，所以名称最事前固，另外控件能否不放在6张表，请老师再辛苦一下。

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. Application.SheetsInNewWorkbook = 1
   
6. For i = 1 To Sheets.Count
   
7.     If Sheets(i).Name <> "界面" Then
   
8.         zf = Sheets(i).Name & ".xls" '03版后缀名
   
9.         With Workbooks.Add
   
10.             ThisWorkbook.Sheets(i).Copy after:=.Sheets(.Sheets.Count)
    
11.             .Sheets(1).Delete
    
12.             .SaveAs Filename:=ThisWorkbook.Path & "\ABC" & zf
    
13.         End With
    
14.         Workbooks(zf).Close 1
    
15.     End If
    
16. Next
    
17. Application.SheetsInNewWorkbook = 3
    
18. Application.DisplayAlerts = True
    
19. Application.ScreenUpdating = True
    
20. End Sub
    

复制代码

dsmch

文件夹为空，自动另存为

rglxjrglxj

谢谢老师：我测试发现:原表数据不能导进，且原表数据消失，请老师再辛苦一下。
假设原表aa,bb,…数据范围为a1:b20

dsmch

rglxjrglxj 发表于 2014-3-31 23:04
谢谢老师：我测试发现:原表数据不能导进，且原表数据消失，请老师再辛苦一下。
假设原表aa,bb,…数据范围为 ...

上传附件说明问题。

rglxjrglxj

上传附件2