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

dsmch

rglxjrglxj 发表于 2014-4-1 09:31
上传附件2

文件夹下的文件本身就不能打开。

rglxjrglxj

dsmch 发表于 2014-4-1 12:26
文件夹下的文件本身就不能打开。

我下载下来能打开，与原附件一样，就是在abc文件关下，aa,bb,cc,dd,ee,ff工作簿下a1:b20单元格内有数据，

dsmch

rglxjrglxj 发表于 2014-4-1 13:53
我下载下来能打开，与原附件一样，就是在abc文件关下，aa,bb,cc,dd,ee,ff工作簿下a1:b20单元格内有数据， ...

楼主图省事，别人一头雾水，建议重新编辑附件并模拟结果

rglxjrglxj

dsmch 发表于 2014-4-1 14:03
楼主图省事，别人一头雾水，建议重新编辑附件并模拟结果

不要意思请见附件三，[size=12.142857551574707px]模拟结果详见导入表

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, mypath$, wj$, i%
   
3. Application.ScreenUpdating = False
   
4. mypath = ThisWorkbook.Path & "\abc"
   
5. For i = 1 To Sheets.Count
   
6.     If Sheets(i).Name <> "界面" Then
   
7.         wj = Sheets(i).Name & ".xls"
   
8.         Set wb = GetObject(mypath & wj)
   
9.         wb.Sheets(1).UsedRange.Copy Sheets(i).[a1]
   
10.         wb.Close 0
    
11.     End If
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

rglxjrglxj

dsmch 发表于 2014-4-1 18:02
………………

谢谢老师

Banieliang

你们的解决问题能力真强，解决速度真快。