[已解决]求盆友们帮忙改个代码

menlgr

原来的代码是，遍历该文件夹下所有工作表中，指定工作薄名内的某些单元格，并提取汇总到台帐上；
现在想要遍历该文件夹中所有工作表中所有工作薄的某些单元格，并提取汇总

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-12 11:10

1. Sub xx()
   
2.     Dim wb As Workbook, sht As Worksheets, n&, MyName$, MyPath$, arr, x&
   
3.     MyPath = ThisWorkbook.Path & ""
   
4.     MyName = Dir(MyPath & "*.xlsx")
   
5.     Do While MyName <> ""
   
6.         If MyName <> "台账.xlsx" Then
   
7.             Set wb = GetObject(MyPath & MyName)
   
8.             With wb
   
9.                 For i = 1 To .Sheets.Count
   
10.                     x = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row + 1
    
11.                     With .Sheets(i)
    
12.                         n = .Cells(.Rows.Count, 1).End(xlUp).Row
    
13.                         arr = .Range("a2:e" & n)
    
14.                     End With
    
15.                     Sheet1.Range("A" & x).Resize(n - 1, 5) = arr
    
16.                 Next
    
17.                 .Close False
    
18.             End With
    
19.         End If
    
20.         MyName = Dir
    
21.     Loop
    
22. End Sub

复制代码

跳转到最佳答案楼层

02761752696

工作表　　　　和　　工作薄　　　区分一下：
Ｅｘｃｅｌ文件　叫做　　　工作薄
Ｅｘｃｅｌ文件里面的　Ｓｈｅｅｔ１，Ｓｈｅｅｔ２．．．．．．．　　叫做工作表


效果　　只传了台账文件，替换你的文件

menlgr

02761752696 发表于 2016-6-12 10:31
工作表　　　　和　　工作薄　　　区分一下：
Ｅｘｃｅｌ文件　叫做　　　工作薄
Ｅｘｃｅｌ文件里面的　 ...

好的好的，谢谢，可以帮我修改一下吗

02761752696

menlgr 发表于 2016-6-12 10:33
好的好的，谢谢，可以帮我修改一下吗

1. 
   

复制代码

你看看，是这个意思吗？
改了一下

老司机带带我

1. Sub xx()
   
2.     Dim wb As Workbook, sht As Worksheets, n&, MyName$, MyPath$, arr, x&
   
3.     MyPath = ThisWorkbook.Path & ""
   
4.     MyName = Dir(MyPath & "*.xlsx")
   
5.     Do While MyName <> ""
   
6.         If MyName <> "台账.xlsx" Then
   
7.             Set wb = GetObject(MyPath & MyName)
   
8.             With wb
   
9.                 For i = 1 To .Sheets.Count
   
10.                     x = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row + 1
    
11.                     With .Sheets(i)
    
12.                         n = .Cells(.Rows.Count, 1).End(xlUp).Row
    
13.                         arr = .Range("a2:e" & n)
    
14.                     End With
    
15.                     Sheet1.Range("A" & x).Resize(n - 1, 5) = arr
    
16.                 Next
    
17.                 .Close False
    
18.             End With
    
19.         End If
    
20.         MyName = Dir
    
21.     Loop
    
22. End Sub

复制代码

menlgr

老司机带带我 发表于 2016-6-12 11:10

不好意思，和我想象的代码不太一样，您看看这个

menlgr

老司机带带我 发表于 2016-6-12 11:10

和我想要的效果不太一样，之前的那个怕大家看着费劲就稍微变动了一下，结果不是我想要的效果，您再看看这个

menlgr

02761752696 发表于 2016-6-12 11:01
menlgr 发表于 2016-6-12 10:33
好的好的，谢谢，可以帮我修改一下吗你看看，是这个意思吗？
改了一下:l ...

和我想要的效果不太一样，之前的那个怕大家看着费劲就稍微变动了一下，结果不是我想要的效果，您再看看这个

老司机带带我

menlgr 发表于 2016-6-12 11:52
和我想要的效果不太一样，之前的那个怕大家看着费劲就稍微变动了一下，结果不是我想要的效果，您再看看这 ...

你的提问和实际需求完全不一样，你把最新的需求说明一下（已经跟你之前的提问表格形式完全不一样了），最好把结果模拟一下，否则看的一头雾水！

menlgr

老司机带带我 发表于 2016-6-14 11:34
你的提问和实际需求完全不一样，你把最新的需求说明一下（已经跟你之前的提问表格形式完全不一样了），最 ...

首先，试验报告中的每一个工作表的结构是一样的，需要将每一个工作表的某些单元格提取，并汇总到台帐工作薄的sheet1指定的单元格，例如：将工作表的L7,C6,L6,A10,H10,J10,L10提取汇总到台帐工作薄sheet1的B6,C6,D6,E6,F6,H6,G6,H6